From 3acaea77e979e4739ede4a93f09d6fbf50f78d7b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 13 Feb 2012 04:45:18 +0000
Subject: [PATCH] show a VoIP Innovations login error in the log, RT#15150

---
 FS/FS/part_export/globalpops_voip.pm | 4 ++++
 1 file changed, 4 insertions(+)

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);
-- 
2.11.0