Re: accounting scripts ?
that depend on what You want. probably You'll find many things to parse dialup "details", and less for VoIP accounting. I'd suggest pgsql-voip if You need VoIP stuff Hello I'm searching for scripts that are able to parse the radacct/xxx.xxx.xxx.xxx/detail-xxx file to perform some simple statistics ? Thanks - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
Re: accounting scripts ?
Miguel wrote: Frank Bonnet wrote: Hello I'm searching for scripts that are able to parse the radacct/xxx.xxx.xxx.xxx/detail-xxx 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 (){ 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 thanks also a lot ! - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
Re: accounting scripts ?
Alan DeKok wrote: Frank Bonnet <[EMAIL PROTECTED]> wrote: I'm searching for scripts that are able to parse the radacct/xxx.xxx.xxx.xxx/detail-xxx file to perform some simple statistics ? radiusreport. Alan DeKok. - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html thanks a lot ! - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
Re: accounting scripts ?
Frank Bonnet wrote: Hello I'm searching for scripts that are able to parse the radacct/xxx.xxx.xxx.xxx/detail-xxx 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 (){ 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
Re: accounting scripts ?
Frank Bonnet <[EMAIL PROTECTED]> wrote: > I'm searching for scripts that are able to parse the > radacct/xxx.xxx.xxx.xxx/detail-xxx file to perform > some simple statistics ? radiusreport. Alan DeKok. - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
accounting scripts ?
Hello I'm searching for scripts that are able to parse the radacct/xxx.xxx.xxx.xxx/detail-xxx file to perform some simple statistics ? Thanks - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html