FS/FS/cdr/vss.pm

   1 package FS::cdr::vss;
   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'          => 'VSS',
  12   'weight'        => 120,
  13   'header'        => 1,
  14
  15   'header'        => 1,
  16   'import_fields' => [
  17
  18         skip(1),        # Customer
  19         skip(1),        # i_customer
  20         'accountcode',  # account_id
  21         'src',          # caller
  22         'dst',          # called
  23         skip(2),        # reason
  24                         # call id
  25         _cdr_date_parser_maker('startdate'),       # time
  26         'billsec',      # duration
  27         skip(3),        # ringtime
  28                         # status
  29                         # resller_charge
  30        'upstream_price',# customer_charge
  31   ],
  32 );
  33
  34 sub skip { map {''} (1..$_[0]) }
  35
  36 1;
  37