r8165 - /scripts/qa/packagecheck

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

Author: gregoa-guest
Date: Tue Oct  9 19:49:57 2007
New Revision: 8165

URL: http://svn.debian.org/wsvn/?sc=1&rev=8165
Log:
add Vcs-(Svn|Browser) instead of XS-Vcs-(Svn|Browser) fields

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=8165&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Tue Oct  9 19:49:57 2007
@@ -5,7 +5,7 @@
 # Copyright 2007 David Paleino <d.paleino at gmail.com>
 # Released under the terms of the GNU GPL version 2
 #
-# 1) Checks for and adds missing XS-Vcs-(Svn|Browser) fields 
+# 1) Checks for and adds missing Vcs-(Svn|Browser) fields 
 # 2) Checks for Homepage: field
 # in all debian/control files in trunk/
 #
@@ -37,19 +37,19 @@
   MSGADD=
   MSGRM=
   
-  # 1) check for and add missing XS-Vcs-Svn field
-	if ! grep XS-Vcs-Svn $TRUNK/$p/debian/control > /dev/null; then
-		echo "$p: adding missing XS-Vcs-Svn field"
-		perl -pi -e "s;(Standards-Version:.+);\$1\nXS-Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/$p/;" $TRUNK/$p/debian/control
-		MSGADD="XS-Vcs-Svn field (source stanza)"
+  # 1) check for and add missing Vcs-Svn field
+	if ! grep Vcs-Svn $TRUNK/$p/debian/control > /dev/null; then
+		echo "$p: adding missing Vcs-Svn field"
+		perl -pi -e "s;(Standards-Version:.+);\$1\nVcs-Svn: svn://svn.debian.org/pkg-perl/trunk/$p/;" $TRUNK/$p/debian/control
+		MSGADD="Vcs-Svn field (source stanza)"
 		CHANGED=1
 	fi
 
-  # 2) check for and add missing XS-Vcs-Browser field
-	if ! grep XS-Vcs-Browser $TRUNK/$p/debian/control > /dev/null; then
-		echo "$p: adding missing XS-Vcs-Browser field"
-		perl -pi -e "s;(XS-Vcs-Svn:.+);\$1\nXS-Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/$p/;" $TRUNK/$p/debian/control
-		MSGADD="${MSGADD:+$MSGADD; }XS-Vcs-Browser field (source stanza)"
+  # 2) check for and add missing Vcs-Browser field
+	if ! grep Vcs-Browser $TRUNK/$p/debian/control > /dev/null; then
+		echo "$p: adding missing Vcs-Browser field"
+		perl -pi -e "s;(Vcs-Svn:.+);\$1\nVcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/$p/;" $TRUNK/$p/debian/control
+		MSGADD="${MSGADD:+$MSGADD; }Vcs-Browser field (source stanza)"
 		CHANGED=1
 	fi
 
@@ -125,7 +125,7 @@
             read -p "Commit (y|N)? " COMMIT
             case $COMMIT in
                 y|Y)
-                svn ci -m "Add missing XS-Vcs-(Svn|Browser)/Homepage field(s) to debian/control." $TRUNK
+                svn ci -m "Add missing Vcs-(Svn|Browser)/Homepage field(s) to debian/control." $TRUNK
                 break
                 ;;
                 *)