r5647 - in /scripts/qa: ./ commoncheck maintainercheck versioncheck wnppcheck

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Fri Jun 22 20:08:28 2007
New Revision: 5647

URL: http://svn.debian.org/wsvn/?sc=1&rev=5647
Log:
Add scripts/qa directory and scripts

Added:
    scripts/qa/
    scripts/qa/commoncheck
    scripts/qa/maintainercheck   (with props)
    scripts/qa/versioncheck   (with props)
    scripts/qa/wnppcheck   (with props)

Added: scripts/qa/commoncheck
URL: http://svn.debian.org/wsvn/scripts/qa/commoncheck?rev=5647&op=file
==============================================================================
--- scripts/qa/commoncheck (added)
+++ scripts/qa/commoncheck Fri Jun 22 20:08:28 2007
@@ -1,0 +1,16 @@
+# defaults
+REPO=svn://svn.debian.org/svn/pkg-perl
+MIRROR=ftp://ftp.debian.org
+
+# special hosts
+HOST=$(hostname)
+case $HOST in
+	belanna|nerys)
+		MIRROR=ftp://ftp.at.debian.org
+		;;
+	alioth)
+		REPO=file:///svn/pkg-perl
+		MIRROR=ftp://ftp.nl.debian.org
+		;;
+esac
+

Added: scripts/qa/maintainercheck
URL: http://svn.debian.org/wsvn/scripts/qa/maintainercheck?rev=5647&op=file
==============================================================================
--- scripts/qa/maintainercheck (added)
+++ scripts/qa/maintainercheck Fri Jun 22 20:08:28 2007
@@ -1,0 +1,20 @@
+#!/bin/sh
+
+# Copyright gregor herrmann <gregor+debian at comodo.priv.at>, 2007
+# Released under the terms of the GNU GPL 2
+
+. commoncheck
+
+for P in $(svn ls $REPO/packages/); do
+	P=${P%/}
+	[ "$P" = "attic" ] && continue
+	CONTROL="$(mktemp).$P.control"
+	svn export $REPO/packages/$P/trunk/debian/control $CONTROL > /dev/null
+	if ! grep "Maintainer:.*pkg-perl-maintainers at lists\.alioth\.debian\.org" $CONTROL > /dev/null ; then
+		echo $P
+		egrep "(Maintainer|Uploaders)" $CONTROL | sort
+		echo
+	fi
+	rm -f $CONTROL
+done
+

Propchange: scripts/qa/maintainercheck
------------------------------------------------------------------------------
    svn:executable = *

Added: scripts/qa/versioncheck
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck?rev=5647&op=file
==============================================================================
--- scripts/qa/versioncheck (added)
+++ scripts/qa/versioncheck Fri Jun 22 20:08:28 2007
@@ -1,0 +1,42 @@
+#!/bin/sh
+
+# Copyright gregor herrmann <gregor+debian at comodo.priv.at>, 2007
+# Released under the terms of the GNU GPL 2
+
+. commoncheck
+
+# get basic info
+DIR=$(mktemp -d)
+echo > $DIR/Packages
+for BRANCH in main contrib non-free; do
+	wget -q -O- $MIRROR/debian/dists/unstable/$BRANCH/source/Sources.gz | gzip -d | egrep "^(Package|Version)" >> $DIR/Packages
+done
+
+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
+
+# loop over packages
+for SECTION in packages tools; do
+	for P in $(svn ls $REPO/$SECTION/); do
+		P=$(echo $P | sed -e 's;/;;')
+		[ "$P" = "attic" ] && continue
+
+		PA=$(grep -A 1 $P $DIR/Packages | grep Version | perl -pe 's/Version: //')
+		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")
+
+		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"
+		fi
+		
+	done
+done
+
+rm -rf $DIR
+
+exit 0

Propchange: scripts/qa/versioncheck
------------------------------------------------------------------------------
    svn:executable = *

Added: scripts/qa/wnppcheck
URL: http://svn.debian.org/wsvn/scripts/qa/wnppcheck?rev=5647&op=file
==============================================================================
--- scripts/qa/wnppcheck (added)
+++ scripts/qa/wnppcheck Fri Jun 22 20:08:28 2007
@@ -1,0 +1,18 @@
+#!/bin/sh
+
+# Copyright gregor herrmann <gregor+debian at comodo.priv.at>, 2007
+# Released under the terms of the GNU GPL 2
+
+URL="http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=pkg&data=wnpp&archive=no&show_list_header=no&show_list_footer=no&version=&dist=unstable&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>" > $TARGET
+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;#\([0-9]\+\);<a href="http://bugs.debian.org/\1">#\1</a>;g' \
+	>> $TARGET
+echo "</pre></html>"
+
+exit 0

Propchange: scripts/qa/wnppcheck
------------------------------------------------------------------------------
    svn:executable = *