FS/FS/cdr/vvs.pm

   1 package FS::cdr::vvs;
   2
   3 use strict;
   4 use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
   5 use Time::Local;
   6 use FS::cdr qw(_cdr_date_parser_maker);
   7
   8 @ISA = qw(FS::cdr);
   9
  10 %info = (
  11   'name'          => 'VVS',
  12   'weight'        => 120,
  13   'header'        => 1,
  14   'import_fields' => [
  15
  16         skip(1),        # i_customer
  17         'accountcode',  # account_id
  18         'src',          # caller
  19         'dst',          # called
  20         skip(2),        # reason
  21                         # call id
  22         _cdr_date_parser_maker('startdate'),       # time
  23         'billsec',      # duration
  24         skip(2),        # ringtime
  25                         # reseller_charge
  26        'upstream_price',# customer_charge
  27   ],
  28 );
  29
  30 sub skip { map {''} (1..$_[0]) }
  31
  32 1;