r26393 - /scripts/qa/packagecheck

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

Author: mxey-guest
Date: Thu Oct 30 20:49:36 2008
New Revision: 26393

URL: http://svn.debian.org/wsvn/?sc=1&rev=26393
Log:
Allow packagecheck to test for WebSVN vs. ViewSVN

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=26393&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Thu Oct 30 20:49:36 2008
@@ -22,7 +22,8 @@
 	echo
 	echo "  Parameters:"
 	echo "  -V       - debian/control: add _V_cs-(Svn|Browser) fields;"
-	echo "             remove XS-Vcs-(Svn|Browser) fields"
+	echo "             remove XS-Vcs-(Svn|Browser) fields;"
+	echo "             switch Vcs-Browser fields to ViewSVN"
 	echo "  -H       - debian/control: add _H_omepage field; remove"
 	echo "             pseudo-field Homepage"
 	echo "  -M       - debian/control: check _M_aintainer field for"
@@ -76,10 +77,18 @@
 		CHANGED=1
 	fi
 
+	# check for Vcs-Browser field using WebSVN
+	if grep '^Vcs-Browser: http://svn.debian.org/wsvn' $DIR/debian/control > /dev/null; then
+		echo "$PKG: switching Vcs-Browser field from WebSVN to ViewSVN"
+		perl -pi -e 's;^(Vcs-Browser: http://svn.debian.org/)wsvn(/pkg-perl/trunk/[^/]/?);$1viewsvn$2;' $DIR/debian/control
+		MSG_CONTROL_CH="${MSG_CONTROL_CH:+$MSG_CONTROL_CH; }Switched Vcs-Browser field to ViewSVN(source stanza)"
+		CHANGED=1
+	fi
+
 	# check for and add missing Vcs-Browser field
 	if ! grep ^Vcs-Browser $DIR/debian/control > /dev/null; then
 		echo "$PKG: adding missing Vcs-Browser field"
-		perl -pi -e "s;(^Vcs-Svn:.+);\$1\nVcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/$PKG/;" $DIR/debian/control
+		perl -pi -e "s;(^Vcs-Svn:.+);\$1\nVcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/$PKG/;" $DIR/debian/control
 		MSG_CONTROL_ADD="${MSG_CONTROL_ADD:+$MSG_CONTROL_ADD; }Vcs-Browser field (source stanza)"
 		CHANGED=1
 	fi