r77917 - /scripts/qa/packagecheck

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Jul 27 18:36:47 2011
New Revision: 77917

URL: http://svn.debian.org/wsvn/?sc=1&rev=77917
Log:
Vcs-Browser, Vcs-Svn, Vcs-Git

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=77917&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Wed Jul 27 18:36:47 2011
@@ -100,26 +100,34 @@
 	# TODO: svn -> git
 	DIR=$1
 	PKG=$(basename $($CMD_REALPATH $DIR))
+	# remove Vcs-Svn field
+	if grep -q ^Vcs-Svn $DIR/debian/control; then
+		echo "$PKG: removing Vcs-Svn field"
+		sed -i -e "/^Vcs-Svn/ d" $DIR/debian/control
+		MSG_CONTROL_RM="${MSG_CONTROL_RM:+$MSG_CONTROL_RM; }Vcs-Svn field (source stanza)"
+		CHANGED=1
+	fi
+
 	# check for and add missing Vcs-Git field
-	if ! grep -q ^Vcs-Svn $DIR/debian/control; then
-		echo "$PKG: adding missing Vcs-Svn field"
-		perl -pi -e "s;(Standards-Version:.+);\$1\nVcs-Svn: svn://svn.debian.org/pkg-perl/trunk/$PKG/;" $DIR/debian/control
-		MSG_CONTROL_ADD="${MSG_CONTROL_ADD:+$MSG_CONTROL_ADD; }Vcs-Svn field (source stanza)"
-		CHANGED=1
-	fi
-
-	# check for Vcs-Browser field using WebSVN
-	if grep -q '^Vcs-Browser: http://svn.debian.org/wsvn' $DIR/debian/control; 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)"
+	if ! grep -q ^Vcs-Git $DIR/debian/control; then
+		echo "$PKG: adding missing Vcs-Git field"
+		perl -pi -e "s;(Standards-Version:.+);\$1\nVcs-Git: git://git.debian.org/pkg-perl/packages/$PKG.git;" $DIR/debian/control
+		MSG_CONTROL_ADD="${MSG_CONTROL_ADD:+$MSG_CONTROL_ADD; }Vcs-Git field (source stanza)"
+		CHANGED=1
+	fi
+
+	# Vcs-Browser svn -> git
+	if grep -qE "^Vcs-Browser.*(wsvn|viewsvn)" $DIR/debian/control; then
+		echo "$PKG: Vcs-Browser svn -> git"
+		perl -pi -e "s;^Vcs-Browser:.+$;Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/$PKG.git;" $DIR/debian/control
+		MSG_CONTROL_CH="${MSG_CONTROL_CH:+$MSG_CONTROL_CH; }Vcs-Browser field (source stanza)"
 		CHANGED=1
 	fi
 
 	# check for and add missing Vcs-Browser field
 	if ! grep -q ^Vcs-Browser $DIR/debian/control; then
 		echo "$PKG: adding missing Vcs-Browser field"
-		perl -pi -e "s;(^Vcs-Svn:.+);\$1\nVcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/$PKG/;" $DIR/debian/control
+		perl -pi -e "s;(^Vcs-Svn:.+);\$1\nVcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/$PKG.git;" $DIR/debian/control
 		MSG_CONTROL_ADD="${MSG_CONTROL_ADD:+$MSG_CONTROL_ADD; }Vcs-Browser field (source stanza)"
 		CHANGED=1
 	fi