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:- }</td>"
+ echo "<td>${PA:- }</td>"
+ echo "<td>${IN:- }</td>"
+ echo "<td>${NE:- }</td>"
+ if [ "$UPCUR" != "$UPNEW" ] ; then
+ echo "<td>$UPNEW</td>"
+ else
+ echo "<td> </td>"
+ fi
echo "</tr>"
fi
+
+ rm $WATCH
done
done
More information about the Pkg-perl-cvs-commits
mailing list