package FS::cdr::enswitch;
+use base qw( FS::cdr );
use strict;
-use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
-use Time::Local;
-use FS::cdr qw(_cdr_min_parser_maker);
-
-@ISA = qw(FS::cdr);
+use vars qw( %info $tmp_mon $tmp_mday $tmp_year );
+use FS::Record qw( qsearchs );
+use FS::cdr_type;
%info = (
'name' => 'Enswitch',
'header' => 2,
'type' => 'csv',
'import_fields' => [
- 'disposition', #Status
+ 'dcontext', #Status
'startdate', #Start, already a unix timestamp
skip(2), #Start date, Start time
'enddate', #End
skip(4), #End date, End time
#Calling customer, Calling type
- 'src', #Calling number
- 'clid', #Calling name
+ 'src', #Calling number
skip(1), #Called type
- 'dst', #Called number
- skip(5), #Destination customer, Destination type
+
+ sub { my ($cdr, $dst) = @_;
+ $dst =~ s/\*//g;
+ $cdr->set('dst', $dst);
+ }, #Called number
+
+ skip(14), #Destination customer, Destination type
#Destination number
#Destination group ID, Destination group name,
- 'in_calling_type', #Inbound calling type,
- \&in_calling_num, #Inbound calling number,
- '', #Inbound called type,
- \&in_called_num, #Inbound called number,
- skip(14),
+ #Inbound calling type,
+ #Inbound calling number,
+ #Inbound called type,
+ #Inbound called number,
#Inbound destination type, Inbound destination number,
- #Outbound calling type, Outbound calling number,
+ sub { my ($cdr, $data) = @_;
+ $data ||= 'none';
+
+ my $cdr_type = qsearchs('cdr_type', { 'cdrtypename' => $data } );
+ $cdr->set('cdrtypenum', $cdr_type->cdrtypenum) if $cdr_type;
+ } , #Outbound calling type,
+
+ skip(11), #Outbound calling number,
#Outbound called type, Outbound called number,
#Outbound destination type, Outbound destination number,
#Internal calling type, Internal calling number,
'duration', #Total seconds
skip(1), #Ring seconds
'billsec', #Billable seconds
- 'upstream_price', #Cost
+ skip(2), #Cost
+ #Cost including taxes
'accountcode', #Billing customer
skip(3), #Billing customer name, Billing type, Billing reference
],
sub skip { map {''} (1..$_[0]) }
-sub in_calling_num {
- my ($record, $data) = @_;
- $record->src($data) if ( ($record->in_calling_type || '') eq 'external' );
-}
-
-sub in_called_num {
- my ($record, $data) = @_;
- $record->dst($data) if ( ($record->in_calling_type || '') eq 'external' );
-}
-
1;