Hello
I have added some lines to the wnpp.pl script (see commit below) so when it
fails, it shows the point of the process when the connection failed.
Kind regards,
--
Laura Arjona Reina
https://wiki.debian.org/LauraArjona
commit 2727d89ba5faed7d30faab1c58cf3b6e7c6fe841 (HEAD -> master, origin/master,
origin/HEAD)
Author: Laura Arjona Reina <larj...@debian.org>
Date: Wed Mar 2 11:40:34 2022 +0100
add messages and numbers to be shown when the connections to bugs.d.o fails
(related: bug #1006326 )
diff --git a/english/devel/wnpp/wnpp.pl b/english/devel/wnpp/wnpp.pl
index 53aff43cefc..ef34ff41c2d 100644
--- a/english/devel/wnpp/wnpp.pl
+++ b/english/devel/wnpp/wnpp.pl
@@ -40,10 +40,15 @@ while (<POPCON>) {
my $soap = SOAP::Lite->uri('Debbugs/SOAP')->proxy('https://bugs.debian.org/cgi-bin/soap.cgi')
or die "Couldn't make connection to SOAP interface: $@";
-my $bugs = $soap->get_bugs(package=>'wnpp')->result;
+my $bugs = $soap->get_bugs(package=>'wnpp')->result
+ or die "Failed to get the list of bugs for package wnpp";
my $status = {};
+my $count = 0;
+my $total = @$bugs;
while (my @slice = splice(@$bugs, 0, 500)) {
- my $tmp = $soap->get_status(@slice)->result() or die;
+ $count = $count + 1;
+ my $tmp = $soap->get_status(@slice)->result()
+ or die "Failed to get status for bunch $count (of 500 bugs), total bugs to
process: $total)";
%$status = (%$status, %$tmp);
}
