r6160 - /scripts/qa/versioncheck-html
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Mon Jul 30 21:39:49 UTC 2007
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
More information about the Pkg-perl-cvs-commits
mailing list