[freeside-commits] freeside/FS/FS/part_export globalpops_voip.pm, 1.8, 1.9

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv30793

Modified Files:
	globalpops_voip.pm 
Log Message:
show a VoIP Innovations login error in the log, RT#15150

Index: globalpops_voip.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/globalpops_voip.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -d -r1.8 -r1.9
--- globalpops_voip.pm	12 Jan 2011 03:11:59 -0000	1.8
+++ globalpops_voip.pm	13 Feb 2012 04:45:18 -0000	1.9
@@ -60,6 +60,10 @@
   }
 
   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);