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