--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/f32test/group/lock.pl	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,66 @@
+# Copyright (c) 1999-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of the License "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+# Called from MNT.BAT to do some PVCS stuff.
+# 
+#
+
+use strict;
+
+if($#ARGV !=1) {
+  print <<EOH;
+Usage: lock.pl <rune1> <rune2>
+
+Basically, only call this from mnt.bat
+
+EOH
+exit 1;	  
+}
+
+  
+open(X, "/F32TEST/group/dir.prj") || die "Can't find the directory list, $!";
+
+#Slurp
+my @dirs=<X>;
+
+close X;
+
+# Zap comments
+foreach (@dirs) {
+  if(/!/) {
+	s/^(.*)!.*/$1/;
+  }
+}
+
+chomp @dirs;
+
+# Now the weird runes
+
+if(-e "locktmp.bat") {
+  unlink "locktmp.bat";
+}
+
+open(X, ">locktmp.bat") || die "Can't create file $!";
+print X "\@echo off\n";
+print X "\@call cont F32TEST %1\n";
+print X "\@call $ARGV[0] li.prj $ARGV[1]\n";
+close X;
+
+foreach (grep /\w/, @dirs) {
+  system("locktmp.bat $_");
+}
+
+# Remove the evidence
+unlink "locktmp.bat";
+
+exit 0;