bin/ovh-api

diff --git a/bin/ovh-api b/bin/ovh-api
index fe681bc190b0e91b96a1b5a84cca4614bf90237e..231ca9ed886da6534dd0ea86959621b0ce0291a0 100755 (executable)
--- a/bin/ovh-api
+++ b/bin/ovh-api
@@ -113,7 +113,7 @@ sub hostname {
 
 sub ip_routed {
   my $ip = shift @_;
-  my $rec = query("/ip/$ip") or exit 1;
+  my $rec = query("/ip/$ip") or exit 9;
   my @routed;
   my %dbl;
   my @ips = ips();
@@ -124,20 +124,20 @@ sub ip_routed {
 
   } elsif ($rec->{type} eq 'loadBalancing') {
 
-    my $frontends = query("/ipLoadbalancing/ip-$ip/frontend") or exit 1;
+    my $frontends = query("/ipLoadbalancing/ip-$ip/frontend") or exit 9;
 
     for my $frontend_id (@$frontends) {
 
-      my $frontend = query("/ipLoadbalancing/ip-$ip/frontend/$frontend_id") or exit 1;
+      my $frontend = query("/ipLoadbalancing/ip-$ip/frontend/$frontend_id") or exit 9;
       #next if $frontend->{defaultBackendId};
       next if $frontend->{disabled} ne 'false';
 
-      my $farms = query("/ipLoadbalancing/ip-$ip/".$frontend->{type}."/farm") or exit 1;
+      my $farms = query("/ipLoadbalancing/ip-$ip/".$frontend->{type}."/farm") or exit 9;
       for my $farm_id (@$farms) {
 
-        my $servers = query("/ipLoadbalancing/ip-$ip/".$frontend->{type}."/farm/$farm_id/server") or exit 1;
+        my $servers = query("/ipLoadbalancing/ip-$ip/".$frontend->{type}."/farm/$farm_id/server") or exit 9;
         for my $id_server (@$servers) {
-          my $server = query("/ipLoadbalancing/ip-$ip/".$frontend->{type}."/farm/$farm_id/server/$id_server") or exit 1;
+          my $server = query("/ipLoadbalancing/ip-$ip/".$frontend->{type}."/farm/$farm_id/server/$id_server") or exit 9;
 
           next if $server->{status} ne 'active';
           next if $dbl{$server->{address}}++;
@@ -177,7 +177,7 @@ sub ip_move {
 
   my $localhost = hostname();
 
-  my $rec = query("/ip/$ip") or exit 1;
+  my $rec = query("/ip/$ip") or exit 9;
 
   my $type = $rec->{type};
   $type eq 'failover' or die "$ip $type is not an ip failover!\n";