X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fcisco.pm;h=2da5a94e1b555cd80244e3c8524905dd001cfe80;hb=57bb423fe457ba4e13726877f53bcdf944f828f8;hp=db00db771c25d54975936aa9cd003ab61f8ff2dc;hpb=9b20f80d7bfe5ad53c1870c64b74dca87afa7761;p=freeside.git

diff --git a/FS/FS/cdr/cisco.pm b/FS/FS/cdr/cisco.pm
index db00db771..2da5a94e1 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,11 +21,15 @@ 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	
-					       'src',	#callingPartyNumber	
+           				       'src',	#callingPartyNumber	
 					    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	
-					      'dst',	#originalCalledPartyNumber	
+		sub { my ($cdr, $dst) = @_;
+		$dst =~ s/\#//;
+		$cdr->set('dst', $dst);			      
+						},	#originalCalledPartyNumber	
 					   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
-					skip(6),	#lastRedirectDn	
+					skip(3),	#lastRedirectDn	
 							#pkid
 							#originalCalledPartyNumberPartition	
-							#callingPartyNumberPartition	
-							#finalCalledPartyNumberPartition
+				   'accountcode',	#callingPartyNumberPartition	
+					 skip(2),	#finalCalledPartyNumberPartition
 							#lastRedirectDnPartition
 				       'billsec',	#duration
-					skip(48),	#origDeviceName
+					skip(23),	#origDeviceName
 							#destDeviceName
 							#origCallTerminationOnBehalfOf
 							#destCallTerminationOnBehalfOf
@@ -94,8 +102,8 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
 							#origMediaCap_Bandwidth
 							#destMediaCap_Bandwidth	
 							#authorizationCodeValue
-							#outpulsedCallingPartyNumber
-							#outpulsedCalledPartyNumber
+					        	#outpulsedCallingPartyNumber
+					      skip(23), #outpulsedCalledPartyNumber
 							#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;