[freeside-commits] branch master updated. 9a963c59933af6813405d311d6de1cd5a4eb8597

Jeremy Davis jeremyd at 420.am
Mon Jun 15 09:36:28 PDT 2015


The branch, master has been updated
       via  9a963c59933af6813405d311d6de1cd5a4eb8597 (commit)
      from  7941620427181019123a41e9d3f672b750f97a0f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 9a963c59933af6813405d311d6de1cd5a4eb8597
Author: Jeremy Davis <jeremyd at freeside.biz>
Date:   Mon Jun 15 12:36:02 2015 -0400

    Ticket #34769 different enswitch format

diff --git a/FS/FS/cdr/enswitch_calling_name.pm b/FS/FS/cdr/enswitch_calling_name.pm
new file mode 100644
index 0000000..c5564d3
--- /dev/null
+++ b/FS/FS/cdr/enswitch_calling_name.pm
@@ -0,0 +1,62 @@
+package FS::cdr::enswitch_calling_name;
+use base qw( FS::cdr );
+
+use strict;
+use vars qw( %info $tmp_mon $tmp_mday $tmp_year );
+use FS::Record qw( qsearchs );
+use FS::cdr_type;
+
+%info = (
+  'name'          => 'Enswitch with calling name',
+  'weight'        => 515,
+  'header'        => 2,
+  'type'          => 'csv',
+  'import_fields' => [
+    'dcontext',     #Status
+    'startdate',    #Start, already a unix timestamp
+    skip(2),        #Start date, Start time
+    'enddate',      #End
+    skip(6),        #End date, End time
+                    #Calling customer, Calling type
+    'src',          #Calling number     
+    skip(1),        #Called 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,
+    		    #Inbound calling type,
+    		    #Inbound calling number,
+                    #Inbound called type,
+    		    #Inbound called number,
+                    #Inbound destination type, Inbound destination 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,
+                    #Internal called type, Internal called number,
+                    #Internal destination type, Internal destination number
+    'duration',     #Total seconds
+    skip(1),        #Ring seconds
+    'billsec',      #Billable seconds
+    skip(2),        #Cost
+    	            #Cost including taxes
+    'accountcode',  #Billing customer
+    skip(3),        #Billing customer name, Billing type, Billing reference
+  ],
+);
+
+sub skip { map {''} (1..$_[0]) }
+
+1;

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/cdr/{enswitch.pm => enswitch_calling_name.pm} |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
 copy FS/FS/cdr/{enswitch.pm => enswitch_calling_name.pm} (93%)




More information about the freeside-commits mailing list