FS/FS/cdr/earthlink.pm

   1 package FS::cdr::earthlink;
   2
   3 use strict;
   4 use vars qw( @ISA %info $date);
   5 use Time::Local;
   6 use FS::cdr qw(_cdr_date_parser_maker _cdr_min_parser_maker);
   7 use Date::Parse;
   8
   9 @ISA = qw(FS::cdr);
  10
  11 %info = (
  12   'name'          => 'Earthlink',
  13   'weight'        => 120,
  14   'header'        => 1,
  15   'import_fields' => [
  16
  17         skip(3),                        #Account number/ SERVICE LOC / BILL NUMBER
  18         sub { my($cdr, $date) = @_;
  19         $date;
  20         },                              #date
  21         sub { my($cdr, $time) = @_;
  22
  23         my $datetime = $date. " ". $time;
  24         $cdr->set('startdate', $datetime );
  25         },                              #time
  26         skip(1),                        #TollFreeNumber
  27         sub { my($cdr, $src) = @_;
  28         $src =~ s/\D//g;
  29         $cdr->set('src', $src);
  30         },                              #ORIG NUMBER
  31         skip(2),                        #ORIG CITY/ORIGSTATE
  32         sub { my($cdr, $dst) = @_;
  33         $dst =~ s/\D//g;
  34         $cdr->set('dst', $dst);
  35         },                              #TERM NUMBER
  36         skip(2),                        #TERM CITY / TERM STATE
  37         _cdr_min_parser_maker,          #MINUTES
  38         skip(1),                        #AMOUNT
  39         'disposition',                  #Call Type
  40         skip(1),                        #Seq
  41         'accountcode',                  #AcctCode
  42   ],
  43 );
  44
  45 sub skip { map {''} (1..$_[0]) }
  46
  47 1;
  48