From: thierry <thierry@41d37cc5-eb28-0410-a9bf-d37491348ade>
Date: Tue, 20 Mar 2007 11:57:40 +0000 (+0000)
Subject: creation : utility for enabling keyword substitution
X-Git-Tag: foo~498
X-Git-Url: http://git.onelab.eu/?a=commitdiff_plain;h=b74cf26c8ea0125209605cbb4fa6e75711a4023a;p=infrastructure.git

creation : utility for enabling keyword substitution
---

diff --git a/scripts/svn-keywords.sh b/scripts/svn-keywords.sh
new file mode 100755
index 0000000..af76356
--- /dev/null
+++ b/scripts/svn-keywords.sh
@@ -0,0 +1,47 @@
+#!/bin/bash
+# $Id$
+
+COMMAND=$(basename $0)
+
+
+usage () {
+
+   echo "Usage: $COMMAND keywords"
+   exit 1
+
+}
+
+[[ -z "$@" ]] && usage
+keywords="$@"
+
+for keyword in $keywords ; do
+
+  echo -n "Gathering files under subversion containing the keyword $keyword "
+  files=$(grep -l '$'"$keyword"':' $(svn list -R))
+  echo Done
+
+  for file in $files ; do
+
+    echo -n "$file "
+
+    if [ ! -f $file ] ; then
+      echo "NOT FOUND - skipped"
+      continue
+    fi
+    
+    current_keywords=$(svn propget svn:keywords $file)
+    has_keyword=$(echo $current_keywords | grep $keyword)
+
+# dbg
+#    echo ck=$current_keywords -- hk=$has_keyword
+#    continue
+
+    if [ -z $has_keyword ] ; then
+      echo "+$keyword"
+      svn propset svn:keywords "$current_keywords $keyword" $file
+    else
+      echo "="
+    fi
+  done
+
+done