projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git]
/
FS
/
FS
/
cdr
/
cisco.pm
diff --git
a/FS/FS/cdr/cisco.pm
b/FS/FS/cdr/cisco.pm
index
db00db7
..
2da5a94
100644
(file)
--- 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 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',
%info = (
'name' => 'Cisco Unified Call Manager',
@@
-20,11
+21,15
@@
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
#globalCallID_callManagerId
'clid', #globalCallID_callId
skip(1), #origLegCallIdentifier
#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
skip(3), #origNodeId
#origSpan
#origIpAddr
- 'src', #callingPartyNumber
+ 'src', #callingPartyNumber
skip(20), #callingPartyUnicodeLoginUserID
#origCause_location
#origCause_value
skip(20), #callingPartyUnicodeLoginUserID
#origCause_location
#origCause_value
@@
-45,7
+50,10
@@
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
#destNodeId
#destSpan
#destIpAddr
#destNodeId
#destSpan
#destIpAddr
- 'dst', #originalCalledPartyNumber
+ sub { my ($cdr, $dst) = @_;
+ $dst =~ s/\#//;
+ $cdr->set('dst', $dst);
+ }, #originalCalledPartyNumber
skip(17), #finalCalledPartyNumber
#finalCalledPartyUnicodeLoginUserID
#destCause_location
skip(17), #finalCalledPartyNumber
#finalCalledPartyUnicodeLoginUserID
#destCause_location
@@
-65,14
+73,14
@@
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
#destRSVPVideoStat
'answerdate', #dateTimeConnect
'enddate', #dateTimeDisconnect
#destRSVPVideoStat
'answerdate', #dateTimeConnect
'enddate', #dateTimeDisconnect
- skip(
6
), #lastRedirectDn
+ skip(
3
), #lastRedirectDn
#pkid
#originalCalledPartyNumberPartition
#pkid
#originalCalledPartyNumberPartition
-
#callingPartyNumberPartition
-
#finalCalledPartyNumberPartition
+
'accountcode',
#callingPartyNumberPartition
+
skip(2),
#finalCalledPartyNumberPartition
#lastRedirectDnPartition
'billsec', #duration
#lastRedirectDnPartition
'billsec', #duration
- skip(
48
), #origDeviceName
+ skip(
23
), #origDeviceName
#destDeviceName
#origCallTerminationOnBehalfOf
#destCallTerminationOnBehalfOf
#destDeviceName
#origCallTerminationOnBehalfOf
#destCallTerminationOnBehalfOf
@@
-94,8
+102,8
@@
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
#origMediaCap_Bandwidth
#destMediaCap_Bandwidth
#authorizationCodeValue
#origMediaCap_Bandwidth
#destMediaCap_Bandwidth
#authorizationCodeValue
- #outpulsedCallingPartyNumber
-
#outpulsedCalledPartyNumber
+ #outpulsedCallingPartyNumber
+
skip(23),
#outpulsedCalledPartyNumber
#origIpv4v6Addr
#destIpv4v6Addr
#origVideoCap_Codec_Channel2
#origIpv4v6Addr
#destIpv4v6Addr
#origVideoCap_Codec_Channel2
@@
-126,7
+134,6
@@
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
-
sub skip { map {''} (1..$_[0]) }
1;
sub skip { map {''} (1..$_[0]) }
1;