From b46e36027717ba4468389429b0d71ef6273faf46 Mon Sep 17 00:00:00 2001 From: root Date: Tue, 25 Jul 2017 14:58:59 +0100 Subject: [PATCH] bin/ovh-api --- bin/ovh-api | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/bin/ovh-api b/bin/ovh-api index c2a73aed..804d7a1e 100755 --- 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{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; } -- 2.47.3