[Openmcl-cvs-notifications] r14212 - /trunk/source/scripts/http-to-svn

[rme at clozure.com]

Author: rme
Date: Wed Aug 25 15:01:53 2010
New Revision: 14212

Log:
New script for relocating http scheme externals to svn scheme.

Added:
    trunk/source/scripts/http-to-svn   (with props)

Added: trunk/source/scripts/http-to-svn
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/scripts/http-to-svn (added)
+++ trunk/source/scripts/http-to-svn Wed Aug 25 15:01:53 2010
@@ -1,0 +1,24 @@
+#!/bin/sh
+
+# This script can be used to rewrite the schema in svn working copy URLs,
+# changing URLs that use 'http' as an access method to use 'svn+ssh' inste=
ad.
+# (The http: access method allows read-only access; 'svn+ssh' allows people
+# with appropriate permission to commit changes to the repository.)
+
+SCRIPTS=3D`dirname $0`
+CCLDIR=3D$SCRIPTS/..
+
+# This assumes that all directories under CCL are under svn control
+# That's a reasonable assumption after a fresh checkout; if it's
+# violated, svn will warn and we'll move on.
+
+http_root=3Dhttp://svn.clozure.com/publicsvn/openmcl
+svn_root=3Dsvn://svn.clozure.com/openmcl
+
+for d in `ls $CCLDIR`
+do
+ if [ -d $CCLDIR/$d ]; then
+   echo relocating $d
+   (cd $d && svn switch --relocate $http_root $svn_root)
+ fi
+done

Propchange: trunk/source/scripts/http-to-svn
---------------------------------------------------------------------------=
---
    svn:executable =3D *