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 sub { my($cdr, $src) = @_;
29 $cdr->set('src', $src);
31 skip(2), #ORIG CITY/ORIGSTATE
32 sub { my($cdr, $dst) = @_;
34 $cdr->set('dst', $dst);
36 skip(2), #TERM CITY / TERM STATE
37 _cdr_min_parser_maker, #MINUTES
41 sub skip { map {''} (1..$_[0]) }