r5856 - /scripts/qa/versioncheck-html
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed Jul 18 14:37:12 UTC 2007
Author: dmn
Date: Wed Jul 18 14:37:12 2007
New Revision: 5856
URL: http://svn.debian.org/wsvn/?sc=1&rev=5856
Log:
Add -html variant of versioncheck
Added:
scripts/qa/versioncheck-html
- copied, changed from r5855, scripts/qa/versioncheck
Copied: scripts/qa/versioncheck-html (from r5855, scripts/qa/versioncheck)
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck-html?rev=5856&op=diff
==============================================================================
--- scripts/qa/versioncheck (original)
+++ scripts/qa/versioncheck-html Wed Jul 18 14:37:12 2007
@@ -15,6 +15,11 @@
wget -q -O- http://incoming.debian.org | html2text -nobs -width 255 > $DIR/incoming
wget -q -O- http://ftp-master.debian.org/new.html | html2text -nobs -width 255 > $DIR/newqueue
+echo "<html>"
+echo "<body>"
+echo "<table>"
+echo "<tr><th>Package</th><th>Repository</th><th>Archive</th><th>Incoming</th><th>NEW</th></tr>"
+
# loop over packages
for SECTION in packages tools; do
for P in $(svn ls $REPO/$SECTION/); do
@@ -27,16 +32,21 @@
NE=$(grep $P $DIR/newqueue | perl -pe "s/.*$P\s+([^\s]+)\s+source.*/\1/g")
if [ "$RE" != "$PA" -a "$RE" != "$IN" -a "$RE" != "$NE" ]; then
- echo "$P ==>"
- echo -e "\trepository: $RE"
- echo -e "\tpackages: $PA"
- [ -n "$IN" ] && echo -e "\tincoming: $IN"
- [ -n "$NE" ] && echo -e "\tnew: $NE"
+ 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 "</tr>"
fi
done
done
+echo "</table>"
+echo "</body>"
+
rm -rf $DIR
exit 0
More information about the Pkg-perl-cvs-commits
mailing list