diff options
author | levinse <levinse> | 2011-06-22 20:17:28 +0000 |
---|---|---|
committer | levinse <levinse> | 2011-06-22 20:17:28 +0000 |
commit | 24dd36f332a78638644fd09fe55d17e1189e09da (patch) | |
tree | 9edc96cefb734861b52e6134fe9cd89e99ac0c76 /FS/FS | |
parent | 34f2a031405ba52afe98b52fc26da0654e29b201 (diff) |
cdr/kannel.pm: better debug, RT10991
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cdr/kannel.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/cdr/kannel.pm b/FS/FS/cdr/kannel.pm index 3e2e5653a..2f54ebe72 100644 --- a/FS/FS/cdr/kannel.pm +++ b/FS/FS/cdr/kannel.pm @@ -13,7 +13,7 @@ use FS::cdr qw( _cdr_date_parser_maker ); 'type' => 'csv', 'row_callback' => sub { my $row = shift; return ' ' if $row =~ /.*Log (begins|ends)$/; - die "invalid row format" unless + die "invalid row format for '$row'" unless $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:.*?\])$/; $row = "$1,$2,$3,$5,$7,$8,$9,$11"; $row; |