From: ivan <ivan>
Date: Mon, 13 Feb 2012 04:45:18 +0000 (+0000)
Subject: show a VoIP Innovations login error in the log, RT#15150
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3acaea77e979e4739ede4a93f09d6fbf50f78d7b

show a VoIP Innovations login error in the log, RT#15150
---

diff --git a/FS/FS/part_export/globalpops_voip.pm b/FS/FS/part_export/globalpops_voip.pm
index e256d6a40..b6e713ac9 100644
--- a/FS/FS/part_export/globalpops_voip.pm
+++ b/FS/FS/part_export/globalpops_voip.pm
@@ -60,6 +60,10 @@ sub get_dids {
   }
 
   my $dids = $self->gp_command('getDIDs', %getdids);
+  if ( $dids->{'type'} eq 'Error' ) {
+    die "Error running VoIP Innovations getDIDs: ".
+        $search->{'statuscode'}. ': '. $search->{'status'}; #die??
+  }
 
   #use Data::Dumper;
   #warn Dumper($dids);