# 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: dopvcs.pl <rune1> <rune2>

 Basically, only call this from mnt.bat

 EOH

 exit 1;	  

 }

 open(X, "/e32test/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

 foreach (grep /\w/, @dirs) {

   system("t:\\pvcs\\$ARGV[0] E32TEST $_ LI $ARGV[1]");

 }