From 0aeefc7821956bcf6e6db5a5932b7e2b7ce4b029 Mon Sep 17 00:00:00 2001 From: Jeremy Davis Date: Tue, 26 May 2015 10:48:06 -0400 Subject: [PATCH] VSS CDR format mis-spelled --- FS/FS/cdr/vvs.pm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 FS/FS/cdr/vvs.pm diff --git a/FS/FS/cdr/vvs.pm b/FS/FS/cdr/vvs.pm new file mode 100644 index 000000000..63a647ee8 --- /dev/null +++ b/FS/FS/cdr/vvs.pm @@ -0,0 +1,33 @@ +package FS::cdr::vvs; + +use strict; +use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year ); +use Time::Local; +use FS::cdr qw(_cdr_date_parser_maker); + +@ISA = qw(FS::cdr); + +%info = ( + 'name' => 'VVS', + 'weight' => 120, + 'header' => 1, + 'import_fields' => [ + + skip(1), # i_customer + 'accountcode', # account_id + 'src', # caller + 'dst', # called + skip(2), # reason + # call id + _cdr_date_parser_maker('startdate'), # time + 'billsec', # duration + skip(3), # ringtime + # status + # resller_charge + 'upstream_price',# customer_charge + ], +); + +sub skip { map {''} (1..$_[0]) } + +1; -- 2.11.0