if ($Opt{'ip-is-routed'}) {
my $localhost = hostname();
my @routed = ip_routed($Opt{'ip-is-routed'});
+ my $master = '';
+ my $slave = '';
+ for (grep {$_->[1] =~ /^(master|slave)$/} @routed) {
+ $master = $_->[0] and next if $_->[1] eq 'master';
+ $slave = $_->[0] and next if $_->[1] eq 'slave';
+ }
+ #exit $EXIT_ROUTED{none} unless $master;
+
+ print "$master\n" and exit $EXIT_ROUTED{master} if $master eq $localhost;
+ if ($master) {
+ print "$slave\n" and exit $EXIT_ROUTED{slave} if $slave eq $localhost;
+ } else {
+ print "$slave\n" and exit $EXIT_ROUTED{master} if $slave eq $localhost;
+ }
+ #print "$master\n" and exit $EXIT_ROUTED{slave} if @_ = grep {$_ eq $localhost} map {$_->[0]} grep {$_->[1] eq 'down'} @routed;
- print $_[0]."\n" and exit $EXIT_ROUTED{master} if @_ = grep {$_ eq $localhost} map {$_->[0]} grep {$_->[1] eq 'master'} @routed;
+ #print $_[0]."\n" and exit $EXIT_ROUTED{master} if @_ = grep {$_ eq $localhost} map {$_->[0]} grep {$_->[1] eq 'master'} @routed;
- print $_[0]."\n" and exit $EXIT_ROUTED{slave} if @_ = grep {$_ eq $localhost} map {$_->[0]} grep {$_->[1] eq 'slave'} @routed;
+ #print $_[0]."\n" and exit $EXIT_ROUTED{slave} if @_ = grep {$_ eq $localhost} map {$_->[0]} grep {$_->[1] eq 'slave'} @routed;
- print $_[0]."\n" and exit $EXIT_ROUTED{slave} if @_ = grep {$_ eq $localhost} map {$_->[0]} grep {$_->[1] eq 'down'} @routed;
+ #print $_[0]."\n" and exit $EXIT_ROUTED{slave} if @_ = grep {$_ eq $localhost} map {$_->[0]} grep {$_->[1] eq 'down'} @routed;
exit $EXIT_ROUTED{none};
}