Lines Matching refs:acct_file
116 my($acct_file) = "";
118 $acct_file = shift @ARGV;
120 $acct_file = $opt{'a'};
125 if( !$acct_file ){
133 print STDERR "accounting file '$acct_file'\n" if $debug;
136 $acct_h = new FileHandle ">>$acct_file" ;
143 $acct_h = new FileHandle "+<$acct_file" ;
145 print STDERR "$0: cannot open $acct_file r/w - $!\n";
150 my($size) = -s $acct_file;
156 print STDERR "$0: lseek $acct_file failed - $!\n";
204 $acct_h = new FileHandle "+<$acct_file" ;
206 print STDERR "$0: cannot open $acct_file r/w - $!\n";