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         'accountcode',                  #Account number
  18               skip(2),                  #SERVICE LOC / BILL NUMBER
  19         sub { my($cdr, $date) = @_;
  20
  21         },                              #date
  22         sub { my($cdr, $time) = @_;
  23
  24         my $datetime = $date. " ". $time;
  25         $cdr->set('startdate', $datetime );
  26         },                              #time
  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   ],
  39 );
  40
  41 sub skip { map {''} (1..$_[0]) }
  42
  43 1;
  44