cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more user input validation: dead hosts can't wipe

Browse Source
This commit is contained in:
espie 2019-05-15 13:55:46 +00:00
parent 7443990ca9
commit 64ea107e2b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
infrastructure/lib/DPB/External.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: External.pm,v 1.17 2019/05/15 13:53:17 espie Exp $
# $OpenBSD: External.pm,v 1.18 2019/05/15 13:55:46 espie Exp $
#
# Copyright (c) 2017 Marc Espie <espie@openbsd.org>
#
@ -89,7 +89,9 @@ sub wipe
}
my $h = DPB::Host->retrieve($info->{host});
if (!defined $h) {
$fh->print("Can't run wipe on $info->{host}\n");
$fh->print("Can't wipe on $info->{host}: no such host\n");
} elsif (!$h->is_alive) {
$h->print("Can't wipe on $info->{host}: host is AWOL\n");
} else {
$fh->print("cleaning up $info->{locked}\n");
my $w = DPB::PkgPath->new($info->{locked});