Lines Matching refs:statefile

140 my $statefile;  # state file with assigned reason and function codes
172         $statefile = $1;
179 if ( ! $statefile ) {
180     $statefile = $config;
181     $statefile =~ s/.ec/.txt/;
187 if ( ! $reindex && $statefile ) {
188     open(STATE, "<$statefile") || die "Can't open $statefile, $!";
209             die "Bad line in $statefile:\n$_\n";
231             die "Bad line in $statefile:\n$_\n";
677     open(OUT, ">$statefile.new")
678         || die "Can't write $statefile.new, $!";
696         print "Skipped state, leaving update in $statefile.new";
698         rename "$statefile", "$statefile.old"
699             || die "Can't backup $statefile to $statefile.old, $!";
700         rename "$statefile.new", "$statefile"
701             || die "Can't rename $statefile to $statefile.new, $!";