1 package FS::cdr::thinq;
4 use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
5 use base qw( FS::cdr );
16 'disabled' => 0, #0 default, set to 1 to disable
22 sub { my($cdr, $date) = @_;
23 $date =~ /^(\d\d(\d\d)?)\-(\d{1,2})\-(\d{1,2})$/
24 or die "unparsable date: $date"; #maybe we shouldn't die...
25 ($tmp_mday, $tmp_mon, $tmp_year) = ( $4, $3-1, $1 );
29 sub { my($cdr, $time) = @_;
30 $time =~ /^(\d{1,2}):(\d{1,2}):(\d{1,2})$/
31 or die "unparsable time: $time"; #maybe we shouldn't die...
33 timelocal($3, $2, $1 ,$tmp_mday, $tmp_mon, $tmp_year)
37 'carrierid', # carrier_id
45 'channel', # thing_tier
47 'accountcode', # account_id
53 skip(1), #total_charge
58 sub skip { map { undef } (1..$_[0]) }