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