Lines Matching refs:statefile
139 my $statefile; # state file with assigned reason and function codes
171 $statefile = $1;
178 if ( ! $statefile ) {
179 $statefile = $config;
180 $statefile =~ s/.ec/.txt/;
183 # The statefile has all the previous assignments.
186 if ( ! $reindex && $statefile ) {
187 open(STATE, "<$statefile") || die "Can't open $statefile, $!";
208 die "Bad line in $statefile:\n$_\n";
230 die "Bad line in $statefile:\n$_\n";
669 open(OUT, ">$statefile.new")
670 || die "Can't write $statefile.new, $!";
688 print "Skipped state, leaving update in $statefile.new";
690 rename "$statefile", "$statefile.old"
691 || die "Can't backup $statefile to $statefile.old, $!";
692 rename "$statefile.new", "$statefile"
693 || die "Can't rename $statefile to $statefile.new, $!";