[Serusers] CDR - via perl

[Bogdan-Andrei Iancu]

the exec() functions cannot be called for replies and there is no way to 
pass the reply code to some external script.

bogdan

Kristian Knudsen wrote:

> Hi all,
> I am trying to setup some cdr generation from a ser server
> (version 0.8.14) and I am using a perl script like this:
>
> foreach $var (sort(keys(%ENV))) {
>     $val = $ENV{$var};
>     if ( ${var} =~ /^SIP_/){
>      print FP "${var}=\"${val}\"\n";
>     }
> }
>
> executed from ser.cfg, but I need the sip_response_code (2xx if ok).
> I can see that it is in the output from xlog, is it possible
> to fetch the value from any environment parameter at all?
> And how to do that.
> /kk
>
> _______________________________________________
> Serusers mailing list
> serusers at lists.iptel.org
> http://lists.iptel.org/mailman/listinfo/serusers
>