1 package FS::cdr::telapi_sms;
2 use base qw( FS::cdr );
5 use vars qw( @ISA %info $CDR_TYPES );
6 use FS::Record qw( qsearch );
7 use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
10 'name' => 'telapi_sms',
15 _cdr_date_parser_maker('startdate'), # date gmt
20 my($cdr, $cdrtypename, $conf, $param) = @_;
21 return unless length($cdrtypename);
23 die "no matching cdrtypenum for $cdrtypename"
24 unless defined $CDR_TYPES->{$cdrtypename};
25 $cdr->cdrtypenum($CDR_TYPES->{$cdrtypename});
31 sub skip { map {''} (1..$_[0]) }
36 foreach my $cdr_type ( qsearch('cdr_type') ) {
37 die "multiple cdr_types with same cdrtypename".$cdr_type->cdrtypename
38 if defined $CDR_TYPES->{$cdr_type->cdrtypename};
39 $CDR_TYPES->{$cdr_type->cdrtypename} = $cdr_type->cdrtypenum;