diff options
author | Florian Pritz <bluewind@xinu.at> | 2012-01-11 21:25:47 +0100 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2012-01-11 21:25:47 +0100 |
commit | b9bb6c9ac6ca2246f30733d7c26d57ff97c91edb (patch) | |
tree | bbdbeda77bfa59da73700ad58237ee1f7e307950 /signoffs.pl | |
parent | a6d0fd47a9ab2eca5390936e22939bfc4cb8d93c (diff) | |
download | bin-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.pl | 14 |
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"; } } |