- skip(2), # unknown, callid ( not unique )
- 'src', # source
- 'dst', # destination
-sub { my ($cdr, $calldate, $param) = @_;
-
- if ($calldate =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/){
+ skip(1), # unknown, callid ( not unique )
+ sub { my ($cdr, $duration) = @_;
+
+ my ($hour,$min,$sec) = split(/:/,$duration);
+ $sec = sprintf ("%.0f", $sec);
+ $sec += $min * 60;
+ $sec += $hour * 60 * 60;
+ $cdr->set('billsec', $sec);
+
+ }, # duration
+ skip(1),
+ sub { my ($cdr, $calldate, $param) = @_;