if ($rec->{type} =~ /^(failover|dedicated)$/) {
push @routed, [ $rec->{routedTo}{serviceName}, 'master' ];
- push @routed, [ hostname(), 'slave' ] if grep {$_ eq $ip} @ips;
+ push @routed, [ hostname(), 'slave' ] if $rec->{routedTo}{serviceName} ne hostname() and grep {$_ eq $ip} @ips;
} elsif ($rec->{type} eq 'loadBalancing') {
next if $server->{status} ne 'active';
next if $dbl{$server->{address}}++;
+ #warn $server->{address};
#use Data::Dumper; warn Dumper($server);
my $routed = ip_routed($server->{address});
+ next if $dbl{$routed->[0][0]}++;
my $status = lc($server->{serverState}[0]{status});
$status = 'slave' if $server->{backup} and $status eq 'up';
$routed->[0][1] = $status if $status ne 'up';
+ #push @{$routed->[0]},$frontend->{type};
#next if $server->{backup};
push @routed,@$routed;