FS/FS/cdr/ispphone.pm

   1 package FS::cdr::ispphone;
   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 use Date::Parse;
   8
   9 @ISA = qw(FS::cdr);
  10
  11 %info = (
  12   'name'          => 'ISPPhone',
  13   'weight'        => 123,
  14   'header'        => 1,
  15   'import_fields' => [
  16
  17                  'accountcode',  # Accountcode
  18                          'src',  # Form
  19                          'dst',  # To
  20                        skip(1),  # Country
  21      'upstream_dst_regionname',  # Description
  22 _cdr_date_parser_maker('startdate'),  #DateTime
  23
  24                         sub { my ($cdr, $duration) = @_;
  25                                 my ($min,$sec) = split(/:/, $duration);
  26                                 my $billsec = $sec + $min * 60;
  27                                 $cdr->set('billsec', $billsec);
  28
  29                         },       #Charged time, min:sec
  30
  31               'upstream_price',  # Amount ( upstream price )
  32 ],
  33
  34 );
  35
  36 sub skip { map {''} (1..$_[0]) }
  37
  38 1;
  39