4 use vars qw( @ISA %info);
17 my ($cdr, $data, $conf, $param) = @_;
18 $param->{skiprow} = 1 unless $data =~ /Call\s/ ; # skip non-detail records
20 skip(1), # unknown, callid ( not unique )
21 sub { my ($cdr, $duration) = @_;
23 my ($hour,$min,$sec) = split(/:/,$duration);
24 $sec = sprintf ("%.0f", $sec);
26 $sec += $hour * 60 * 60;
27 $cdr->set('billsec', $sec);
31 sub { my ($cdr, $calldate, $param) = @_;
33 my $date = str2time($calldate);
34 $cdr->set('startdate', $date);
38 'accountcode', # AccountCode
41 sub { my ($cdr, $dst, $param) = @_;
43 $cdr->set('dst', $dst);
49 sub skip { map {''} (1..$_[0]) }