r5860 - /scripts/qa/versioncheck-html

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Wed Jul 18 16:06:22 UTC 2007


Author: gregoa-guest
Date: Wed Jul 18 16:06:22 2007
New Revision: 5860

URL: http://svn.debian.org/wsvn/?sc=1&rev=5860
Log:
add uscan/watchfile functionality to versioncheck-html

Modified:
    scripts/qa/versioncheck-html

Modified: scripts/qa/versioncheck-html
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck-html?rev=5860&op=diff
==============================================================================
--- scripts/qa/versioncheck-html (original)
+++ scripts/qa/versioncheck-html Wed Jul 18 16:06:22 2007
@@ -18,7 +18,7 @@
 echo "<html>"
 echo "<body>"
 echo "<table border=\"1\">"
-echo "<tr><th>Package</th><th>Repository</th><th>Archive</th><th>Incoming</th><th>NEW</th></tr>"
+echo "<tr><th>Package</th><th>Repository</th><th>Archive</th><th>Incoming</th><th>NEW</th><th>upstream</th></tr>"
 
 # loop over packages
 for SECTION in packages tools; do
@@ -30,16 +30,27 @@
 		RE=$(svn cat $REPO/$SECTION/${P}/trunk/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")
+		WATCH=$(mktemp -t watch.XXXXXXXXXX)
+		svn cat $REPO/$SECTION/${P}/trunk/debian/watch > $WATCH
+		UPCUR=$(echo $PA | perl -pe 's/^(?:\d:)?(.+)-[^-]+$/\1/')
+		UPNEW=$(uscan --watchfile $WATCH --upstream-version $UPCUR --package $P --report-status | perl -ne 'print if s/Newest version on remote site is (.+),.*/\1/')
 
-		if [ "$RE" != "$PA" -a "$RE" != "$IN" -a "$RE" != "$NE" ]; then
+		if [ "$UPCUR" != "$UPNEW" -o "$RE" != "$PA" -a "$RE" != "$IN" -a "$RE" != "$NE" ]; then
 			echo "<tr>"
 			echo "<td>$P</td>"
-			echo "<td>$RE</td>"
-			echo "<td>$PA</td>"
-			[ -n "$IN" ] && echo "<td>$IN</td>"
-			[ -n "$NE" ] && echo "<td>$NE</td>"
+			echo "<td>${RE:-&nbsp;}</td>"
+			echo "<td>${PA:-&nbsp;}</td>"
+			echo "<td>${IN:-&nbsp;}</td>"
+			echo "<td>${NE:-&nbsp;}</td>"
+			if [ "$UPCUR" != "$UPNEW" ] ; then 
+				echo "<td>$UPNEW</td>"
+			else
+				echo "<td>&nbsp;</td>"
+			fi
 			echo "</tr>"
 		fi
+		
+		rm $WATCH
 		
 	done
 done




More information about the Pkg-perl-cvs-commits mailing list