From 05fc2e8ad51ec7910e6168c6bf0b662109cfe1a1 Mon Sep 17 00:00:00 2001
From: Thomas Schoebel-Theuer <tst@1und1.de>
Date: Thu, 4 Apr 2019 16:18:43 +0200
Subject: [PATCH] marsadm: primary cannot be orphan by definition

Avoid false alarms.
---
 userspace/marsadm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/userspace/marsadm b/userspace/marsadm
index 42a75641..cb8cfe7e 100755
--- a/userspace/marsadm
+++ b/userspace/marsadm
@@ -4308,6 +4308,7 @@ sub eval_fn {
     if (/^is[-_]?orphan$/) {
       my $peer = parse_macro($arg1, $env);
       $peer = $$env{"host"} unless $peer;
+      return 0 if eval_fn($env, "is-primary", $peer);
       my $replay  = get_link($$env{"resdir"} . "/replay-$peer", 1);
       $replay =~ m/^(log-[^,]+),([0-9]*)/;
       my $logfile = $$env{"resdir"} . "/" . $1;
@@ -4396,7 +4397,9 @@ sub eval_fn {
       my $what = $1;
       my $is = "is";
       $is = "has" if $what eq "emergency";
-      my $lnk = $$env{"resdir"} . "/actual-" . $$env{"host"} . "/$is-$what";
+      my $peer = parse_macro($arg1, $env);
+      $peer = $$env{"host"} unless $peer;
+      my $lnk = $$env{"resdir"} . "/actual-$peer/$is-$what";
       $lnk = correct_path($lnk);
       return get_link($lnk, 1);
     }