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 e256d6a..b6e713a 100644 (file)
--- 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);