3 # ivan@sisd.com 98-mar-23
6 use Date::Parse; #but hopefully not
11 open(FILE,"<$file") or die "Can't open $file: $!";
12 seek(FILE,$pos,0) or die "Can't seek: $!";
17 $SIG{'HUP'} = sub { print "EOF\n"; exit; };
27 warn "Unexpected line: $_";
31 #if ( $param{'Acct-Status-Type'} eq 'Stop' ) {
38 } elsif ( /^\s+([\w\-]+)\s\=\s\"?([\w\.\-]+)\"?\s*$/ ) {
41 warn "Unexpected line: $_";