diff options
| -rw-r--r-- | FS/FS/cdr/netsapiens.pm | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/FS/FS/cdr/netsapiens.pm b/FS/FS/cdr/netsapiens.pm new file mode 100644 index 000000000..bcaa3496d --- /dev/null +++ b/FS/FS/cdr/netsapiens.pm @@ -0,0 +1,50 @@ +package FS::cdr::netsapiens; + +use strict; +use base qw( FS::cdr ); +use vars qw( %info ); +use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker ); + +%info = ( + 'name' => 'NetSapiens', + 'weight' => 160, + 'header' => 1, #0 default, set to 1 to ignore the first line, or + # to higher numbers to ignore that number of lines + 'type' => 'csv', #csv (default), fixedlength or xls + 'sep_char' => ',', #for csv, defaults to , + 'disabled' => 0, #0 default, set to 1 to disable + + 'import_fields' => [ + + sub { my ($cdr, $direction) = @_; + if ($direction =~ /^o/) { # 'origination' + # leave src and dst as they are + } elsif ($direction =~ /^t/) { + my ($local, $remote) = ($cdr->src, $cdr->dst); + $cdr->set('dst', $local); + $cdr->set('src', $remote); + } + }, + '', #Domain + '', #user + 'src', #local party (src/dst, based on direction) + _cdr_date_parser_maker('startddate'), + _cdr_date_parser_maker('answerdate'), + sub { my ($cdr, $duration) = @_; + $cdr->set('duration', $duration); + $cdr->set('billsec', $duration); + $cdr->set('enddate', $duration + $cdr->answerdate) + if $cdr->answerdate; + }, + 'dst', #remote party + '', #dialed number + 'uniqueid', #CallID (timestamp + '-' + 32 char hex string) + 'src_ip_addr', + 'dst_ip_addr', + 'disposition', + ], + +); + +1; + |