FS/FS/cdr/zintel.pm

   1 package FS::cdr::zintel;
   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'          => 'Zintel',
  12   'weight'        => 123,
  13   'header'        => 1,
  14   'import_fields' => [
  15
  16         'accountcode',  #customer
  17         'src',          #anumber
  18         'dst',          #bnumber
  19         'calldate',     #datetime
  20         'billsec',      #duration
  21         skip(3),        #calltype
  22                         #status
  23                         #product
  24         'upstream_price',#sellprice
  25         skip(1),        #fromregion
  26         'upstream_src_regionname',              #fromarea
  27         skip(2),        #fromc2city
  28                         #toregion
  29         'upstream_dst_regionname',              #toarea
  30         skip(2),        #toc2city
  31                         #group_label
  32   ],
  33 );
  34
  35 sub skip { map {''} (1..$_[0]) }
  36
  37 1;
  38