Bug#1074038: /usr/bin/who-uploads: who-uploads fetches accepted information from packages.qa.debian.org/$pefix/$package.html which does not get updates after lifts.debian.org upgrade

[gregor herrmann]

Control: tag -1 + patch

On Sat, 22 Jun 2024 09:05:47 +0200, Salvatore Bonaccorso wrote:

> I'm rather unsure if this more should be reported (cloned) as well for
> qa.debian.org. It looks that after the lists.d.o migration[1],
> packages.qa.debian.org does not get anymore updates on from the
> accepted list in the news rss feed, for instance see
> 
> https://packages.qa.debian.org/l/linux.html

Here's a patch to use tracker.d.o

(Admittedly the date parsing is not very elegant.)


Cheers,
gregor 

-- 
 .''`.  https://info.comodo.priv.at -- Debian Developer https://www.debian.org
 : :' : OpenPGP fingerprint D1E1 316E 93A7 60A8 104D  85FA BB3A 6801 8649 AA06
 `. `'  Member VIBE!AT & SPI Inc. -- Supporter Free Software Foundation Europe
   `-   

--- who-uploads.orig	2024-12-23 21:40:23.415410094 +0100
+++ who-uploads	2024-12-23 21:38:43.570707014 +0100
@@ -221,26 +221,25 @@
 for package; do
     echo "Uploads for $package:"
 
-    prefix=$(echo $package | sed -re 's/^((lib)?.).*$/\1/')
-    pkgurl="https://packages.qa.debian.org/${prefix}/${package}.html";
-    baseurl="https://packages.qa.debian.org/${prefix}/";
+    pkgurl="https://tracker.debian.org/pkg//${package}";
+    baseurl="https://tracker.debian.org";
 
     # only grab the actual "Accepted" news announcements; hopefully this
     # won't pick up many false positives
     WGETOPTS="-q -O - --timeout=30 "
     count=0
     for news in $(wget $WGETOPTS $pkgurl |
-                  sed -ne 's%^.*<a href="\('$package'/news/[0-9A-Z]*\.html\)">Accepted .*%\1%p'); do
+                  sed -ne 's%^.*<a href="\(/news/[0-9]\+/accepted-'$package'.*\)">.*$%\1%p'); do
 	HTML_TEXT=$(wget $WGETOPTS "$baseurl$news")
 	GPG_TEXT=$(echo "$HTML_TEXT" |
-	           sed -ne 's/^<pre>//; /-----BEGIN PGP SIGNED MESSAGE-----/,/-----END PGP SIGNATURE-----/p')
+	           sed -ne 's/^.*<pre>//; /-----BEGIN PGP SIGNED MESSAGE-----/,/-----END PGP SIGNATURE-----/p')
 
 	test -n "$GPG_TEXT" || continue
 
 	VERSION=$(echo "$GPG_TEXT" | awk '/^Version/ { print $2; exit }')
 	DISTRO=$(echo "$GPG_TEXT" | awk '/^Distribution/ { print $2; exit }')
 	if [ "$WANT_DATE" = "yes" ]; then
-	    DATE=$(echo "$HTML_TEXT" |  sed -ne 's%<li><em>Date</em>: \(.*\)</li>%\1%p')
+	    DATE=$(echo "$HTML_TEXT" | xargs | perl -ne 'print $1 if m%<li><b>Date</b>: (.+) </li>%;')
 	fi
 
 	GPG_ID=$(echo "$GPG_TEXT" | LC_ALL=C $GPG $GPG_NO_KEYRING --keyid-format long --verify 2>&1 |

signature.asc
Description: Digital Signature