From 97184f42bde6c9c305f200778cf9073fdc323963 Mon Sep 17 00:00:00 2001 From: Jeremy Davis Date: Mon, 12 May 2014 12:48:37 -0400 Subject: [PATCH] 28977 VSS CDR format --- FS/FS/cdr/vss.pm | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 FS/FS/cdr/vss.pm diff --git a/FS/FS/cdr/vss.pm b/FS/FS/cdr/vss.pm new file mode 100644 index 000000000..b07be2b44 --- /dev/null +++ b/FS/FS/cdr/vss.pm @@ -0,0 +1,35 @@ +package FS::cdr::vss; + +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' => 'VSS', + 'weight' => 120, + 'header' => 1, + 'import_fields' => [ + + skip(1), # Customer + skip(1), # i_customer + 'accountcode', # account_id + 'src', # caller + 'dst', # called + skip(1), # reason +# _cdr_date_parser_maker('startdate'), # time + 'calldate', + 'billsec', # duration + skip(3), # ringtime + # status + # resller_charge + 'upstream_price',# customer_charge + ], +); + +sub skip { map {''} (1..$_[0]) } + +1; + -- 2.11.0