Initial revision

1 files changed, 51 insertions, 0 deletions

diff --git a/fs_radlog/fs_radlogd b/fs_radlog/fs_radlogd
new file mode 100755
index 000000000..74c2af361
--- /dev/null
+++ b/fs_radlog/fs_radlogd
@@ -0,0 +1,51 @@
+#!/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);
+}
+
+