r6160 - /scripts/qa/versioncheck-html

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Mon Jul 30 21:39:49 2007
New Revision: 6160

URL: http://svn.debian.org/wsvn/?sc=1&rev=6160
Log:
add last uploader and date as a title tag to the repository column

Modified:
    scripts/qa/versioncheck-html

Modified: scripts/qa/versioncheck-html
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck-html?rev=6160&op=diff
==============================================================================
--- scripts/qa/versioncheck-html (original)
+++ scripts/qa/versioncheck-html Mon Jul 30 21:39:49 2007
@@ -70,14 +70,20 @@
 for P in $(svn ls $REPO/trunk/); do
 	P=$(echo $P | sed -e 's;/;;')
 
+	# Get changelog from repo and version + last uploader
+	cat /dev/null > $DIR/changelog
+	svn cat $REPO/trunk/${P}/debian/changelog > $DIR/changelog
+	RE=$(grep -m 1 "$P.*unstable;" $DIR/changelog | perl -pe 's/.*\((.+)\).*/$1/')
+	UL=$(grep -m 1 "^ --" $DIR/changelog | perl -pe 's/^ -- (.+>)  (.*)/$1 ($2)/')
+	
+	# Get versions in Packages, incoming and NEW
 	PA=$(grep -A 1 $P $DIR/Packages | grep Version | perl -pe 's/Version: //')
-	RE=$(svn cat $REPO/trunk/${P}/debian/changelog | grep -m 1 "$P.*unstable;" | perl -pe 's/.*\((.+)\).*/$1/')
 	IN=$(grep "$P.*\.dsc" $DIR/incoming | perl -pe 's/.*_(.+)\.dsc.*/\1/')
 	NE=$(grep $P $DIR/newqueue | perl -pe "s/.*$P\s+([^\s]+)\s+source.*/\1/g")
 
 	# Get the watch file, mangling CPAN URLs to use
 	# our fast mirror
-	cat /dev/null > /$DIR/watch
+	cat /dev/null > $DIR/watch
 	svn cat $REPO/trunk/${P}/debian/watch \
 		| sed -e "s!^http://www.cpan.org/!$CPAN/!" \
 		| sed -e "s!^ftp://www.cpan.org/!$CPAN/!" \
@@ -113,8 +119,8 @@
 
 	if [ "$UPCUR" != "$UPNEW" -o "$RE" != "$PA" -a "$RE" != "$IN" -a "$RE" != "$NE" ]; then
 		echo "<tr>"
-		echo "<td><a href=\"http://packages.qa.debian.org/$P\">$P</a> <span style=\"font-size: smaller\"><a href=\"http://bugs.debian.org/src:$P\">bts</a></span></td>"
-		echo -n "<td"
+		echo "<td><a href=\"http://packages.qa.debian.org/$P\">$P</a> <span style=\"font-size: smaller\">[<a href=\"http://bugs.debian.org/src:$P\">BTS</a>]</span></td>"
+		echo -n "<td title='$UL'"
 		if [ "$RE" != "$PA" ] ; then
 			echo -n " class='upload'"
 		fi