FS/FS/cdr/unitel.pm

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