skip(1),
sub { my ($cdr, $calldate, $param) = @_;
- $cdr->set('calldate', $calldate);
- }, #date
+ my $date = str2time($calldate);
+ $cdr->set('startdate', $date);
+
+ }, #date
skip(4),
'accountcode', # AccountCode
skip(6),
'src', # source
- 'dst', # destination
+ sub { my ($cdr, $dst, $param) = @_;
+ $dst =~ s/#//;
+ $cdr->set('dst', $dst);
+ }, # destination
],
);