1 package FS::cdr::zintel;
4 use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
6 use FS::cdr qw(_cdr_date_parser_maker);
17 'accountcode', #customer
19 sub { my ($cdr, $dst) = @_; # Handling cosolidated local calls in the CDR formats
23 if ($dst =~ /^64\/U$/) {
24 $cdr->set('dst', $src);
26 $cdr->set('dst', $dst);
30 sub { my ($cdr, $calldate) = @_;
31 $cdr->set('calldate', $calldate);
33 $calldate =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
34 or die "unparseable date: $calldate";
35 my $tmp_date = "$2/$1/$3 $4:$5:$6";
37 $tmp_date = str2time($tmp_date);
38 $cdr->set('startdate', $tmp_date);
45 'upstream_price',#sellprice
47 'upstream_src_regionname', #fromarea
50 'upstream_dst_regionname', #toarea
56 sub skip { map {''} (1..$_[0]) }