From 86fef78e630bcabc94d49a640f37c9ad158462e9 Mon Sep 17 00:00:00 2001
From: Thomas Schoebel-Theuer <tst@1und1.de>
Date: Mon, 28 May 2018 07:14:20 +0200
Subject: [PATCH] marsadm: remove outdated split-cluster remains

---
 userspace/marsadm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/userspace/marsadm b/userspace/marsadm
index 4b37886d..24f54fb8 100755
--- a/userspace/marsadm
+++ b/userspace/marsadm
@@ -2926,6 +2926,23 @@ sub logdelete_res {
     next unless $nrv < $max_deletable - 1;
     _create_delete($versionlink);
   }
+
+  # remove outdated split-cluster remains
+  my %peers;
+  foreach my $path (glob("$mars/ips/ip-*")) {
+    $path =~ m:/ip-(.*):;
+    my $peer = $1;
+    $peers{$peer} = 1;
+  }
+  foreach my $leftlink (glob("$mars/{,resource-$res/}todo-*/deleted-*")) {
+    $leftlink =~ m:/deleted-(.*):;
+    my $peer = $1;
+    next if $peers{$peer};
+    my $stamp = get_link_stamp($leftlink);
+    next unless $stamp + 3600 < $start_time;
+    lprint "  unlink '$leftlink'\n" if $verbose;
+    unlink($leftlink);
+  }
 }
 
 sub cron_res {