r13039 - /scripts/qa/packagecheck

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sat Jan 19 01:45:15 UTC 2008


Author: gregoa-guest
Date: Sat Jan 19 01:45:14 2008
New Revision: 13039

URL: http://svn.debian.org/wsvn/?sc=1&rev=13039
Log:
packagecheck: new test: -M: set Maintainer to DPG

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=13039&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Sat Jan 19 01:45:14 2008
@@ -26,6 +26,8 @@
 	echo "             remove XS-Vcs-(Svn|Browser) fields"
 	echo "  -H       - debian/control: add _H_omepage field; remove"
 	echo "             pseudo-field Homepage"
+	echo "  -M       - debian/control: check _M_aintainer field for"
+	echo "             Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>"
 	echo "  -W       - debian/_w_atch: change CPAN URLs to"
 	echo "             http://search.cpan.org/dist/Mod-Ule/"
 	echo "  -R       - debian/rules: _r_mdir /usr/\{lib,share\}/perl5"
@@ -108,6 +110,27 @@
 
 }
 
+testmaintainer() {
+	# get Maintainer, check and change
+	OLDMAINT=$(grep ^Maintainer: $TRUNK/$1/debian/control | cut -f2- -d" ")
+	if [ "$OLDMAINT" != "Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>" ] ; then
+		echo "$1: setting Maintainer to Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>"
+		perl -pi -e "s;^Maintainer:.+;Maintainer: Debian Perl Group <pkg-perl-maintainers\@lists.alioth.debian.org>;" $TRUNK/$1/debian/control
+		MSG_CONTROL_CH="${MSG_CONTROL_CH:+$MSG_CONTROL_CH; }Maintainer set to Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org> (was: $OLDMAINT)"
+		# keep old Maintainer in Uploaders unless it's the group in some other form
+		# TODO: remove DPG from Uploaders if we've added it to Maintainer
+		if ! echo $OLDMAINT | grep pkg-perl-maintainers ; then
+			if grep Uploaders $TRUNK/$1/debian/control > /dev/null; then
+				perl -pi -e "s;(Uploaders:.+);\$1, $OLDMAINT;" $TRUNK/$1/debian/control
+			else
+				perl -pi -e "s;(Maintainer:.+);\$1\nUploaders: $OLDMAINT;" $TRUNK/$1/debian/control
+			fi
+			MSG_CONTROL_CH="${MSG_CONTROL_CH:+$MSG_CONTROL_CH; }$OLDMAINT moved to Uploaders"
+		fi
+		CHANGED=1
+	fi
+}
+
 testwatchdist() {
 	# watchfile
 	if [ -e $TRUNK/$1/debian/watch ] && ! grep search\.cpan\.org/dist/ $TRUNK/$1/debian/watch >/dev/null; then
@@ -118,7 +141,6 @@
 			CHANGED=1
 		fi
 	fi
-	
 }
 
 testrmdir() {
@@ -160,7 +182,7 @@
 
 [ $# -ge 1 ] || usage "No parameter."
 
-while getopts p:VHWRAh O; do
+while getopts p:VHMWRAh O; do
 	case "$O" in
 		p)
 			PKG=$OPTARG
@@ -168,6 +190,9 @@
 		V)
 			TESTVCS=1
 			;;
+		M)
+			TESTMAINTAINER=1
+			;;
 		H)
 			TESTHOMEPAGE=1
 			;;
@@ -180,6 +205,7 @@
 		A)
 			TESTVCS=1
 			TESTHOMEPAGE=1
+			TESTMAINTAINER=1
 			TESTWATCHDIST=1
 			TESTRMDIR=1
 			;;
@@ -201,9 +227,11 @@
 	OLDHP=
 	PERLNAME=
 	NEWHP=
+	OLDMAINT=
 	MSG_CONTROL=
 	MSG_CONTROL_ADD=
 	MSG_CONTROL_RM=
+	MSG_CONTROL_CH=
 	MSG_WATCH=
 	MSG_RULES=
 
@@ -212,6 +240,9 @@
 
 	# TESTHOMEPAGE - -H debian/control: add _H_omepage field; remove pseudo-field Homepage
 	[ "$TESTHOMEPAGE" = 1 ] && testhomepage $p
+
+	# TESTMAINTAINER - -H debian/control: check _M_aintainer field for "Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>"
+	[ "$TESTMAINTAINER" = 1 ] && testmaintainer $p
 
 	# TESTWATCHDIST - -W debian/_w_atch: change CPAN URLs to http://search.cpan.org/dist/Mod-Ule/
 	[ "$TESTWATCHDIST" = 1 ] && testwatchdist $p
@@ -220,10 +251,11 @@
 	[ "$TESTRMDIR" = 1 ] && testrmdir $p
 	
 	# changelog
-	if [ -n "$MSG_CONTROL_ADD" -o -n "$MSG_CONTROL_RM" ] ; then
+	if [ -n "$MSG_CONTROL_ADD" -o -n "$MSG_CONTROL_RM" -o -n "$MSG_CONTROL_CH" ] ; then
 		MSG_CONTROL="debian/control:"
 		[ -n "$MSG_CONTROL_ADD" ] && MSG_CONTROL="$MSG_CONTROL Added: $MSG_CONTROL_ADD."
 		[ -n "$MSG_CONTROL_RM" ] && MSG_CONTROL="$MSG_CONTROL Removed: $MSG_CONTROL_RM."
+		[ -n "$MSG_CONTROL_CH" ] && MSG_CONTROL="$MSG_CONTROL Changed: $MSG_CONTROL_CH."
 		dch --mainttrailer --release-heuristic=changelog --changelog $TRUNK/$p/debian/changelog "$MSG_CONTROL"
 	fi
 	if [ -n "$MSG_WATCH" ] ; then




More information about the Pkg-perl-cvs-commits mailing list