1 package FS::cdr::kannel;
4 use vars qw( @ISA %info );
5 use FS::cdr qw( _cdr_date_parser_maker );
14 'row_callback' => sub { my $row = shift;
15 return ' ' if $row =~ /.*Log (begins|ends)$/;
16 die "invalid row format for '$row'" unless
17 $row =~ /^(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}) ([A-Za-z ]+) (\[SMSC:\w+\] \[SVC:\w*\] \[ACT:\w*\] \[BINF:\w*\] \[FID:\w*\]) \[from:(|\+)(\d+)\] \[to:(|\+)(\d+)\] (\[flags:.*?\]) \[msg:(\d+):(.*?)\] (\[udh:.*?\])$/;
18 $row = "$1,$2,$3,$5,$7,$8,$9,$11";
22 _cdr_date_parser_maker('startdate'),
24 'userfield', # [SMSC: ... FID...], five fields
28 sub { my($cdr, $flags) = @_;
29 $cdr->userfield($cdr->userfield." $flags");
32 # setting billsec to the msg length as we need billsec set non-zero
35 sub { my($cdr, $udh) = @_;
36 $cdr->userfield($cdr->userfield." $udh");
41 sub skip { map {''} (1..$_[0]) }