diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-12-20 18:25:07 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-12-20 18:25:07 -0800 |
commit | 89bdc751a892188eebca4a193c8e8e37af8efc35 (patch) | |
tree | 13581a3026ae086cf2ecad728e59db1017f50ba3 /FS/FS/part_export | |
parent | ef644359f646efb69ecb4c74d55fee05107dad11 (diff) |
fix state selection w/voip innovations API, add better error logging, RT#15150
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/globalpops_voip.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/FS/FS/part_export/globalpops_voip.pm b/FS/FS/part_export/globalpops_voip.pm index 9fe45ba0a..59e0bc46f 100644 --- a/FS/FS/part_export/globalpops_voip.pm +++ b/FS/FS/part_export/globalpops_voip.pm @@ -5,6 +5,7 @@ use Tie::IxHash; use FS::Record qw(qsearch dbh); use FS::part_export; use FS::phone_avail; +use Data::Dumper; @ISA = qw(FS::part_export); @@ -74,8 +75,13 @@ sub get_dids { if ( $search->{'statuscode'} == 302200 ) { return []; } elsif ( $search->{'statuscode'} != 100 ) { - my $error = "Error running VoIP Innovations getDIDs: ". - $search->{'statuscode'}. ': '. $search->{'status'}. "\n"; + + my $error = "Error running VoIP Innovations getDIDs: "; + if ( $search->{'statuscode'} || $search->{'status'} ) { + $error .= $search->{'statuscode'}. ': '. $search->{'status'}. "\n"; + } else { + $error .= Dumper($search); + } warn $error; die $error; } |