4 use vars qw( @ISA %info);
18 my ($cdr, $data, $conf, $param) = @_;
19 $param->{skiprow} = 1 if $data ne 'CallDetail 0'; # skip non-detail records
21 'uniqueid', # unique id
25 sub { my ($cdr, $calldate, $param) = @_;
27 if ($calldate =~ /^(\d{4})-(\d{2})-(\d{2})\s*(\d{2}):(\d{2}):(\d{2})$/){
29 $cdr->set('calldate', $calldate);
30 my $tmp_date = "$2/$3/$1 $4:$5:$6";
32 $tmp_date = str2time($tmp_date);
33 $cdr->set('startdate', $tmp_date);
36 sub { my ($cdr, $duration) = @_;
38 my ($hour,$min,$sec) = split(/:/,$duration);
40 $sec += $hour * 60 * 60;
41 $sec = sprintf ("%.0f", $sec);
42 $cdr->set('billsec', $sec);
46 'disposition', # call status
51 sub skip { map {''} (1..$_[0]) }