'accountcode', #customer
'src', #anumber
'dst', #bnumber
- sub { # OriginatingDate and OriginatingTime, two fields in the spec
- my ($cdr, $date) = @_;
- $date =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
- or die "unparseable date: $date";
- my $tmp_date = "$2/$1/$3 $4:$5:$6";
- $cdr->calldate($tmp_date);
- },#datetime
-
+ 'calldate', #datetime
'billsec', #duration
skip(3), #calltype
#status