marsadm: warn on suspect cluster IP config

This commit is contained in:
Thomas Schoebel-Theuer 2021-10-20 13:19:47 +02:00
parent 5ffc57378c
commit 55c500bc43

View File

@ -2472,6 +2472,10 @@ sub get_alive_links {
foreach my $peer (keys(%peers)) {
my $stamp = get_alive_link("time", $peer, 2);
next if (!$stamp || $stamp !~ m/^\s*[0-9.]/ || is_recent($stamp));
my $ip_path = "$mars/ips/ip-$peer";
unless (get_link($ip_path, 1)) {
lwarn "Host '$peer' does not exist in $mars/ips/ - check your cluster configuration\n";
}
my $common = 0;
my @peer_resources = get_any_resources($peer);
foreach my $tmp_res (@peer_resources) {