From b9bb6c9ac6ca2246f30733d7c26d57ff97c91edb Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Wed, 11 Jan 2012 21:25:47 +0100 Subject: signoffs.pl: catch signoff errors Signed-off-by: Florian Pritz --- signoffs.pl | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) mode change 100644 => 100755 signoffs.pl (limited to 'signoffs.pl') diff --git a/signoffs.pl b/signoffs.pl old mode 100644 new mode 100755 index d908ada..a94d019 --- 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"; } } -- cgit v1.2.3-24-g4f1b