FS/FS/cdr/orcon.pm

   1 package FS::cdr::orcon;
   2
   3 use strict;
   4 use vars qw( @ISA %info);
   5 use FS::cdr;
   6
   7 @ISA = qw(FS::cdr);
   8
   9 %info = (
  10   'name'          => 'Orcon',
  11   'weight'        => 120,
  12   'header'        => 1,
  13   'import_fields' => [
  14
  15         skip(2),        #id
  16                         #billing period
  17         'accountcode',  #account number
  18         skip(2),        #username
  19                         #service id
  20         'calldate',     #date
  21         skip(1),        #tariff region
  22         'src',          #originating number
  23         'dst',          #terminating number
  24         'duration',      #duration actual
  25         'billsec',      #duration billed
  26         skip(1),        #discount
  27         'upstream_price',#charge
  28
  29   ],
  30 );
  31
  32 sub skip { map {''} (1..$_[0]) }
  33
  34 1;
  35