1 package FS::cdr::earthlink;
4 use vars qw( @ISA %info $date);
6 use FS::cdr qw(_cdr_date_parser_maker _cdr_min_parser_maker);
12 'name' => 'Earthlink',
17 'accountcode', #Account number
18 skip(2), #SERVICE LOC / BILL NUMBER
19 sub { my($cdr, $date) = @_;
22 sub { my($cdr, $time) = @_;
24 my $datetime = $date. " ". $time;
25 $cdr->set('startdate', $datetime );
27 skip(1), #TollFreeNumber
28 sub { my($cdr, $src) = @_;
30 $cdr->set('src', $src);
32 skip(2), #ORIG CITY/ORIGSTATE
33 sub { my($cdr, $dst) = @_;
35 $cdr->set('dst', $dst);
37 skip(2), #TERM CITY / TERM STATE
38 _cdr_min_parser_maker, #MINUTES
42 sub skip { map {''} (1..$_[0]) }