use strict;
use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
use Time::Local;
-use FS::cdr;
+use FS::cdr qw ( _cdr_date_parser_maker );
use Date::Parse;
@ISA = qw(FS::cdr);
%info = (
'name' => 'ISPPhone',
'weight' => 123,
- 'header' => 2,
+ 'header' => 1,
'import_fields' => [
- 'src', # Form
- 'dst', # To
- 'upstream_dst_regionname', # Country
- 'dcontext', # Description
-
- sub { my ($cdr, $calldate) = @_;
- $cdr->set('calldate', $calldate);
+ 'accountcode', # Accountcode
+ sub { my ($cdr, $src) = @_;
+ $src =~ s/^\s+//;
+ $cdr->set('src', $src);
- my $tmp_date;
+ }, # Form
+ sub { my ($cdr, $dst) = @_;
+ $dst =~ s/^\s+//;
+ $cdr->set('dst', $dst);
- if ($calldate =~ /^(\d{2})\/(\d{2})\/(\d{2})\s*(\d{1,2}):(\d{2})$/){
-
- $tmp_date = "$2/$1/$3 $4:$5:$6";
-
- } else { $tmp_date = $calldate; }
-
- $tmp_date = str2time($tmp_date);
- $cdr->set('startdate', $tmp_date);
-
- }, #DateTime
+ }, # To
+ skip(1), # Country
+ 'upstream_dst_regionname', # Description
+_cdr_date_parser_maker('startdate'), #DateTime
sub { my ($cdr, $duration) = @_;
my ($min,$sec) = split(/:/, $duration);
);
+sub skip { map {''} (1..$_[0]) }
+
1;