Bug#1006326: issues connecting to https://bugs.debian.org/cgi-bin/soap.cgi (generation of wnpp related pages)

[Laura Arjona Reina <larjona@debian.org>]

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 <larjona@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);
 }