r10940 - /scripts/qa/wnppcheck
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Fri Dec 7 01:06:13 UTC 2007
Author: gregoa-guest
Date: Fri Dec 7 01:06:13 2007
New Revision: 10940
URL: http://svn.debian.org/wsvn/?sc=1&rev=10940
Log:
valid HTML doesn't hurt
Modified:
scripts/qa/wnppcheck
Modified: scripts/qa/wnppcheck
URL: http://svn.debian.org/wsvn/scripts/qa/wnppcheck?rev=10940&op=diff
==============================================================================
--- scripts/qa/wnppcheck (original)
+++ scripts/qa/wnppcheck Fri Dec 7 01:06:13 2007
@@ -5,13 +5,15 @@
URL="http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=pkg&data=wnpp&archive=no&show_list_header=no&show_list_footer=no&version=&pend-inc=pending&pend-exc=forwarded&pend-exc=pending-fixed&pend-exc=fixed&pend-exc=done&exclude=wontfix"
-echo "<html><h1>WNPP bugs wrt lib*-perl</h1><pre>"
+echo "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>"
+echo "<html><head><title>WNPP bugs wrt lib*-perl</title></head>"
+echo "<body><h1>WNPP bugs wrt lib*-perl</h1><pre>"
wget -q -O - "$URL" | \
sed -e '/H2.*Forwarded/,$ d' | \
html2text -nobs -width 255 | \
egrep -A 1 "\#.+lib.+-perl" | \
- sed -e 's/_/ /g' -e '/^--$/ d' | \
+ sed -e 's/_/ /g' -e 's/</\</g' -e 's/>/\>/g' -e '/^--$/ d' | \
sed -e 's;#\([0-9]\+\);<a href="http://bugs.debian.org/\1">#\1</a>;g'
-echo "</pre></html>"
+echo "</pre></body></html>"
exit 0
More information about the Pkg-perl-cvs-commits
mailing list