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

[Ivan,,,]

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

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.9
retrieving revision 1.10
diff -u -w -d -r1.9 -r1.10
--- globalpops_voip.pm	13 Feb 2012 04:45:18 -0000	1.9
+++ globalpops_voip.pm	13 Feb 2012 05:06:50 -0000	1.10
@@ -60,21 +60,23 @@
   }
 
   my $dids = $self->gp_command('getDIDs', %getdids);
+
   if ( $dids->{'type'} eq 'Error' ) {
-    die "Error running VoIP Innovations getDIDs: ".
-        $search->{'statuscode'}. ': '. $search->{'status'}; #die??
+    my $error =  "Error running VoIP Innovations getDIDs: ".
+        $dids->{'statuscode'}. ': '. $dids->{'status'}. "\n";
+    warn $error;
+    die $error;
   }
 
-  #use Data::Dumper;
-  #warn Dumper($dids);
-
   my $search = $dids->{'search'};
 
   if ( $search->{'statuscode'} == 302200 ) {
     return [];
   } elsif ( $search->{'statuscode'} != 100 ) {
-    die "Error running VoIP Innovations getDIDs: ".
-        $search->{'statuscode'}. ': '. $search->{'status'}; #die??
+    my $error = "Error running VoIP Innovations getDIDs: ".
+                 $search->{'statuscode'}. ': '. $search->{'status'}. "\n";
+    warn $error;
+    die $error;
   }
 
   my @return = ();
@@ -246,7 +248,10 @@
   my( $self, $command, @args ) = @_;
 
   eval "use Net::GlobalPOPs::MediaServicesAPI;";
-  die $@ if $@;
+  if ( $@ ) {
+    warn $@;
+    die $@;
+  }
 
   my $gp = Net::GlobalPOPs::MediaServicesAPI->new(
     'login'    => $self->option('login'),