summaryrefslogtreecommitdiffstats
path: root/signoffs.pl
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2012-01-11 21:25:47 +0100
committerFlorian Pritz <bluewind@xinu.at>2012-01-11 21:25:47 +0100
commitb9bb6c9ac6ca2246f30733d7c26d57ff97c91edb (patch)
treebbdbeda77bfa59da73700ad58237ee1f7e307950 /signoffs.pl
parenta6d0fd47a9ab2eca5390936e22939bfc4cb8d93c (diff)
downloadbin-b9bb6c9ac6ca2246f30733d7c26d57ff97c91edb.tar.gz
bin-b9bb6c9ac6ca2246f30733d7c26d57ff97c91edb.tar.xz
signoffs.pl: catch signoff errors
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'signoffs.pl')
-rwxr-xr-x[-rw-r--r--]signoffs.pl14
1 files changed, 9 insertions, 5 deletions
diff --git a/signoffs.pl b/signoffs.pl
index d908ada..a94d019 100644..100755
--- a/signoffs.pl
+++ b/signoffs.pl
@@ -179,16 +179,20 @@ for my $id (split(" ", $input)) {
}
my $pkg = $installed_groups[$id];
- print "processing pkgbase $pkg->{pkgbase} ... ";
+ print "processing pkgbase $pkg->{pkgbase} ... \n";
my $url = "$Settings::domain/packages/$pkg->{repo}/$pkg->{arch}/$pkg->{pkgbase}/signoff/";
+ my $action = "signoff";
if ($pkg->{can_revoke}) {
- $mech->get("$url/revoke");
- print "revoked.\n";
- } else {
+ $action = "revoke";
+ $url .= "/revoke";
+ }
+ eval {
$mech->get($url);
- print "signed off.\n";
+ };
+ if ($@) {
+ print STDERR "Warning: failed to process $action: $@\n";
}
}