r12225 - /scripts/qa/packagecheck

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Tue Jan 8 15:42:29 UTC 2008


Author: dmn
Date: Tue Jan  8 15:42:28 2008
New Revision: 12225

URL: http://svn.debian.org/wsvn/?sc=1&rev=12225
Log:
Add -p $pkg option allowing for checking single package

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=12225&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Tue Jan  8 15:42:28 2008
@@ -21,6 +21,7 @@
 	echo "  At least one parameter must be present."
 	echo
 	echo "  Parameters:"
+        echo "  -p <pkg>:          check only $pkg package"
 	echo "  -V debian/control: add _V_cs-(Svn|Browser) fields; remove XS-Vcs-(Svn|Browser) fields"
 	echo "  -H debian/control: add _H_omepage field; remove pseudo-field Homepage"
 	echo "  -W debian/_w_atch: change CPAN URLs to http://search.cpan.org/dist/Mod-Ule/"
@@ -155,8 +156,11 @@
 
 [ $# -ge 1 ] || usage "No parameter."
 
-while getopts VHWRAh O; do
+while getopts p:VHWRAh O; do
 	case "$O" in
+		p)
+			PKG=$OPTARG
+			;;
 		V)
 			TESTVCS=1
 			;;
@@ -185,28 +189,11 @@
 done
 shift $(($OPTIND - 1)) # bash: shift $((OPTIND - 1))
 
-# start the game
-
-CHANGED=0
-TRUNK=${1:-trunk}
-
-echo "Running svn up $TRUNK ..."
-svn up $TRUNK
-
-echo "Checking if $TRUNK is clean ..."
-UNCLEAN=$(svn st $TRUNK |egrep -v '^\?')
-if [ -n "$UNCLEAN" ]; then
-	echo "$UNCLEAN"
-	echo WARNING: $TRUNK is not clean
-fi
-
-# loop over packages
-
-echo "Grepping through packages ..."
-for p in $(svn ls $TRUNK); do 
-
+
+check_package()
+{
 	# reset variables
-	p=${p%/}
+	p=$1
 	OLDHP=
 	PERLNAME=
 	NEWHP=
@@ -241,8 +228,50 @@
 	if [ -n "$MSG_RULES" ] ; then
 		dch --release-heuristic=changelog --changelog $TRUNK/$p/debian/changelog "$MSG_RULES"
 	fi
-
-done
+}
+
+# start the game
+
+CHANGED=0
+TRUNK=${1:-trunk}
+
+if [ -n "$PKG" ]; then
+	# package given. work only with it, not all trunk
+	echo "Running svn up $TRUNK/$PKG ..."
+	svn up $TRUNK/$PKG
+
+	echo "Checking if $TRUNK/$PKG is clean ..."
+	UNCLEAN=$(svn st $TRUNK/$PKG |egrep -v '^\?')
+	if [ -n "$UNCLEAN" ]; then
+		echo "$UNCLEAN"
+		echo WARNING: $TRUNK/$PKG is not clean
+	fi
+
+	check_package $PKG
+
+else
+
+	echo "Running svn up $TRUNK ..."
+	svn up $TRUNK
+
+	echo "Checking if $TRUNK is clean ..."
+	UNCLEAN=$(svn st $TRUNK |egrep -v '^\?')
+	if [ -n "$UNCLEAN" ]; then
+		echo "$UNCLEAN"
+		echo WARNING: $TRUNK is not clean
+	fi
+
+	# loop over packages
+
+	echo "Grepping through packages ..."
+	for PKG in $(svn ls $TRUNK); do 
+
+		PKG=${PKG%/}
+		check_package $PKG
+
+	done
+
+fi
 
 # work is done. svn diff? svn commit?
 
@@ -275,3 +304,5 @@
 fi
 
 exit 0
+
+# vi: set noet sts=0:




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