diff options
| author | Jeremy Davis <jeremyd@freeside.biz> | 2013-07-08 15:48:18 -0400 |
|---|---|---|
| committer | Jeremy Davis <jeremyd@freeside.biz> | 2013-07-08 15:48:18 -0400 |
| commit | d4a404f4eda27d51301012cfb8bd5efd89213ce1 (patch) | |
| tree | de5c6fd2fe55c4b0684f7352e073df031ad42358 | |
| parent | 4c57ddecfa1f8582d0624f940214a107d993289f (diff) | |
#23382 Changes to NetSapiens CDR format
| -rw-r--r-- | FS/FS/cdr/netsapiens.pm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/FS/FS/cdr/netsapiens.pm b/FS/FS/cdr/netsapiens.pm index bcaa3496d..9d07aef7e 100644 --- a/FS/FS/cdr/netsapiens.pm +++ b/FS/FS/cdr/netsapiens.pm @@ -15,11 +15,11 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); 'disabled' => 0, #0 default, set to 1 to disable 'import_fields' => [ - + sub { my ($cdr, $direction) = @_; - if ($direction =~ /^o/) { # 'origination' + if ($direction =~ /^t/) { # 'origination' # leave src and dst as they are - } elsif ($direction =~ /^t/) { + } elsif ($direction =~ /^o/) { my ($local, $remote) = ($cdr->src, $cdr->dst); $cdr->set('dst', $local); $cdr->set('src', $remote); @@ -28,7 +28,7 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); '', #Domain '', #user 'src', #local party (src/dst, based on direction) - _cdr_date_parser_maker('startddate'), + _cdr_date_parser_maker('startdate'), _cdr_date_parser_maker('answerdate'), sub { my ($cdr, $duration) = @_; $cdr->set('duration', $duration); @@ -37,14 +37,15 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); if $cdr->answerdate; }, 'dst', #remote party - '', #dialed number + sub { my ($cdr, $dialednum) = @_; + $cdr->set('dst',$dialednum) if $dialednum =~ /^(\+?1)?8(8|([02-7])\3)/; + }, #dialed number 'uniqueid', #CallID (timestamp + '-' + 32 char hex string) - 'src_ip_addr', - 'dst_ip_addr', + '', + '', 'disposition', ], ); 1; - |