diff options
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"; } } |