diff options
| author | Jeremy Davis <jeremyd@freeside.biz> | 2014-05-23 12:11:40 -0400 |
|---|---|---|
| committer | Jeremy Davis <jeremyd@freeside.biz> | 2014-05-23 12:11:40 -0400 |
| commit | f6938ed944c173bb36480d1d46da42db951cf9cc (patch) | |
| tree | 5ca35234eeaab6b8ac4e8e12ac1c348732a7e0eb | |
| parent | 38c28f5486c5fb02d1d6edfebf878b10a2a9239e (diff) | |
28898 Fix date formatting in cisco format
| -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 |