RepoMirrors/mars
1
0
Fork 0
mirror of https://github.com/schoebel/mars synced 2025-02-07 07:41:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

marsadm: treat log-delete-all equally to log-delete

Browse Source 
Hopefully this does not break anything.
This commit is contained in:
Thomas Schoebel-Theuer 2012-09-27 09:48:48 +02:00 committed by Thomas Schoebel-Theuer
parent 06e6ff0973
commit fadaacef15
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
userspace/marsadm
View File

@ -630,10 +630,6 @@ sub logdelete_res {
my @paths = glob("$mars/resource-$res/log-*") or die "cannot find any logfiles\n";
@paths = sort(@paths);
my $max = _allowed_logdelete(@_);
# is there any splitbrain up to $max-1?
my $check_max = $max - 1;
$check_max = 0 if $check_max < 0;
check_splitbrain($res, "", $check_max) if ($cmd eq "log-delete-all" && !$force);
my $nr = 0;
for (;;) {
@ -645,11 +641,7 @@ sub logdelete_res {
print "chosen '$first' for deletion\n";
# is there any splitbrain up to $nr?
check_splitbrain($res, "", $nr) unless $cmd eq "log-delete-all";
_create_delete($first);
last unless $cmd eq "log-delete-all" && $nr + 1 < $max;
}
print "removing left-over version symlinks...\n";
foreach my $versionlink (glob("$mars/resource-$res/version-*")) {