From bb617352f82b87f1d2819d2b51e1893d9ed0947d Mon Sep 17 00:00:00 2001
From: root <sys@15gifts.com>
Date: Mon, 24 Jul 2017 09:12:23 +0100
Subject: [PATCH] bin/ovh-api

---
 bin/ovh-api | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/bin/ovh-api b/bin/ovh-api
index fe681bc1..231ca9ed 100755
--- 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";
-- 
2.47.3