FS/FS/cdr/unitel.pm

   1 package FS::cdr::unitel;
   2
   3 use vars qw(@ISA %info);
   4 use FS::cdr;
   5
   6 @ISA = qw(FS::cdr);
   7
   8 %info = (
   9   'name'          => 'Unitel/RSLCOM',
  10   'weight'        => 500,
  11   'import_fields' => [
  12     'uniqueid',
  13     #'cdr_type',
  14     'cdrtypenum',
  15     'calldate', # may need massaging?  huh maybe not...
  16     #'billsec', #XXX duration and billsec?
  17                 sub { $_[0]->billsec(  $_[1] );
  18                       $_[0]->duration( $_[1] );
  19                     },
  20     'src',
  21     'dst', # XXX needs to have "+61" prepended unless /^\+/ ???
  22     'charged_party',
  23     'upstream_currency',
  24     'upstream_price',
  25     'upstream_rateplanid',
  26     'distance',
  27     'islocal',
  28     'calltypenum',
  29     'startdate',  #XXX needs massaging
  30     'enddate',    #XXX same
  31     'description',
  32     'quantity',
  33     'carrierid',
  34     'upstream_rateid',
  35   ]
  36 );
  37
  38 1;