Projects Personal Contact Rss
 


System Utilities / RadiusReport / Novell BMAS-preparser

Source Text

Note: Please patch RadiusReport 0.3b6 with this patch. (The reason for commenting out the Acct-Delay-Time correction is that the logfile I saw from the one example sent to me had silly numbers in this field)

#!/usr/bin/perl

# Script to convert a logfiles produced by
# Novell BorderManager Authentication Services (BMAS) RADIUS
# into a standard "detail" file format suitable for RadiusReport.
# Remember to change RadiusReport to use the Ascend date format specification
#  $RECORD_DATE_FMT = "YEAR-MON-MDAY HH:MM:SS";

# Program copyright 2001, Paul Gregg 
# Unauthorised redistribution prohibited.
# http://www.pgregg.com


$first = "";
@associations = ();

while () {

  chomp;
  $cr = chr(13);
  s/$cr//ge;
  if ($first eq "") {

    $first = $_;
    @fields = split(/,/, $_);
    foreach $field (@fields) {
      $field =~ s/\"//g;
      push(@associations, $field);
    }
    $num_fields = $#associations + 1;

  } else {
  
    @fields = split(/,/, $_);
    foreach $field (@fields) { $field =~ s/\"//g; }
    printf ("%s %s\n", $fields[0], $fields[1]);
    for ($count=2; $count < $num_fields; $count++) {
      printf ("\t%s = %s\n", $associations[$count], $fields[$count])
      		if ($fields[$count] ne "");
    }
    print "\n";

  }

}


All content © Paul Gregg, 1994 - 2024
Page last updated: 15 July 2008 23:06:43.
This site https://pgregg.com has been online since 5th October 2000
Previous websites live at various URLs since 1994