40361: Vocus CDR Format

1 files changed, 73 insertions, 0 deletions

diff --git a/FS/FS/cdr/vocus.pm b/FS/FS/cdr/vocus.pm
new file mode 100644
index 0000000..0de9942
--- /dev/null
+++ b/FS/FS/cdr/vocus.pm
@@ -0,0 +1,73 @@
+package FS::cdr::vocus;
+
+use strict;
+use vars qw( @ISA %info $CDR_TYPES );
+use FS::cdr qw( _cdr_date_parse );
+use FS::Record qw( qsearch );
+
+
+@ISA = qw(FS::cdr);
+
+%info = (
+  'name'          => 'Vocus',
+  'weight'        => 120,  
+  'import_fields' => [
+
+    #The first column is reserved for future use.
+    skip(1),
+    #The second column is the call identifier generated on our system.
+    'uniqueid',
+    #The third column is the date of the call in UTC.
+    'startdate',
+    #The fourth column is the time of the call in UTC.
+    sub {
+      # combine cols 3 & 4 and parse
+      my($cdr, $time, $conf, $param) = @_;
+      $cdr->startdate(_cdr_date_parse($cdr->startdate.' '.$time, gmt => 1));
+    },
+    #The fifth column is for Vocus use.
+    skip(1),
+    #The sixth column is the call duration in seconds.
+    'billsec',
+    #The seventh column is the calling number presented to our soft switch in E164 format.
+    'src',
+    #The eight column is the called number presented to our soft switch in E164 format.
+    'dst',
+    #The ninth column is the time and date at which the call was rated and the
+    #  CDR generated in our system. It's just there for your information.
+    skip(1),
+    #The tenth column is the SZU of the calling party.
+    'upstream_src_regionname',
+    #The eleventh column is the SZU of the called party, if applicable.
+    'upstream_dst_regionname',
+    #The twelfth column is the tariff type - Mobile, Regional, International,
+    #etc. This matches up with the tariff types under the Voice Access Point on your bill.
+    sub {
+      my($cdr, $cdrtypename, $conf, $param) = @_;
+      return unless length($cdrtypename);
+      _init_cdr_types();
+      die "no matching cdrtypenum for $cdrtypename"
+        unless defined $CDR_TYPES->{$cdrtypename};
+      $cdr->cdrtypenum($CDR_TYPES->{$cdrtypename});
+    },
+    #The thirteenth column is the cost of the call, ex GST.
+    'upstream_price',
+
+  ],
+);
+
+sub skip { map {''} (1..$_[0]) }
+
+sub _init_cdr_types {
+  unless ($CDR_TYPES) {
+    $CDR_TYPES = {};
+    foreach my $cdr_type ( qsearch('cdr_type') ) {
+      die "multiple cdr_types with same cdrtypename".$cdr_type->cdrtypename
+        if defined $CDR_TYPES->{$cdr_type->cdrtypename};
+      $CDR_TYPES->{$cdr_type->cdrtypename} = $cdr_type->cdrtypenum;
+    }
+  }
+}
+
+1;
+