Frank Bonnet wrote:
Hello
I'm searching for scripts that are able to parse the
radacct/xxx.xxx.xxx.xxx/detail-xxxxxxx file to perform
some simple statistics ?
Thanks
- List info/subscribe/unsubscribe? See
http://www.freeradius.org/list/users.html
what do you mean with parsing?, i got this, i call it summarize.pl, just
change the attributes that you want to extract, the result is a csv file,
the output is to your screen, so you have to redirecte it to a file,
etc, with that csv file you can dump it to a db, or wharever. ej:
for standar output:
# ./summarize.pl name_of_detail_file
for csv file:
# ./summarize.pl name_of_detail_file > name_of_csv_file
### BEGIN ###
#!/usr/bin/perl
#
# define caracter de separacion para lineas
$/ = "\n\n";
open(SUM,$ARGV[0]) or die "No se encontro archivo detalle";
print "h323-call-origin,h323-call-type,out-intrfc-desc,h323-connect-time,";
print "Acct-Session-Time,h323-disconnect-time,h323-disconnect-cause,";
print "Cisco-NAS-Port,Calling-Station-Id,Called-Station-Id\n";
while (<SUM>){
s/\t+//g;
@campos = split(/\n/);
foreach $c (@campos) {
($cpo, $vlr) = split(/ = /, $c);
$vlr =~ s/^ |\"//g;
#print $cpo,$vlr,"\n";
if ($cpo eq "h323-call-origin") {$h323_call_origin = $vlr;}
if ($cpo eq "h323-call-type") {$h323_call_type = $vlr;}
if ($cpo eq "Cisco-AVPair") {
if ($vlr =~ /out-intrfc-desc/) {
$out_intrfc_desc = (split("=",$vlr))[1];
}
}
if ($cpo eq "h323-connect-time") {$h323_connect_time = $vlr;}
if ($cpo eq "Acct-Session-Time") {$Acct_Session_Time = $vlr;}
if ($cpo eq "h323-disconnect-time") {$h323_disconnect_time = $vlr;}
if ($cpo eq "h323-disconnect-cause") {$h323_disconnect_cause =
$vlr;}
if ($cpo eq "Cisco-NAS-Port") {$Cisco_NAS_Port = $vlr;}
if ($cpo eq "Calling-Station-Id") {$Calling_Station_Id = $vlr;}
if ($cpo eq "Called-Station-Id") {$Called_Station_Id =
$vlr;}
}
print
"$h323_call_origin,$h323_call_type,$out_intrfc_desc,$h323_connect_time,";
print
"$Acct_Session_Time,$h323_disconnect_time,$h323_disconnect_cause,";
print "$Cisco_NAS_Port,$Calling_Station_Id,$Called_Station_Id\n";
}
close SUM;
### END ###
-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
