openbsd/ports
1
0
Fork 0
mirror of https://github.com/openbsd/ports.git synced 2026-06-17 23:13:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add external control command "wipe-all"

Browse Source 
This control command wiped all packages in an error state.

Tweak and OK espie, positive feedback from many
This commit is contained in:
rsadowski
2026-01-01 08:36:40 +00:00
parent 6352d53fe7
commit 30db293b33
1 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
infrastructure/lib/DPB/External.pm
+20 -1
View File
@@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: External.pm,v 1.32 2023/10/17 08:03:53 espie Exp $
# $OpenBSD: External.pm,v 1.33 2026/01/01 08:36:40 rsadowski Exp $
#
# Copyright (c) 2017 Marc Espie <espie@openbsd.org>
#
@@ -134,6 +134,22 @@ sub stub_out($self, $fh, $p)
}
}
sub wipe_all($self, $fh)
{
my $state = $self->{state};
my $engine = $state->engine;
my $errors = $engine->{errors};
if (@$errors == 0) {
$fh->print("No packages in error state\n");
return;
}
for my $v (@$errors) {
$self->wipe($fh, $v->fullpkgpath);
}
}
sub wipehost($self, $fh, $h)
{
# kill the stuff that's running
@@ -211,6 +227,8 @@ sub handle_command($self, $line, $fh)
join(" ", @{$state->{bad_paths}}), "\n");
delete $state->{bad_paths};
}
} elsif ($line =~ m/^wipe-all\b/) {
$self->wipe_all($fh);
} elsif ($line =~ m/^wipe\s+(.*)/) {
for my $p (split(/\s+/, $1)) {
$self->wipe($fh, $p);
@@ -245,6 +263,7 @@ sub handle_command($self, $line, $fh)
"\tstub <fullpkgpath>...\n",
"\tsummary [<logname>]\n",
"\twipe <fullpkgpath>...\n",
"\twipe-all\n",
"\twipehost <hostname>...\n"
);
} else {