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