marsadm: safeguard purge of recent logfiles

This commit is contained in:
Thomas Schoebel-Theuer 2020-11-06 08:06:57 +01:00
parent 6020414d25
commit 54226c78a7

View File

@ -3106,6 +3106,10 @@ sub log_purge_res {
$logs{$log} = -1;
next;
}
if (!$force && is_link_recent($log)) {
lprint " skipping recent object '$log'\n";
next;
}
if (!$force && $from ne $host) {
lprint " skipping foreign object '$log'\n";
next;