From: levinse <levinse>
Date: Wed, 22 Jun 2011 20:17:29 +0000 (+0000)
Subject: cdr/kannel.pm: better debug, RT10991
X-Git-Tag: freeside_2_1_3~102
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=cf413c436657006c47adc8736843a00c890ed829;p=freeside.git

cdr/kannel.pm: better debug, RT10991
---

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;