diff options
author | cvs2git <cvs2git> | 2001-04-23 12:44:07 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2001-04-23 12:44:07 +0000 |
commit | b05ab53315716b57305cbe6b2f5032eed314049c (patch) | |
tree | 3cc3737d6b3b47896d3f364cdf85d39651b78c09 /fs_radlog/fs_radlogd | |
parent | fd337973c05b8cd15ecc8c4c9b913c7261e17ed6 (diff) | |
parent | 80ba0c074354875c288c143721af08a0a5d02e42 (diff) |
This commit was manufactured by cvs2svn to create branchfreeside_1_3_0_pci_mods
'freeside_1_3_0_pci_mods'.
Diffstat (limited to 'fs_radlog/fs_radlogd')
-rwxr-xr-x | fs_radlog/fs_radlogd | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/fs_radlog/fs_radlogd b/fs_radlog/fs_radlogd deleted file mode 100755 index 74c2af3..0000000 --- a/fs_radlog/fs_radlogd +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl -Tw -# -# ivan@sisd.com 98-mar-23 - -use strict; -use Date::Parse; #but hopefully not - -$|=1; - -my($file,$pos)=@_; -open(FILE,"<$file") or die "Can't open $file: $!"; -seek(FILE,$pos,0) or die "Can't seek: $!"; - -my($datestr); -my(%param); - -$SIG{'HUP'} = sub { print "EOF\n"; exit; }; - -while (1) { - - while (<FILE>) { - next if /^$/; - if ( /^\S/ ) { - chop($datestr=$_); - undef %param; - } else { - warn "Unexpected line: $_"; - } - while (<FILE>) { - if ( /^$/ ) { - #if ( $param{'Acct-Status-Type'} eq 'Stop' ) { - print join("\t", - tell FILE, - %param, - ),"\n"; - #} - last; - } elsif ( /^\s+([\w\-]+)\s\=\s\"?([\w\.\-]+)\"?\s*$/ ) { - $param{$1}=$2; - } else { - warn "Unexpected line: $_"; - } - - } - - } - sleep 1; - seek(FILE,0,1); -} - - |