1 package FS::cdr::ispphone;
4 use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
19 'upstream_dst_regionname', # Country
20 'dcontext', # Description
22 sub { my ($cdr, $calldate) = @_;
23 $cdr->set('calldate', $calldate);
27 if ($calldate =~ /^(\d{2})\/(\d{2})\/(\d{2})\s*(\d{1,2}):(\d{2})$/){
29 $tmp_date = "$2/$1/$3 $4:$5:$6";
31 } else { $tmp_date = $calldate; }
33 $tmp_date = str2time($tmp_date);
34 $cdr->set('startdate', $tmp_date);
38 sub { my ($cdr, $duration) = @_;
39 my ($min,$sec) = split(/:/, $duration);
40 my $billsec = $sec + $min * 60;
41 $cdr->set('billsec', $billsec);
43 }, #Charged time, min:sec
45 'upstream_price', # Amount ( upstream price )