diff options
author | Jeremy Davis <jeremyd@freeside.biz> | 2014-05-23 12:10:41 -0400 |
---|---|---|
committer | Jeremy Davis <jeremyd@freeside.biz> | 2014-05-23 12:10:41 -0400 |
commit | 7432b2f86473986a05b4107e218c997549b8ee2f (patch) | |
tree | f422c1840b6f9d520c0387c67c8053003e43bb72 /FS/FS/cdr | |
parent | dc0f1291d98ac8f8d5b5da9465ab282f36c90034 (diff) |
28898 Fix date formatting in cisco format
Diffstat (limited to 'FS/FS/cdr')
-rw-r--r-- | FS/FS/cdr/cisco.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/cdr/cisco.pm b/FS/FS/cdr/cisco.pm index db00db771..4d0850775 100644 --- a/FS/FS/cdr/cisco.pm +++ b/FS/FS/cdr/cisco.pm @@ -4,6 +4,7 @@ use strict; use base qw( FS::cdr ); use vars qw( %info ); use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); +use Date:Parse; %info = ( 'name' => 'Cisco Unified Call Manager', @@ -20,7 +21,11 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); #globalCallID_callManagerId 'clid', #globalCallID_callId skip(1), #origLegCallIdentifier - 'calldate', #dateTimeOrigination + sub { my ($cdr, $calldate) = @_; + $cdr->set('startdate', $calldate); + $calldate = str2time($calldate); + $cdr->set('calldate', $calldate); + }, #dateTimeOrigination skip(3), #origNodeId #origSpan #origIpAddr |