# 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;