- my ($src) = $row->{'caller_id'} =~ /^sip:(\d+)@/;
- my ($dst) = $row->{'callee_id'} =~ /^sip:(\d+)@/;
+
+ #i guess now we're NANPA-centric, but at least we warn on non-numeric numbers
+ my $src = '';
+ if ( $row->{'caller_id'} =~ /^sip:(\+1)?(\d+)@/ ) {
+ $src = $2;
+ } else {
+ warn "unparseable caller_id ". $row->{'caller_id'}. "\n";
+ }
+
+ my $dst = '';
+ if ( $row->{'callee_id'} =~ /^sip:(\+1)?(\d+)@/ ) {
+ $dst = $2;
+ } else {
+ warn "unparseable callee_id ". $row->{'callee_id'}. "\n";
+ }