bin/ovh-api

diff --git a/bin/ovh-api b/bin/ovh-api
index c2a73aede244057c4b7daadd98fe0ca94a0f0f90..804d7a1ee357baf0d184bfceab940a8173651472 100755 (executable)
--- a/bin/ovh-api
+++ b/bin/ovh-api
@@ -147,10 +147,24 @@ sub ip_routed {
           my $routed = ip_routed($server->{address});
           next if $dbl{$routed->[0][0]}++;
 
+# NB 25.07.17: Handle muttiple status 
+        if (1) {
+          my $status;
+          for (my $i=0; $i<scalar(@{ $server->{serverState} }); $i++) {
+            $status = lc($server->{serverState}[$i]{status});
+            last if $status eq 'down';
+          }
+          #my $status = 'slave' if $server->{backup} and ! grep { $_ eq 'down' } @server;
+          #use Data::Dumper; warn Dumper($server);
+          $status = 'slave' if $server->{backup} and $status eq 'up';
+          $routed->[0][1] = $status if $status ne 'up';
+        } else {
           my $status = lc($server->{serverState}[0]{status});
+          #warn $server->{address} . ' ' . $status;
           $status = 'slave' if $server->{backup} and $status eq 'up';
 
           $routed->[0][1] = $status if $status ne 'up';
+        }
 
           push @routed,@$routed;
         }