X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fglobalpops_voip.pm;h=6df21f40624fca43ea3d89cd545bf2806ddfed8d;hb=404f8f0494ab5fd2ff947bf82d085fed52c126c5;hp=b6e713ac92fca599da95cfe122edfde6852dec5c;hpb=3acaea77e979e4739ede4a93f09d6fbf50f78d7b;p=freeside.git

diff --git a/FS/FS/part_export/globalpops_voip.pm b/FS/FS/part_export/globalpops_voip.pm
index b6e713ac9..6df21f406 100644
--- a/FS/FS/part_export/globalpops_voip.pm
+++ b/FS/FS/part_export/globalpops_voip.pm
@@ -60,21 +60,23 @@ 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??
+    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 = ();
@@ -245,8 +247,11 @@ sub get_dids {
 sub gp_command {
   my( $self, $command, @args ) = @_;
 
-  eval "use Net::GlobalPOPs::MediaServicesAPI;";
-  die $@ if $@;
+  eval "use Net::GlobalPOPs::MediaServicesAPI 0.03;";
+  if ( $@ ) {
+    warn $@;
+    die $@;
+  }
 
   my $gp = Net::GlobalPOPs::MediaServicesAPI->new(
     'login'    => $self->option('login'),
@@ -354,7 +359,7 @@ sub _export_unsuspend {
 sub globalpops_voip_command {
   my($login, $password, $method, @args) = @_;
 
-  eval "use Net::GlobalPOPs::MediaServicesAPI;";
+  eval "use Net::GlobalPOPs::MediaServicesAPI 0.03;";
   die $@ if $@;
 
   my $gp = new Net::GlobalPOPs