X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fcisco.pm;h=f9b9befbce6ad952efd9485dd5f5d416710387fb;hb=1d050e512416494a9f3efe232ec19ccf18b7b9af;hp=4d0850775305ee98d2c87dab694dbf202af2c0ea;hpb=7432b2f86473986a05b4107e218c997549b8ee2f;p=freeside.git diff --git a/FS/FS/cdr/cisco.pm b/FS/FS/cdr/cisco.pm index 4d0850775..f9b9befbc 100644 --- a/FS/FS/cdr/cisco.pm +++ b/FS/FS/cdr/cisco.pm @@ -4,7 +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; +use Date::Parse; %info = ( 'name' => 'Cisco Unified Call Manager', @@ -29,7 +29,7 @@ use Date:Parse; skip(3), #origNodeId #origSpan #origIpAddr - 'src', #callingPartyNumber + 'src', #callingPartyNumber skip(20), #callingPartyUnicodeLoginUserID #origCause_location #origCause_value @@ -50,7 +50,10 @@ use Date:Parse; #destNodeId #destSpan #destIpAddr - 'dst', #originalCalledPartyNumber + sub { my ($cdr, $dst) = @_; + $dst =~ s/\#//; + $cdr->set('dst', $dst); + }, #originalCalledPartyNumber skip(17), #finalCalledPartyNumber #finalCalledPartyUnicodeLoginUserID #destCause_location @@ -77,7 +80,7 @@ use Date:Parse; #finalCalledPartyNumberPartition #lastRedirectDnPartition 'billsec', #duration - skip(48), #origDeviceName + skip(22), #origDeviceName #destDeviceName #origCallTerminationOnBehalfOf #destCallTerminationOnBehalfOf @@ -99,8 +102,12 @@ use Date:Parse; #origMediaCap_Bandwidth #destMediaCap_Bandwidth #authorizationCodeValue - #outpulsedCallingPartyNumber - #outpulsedCalledPartyNumber + sub { my ($cdr, $number) = @_; + if ($number){ + $cdr->set('src',$number); + } + }, #outpulsedCallingPartyNumber + skip(23), #outpulsedCalledPartyNumber #origIpv4v6Addr #destIpv4v6Addr #origVideoCap_Codec_Channel2