1 # Copyright (c) 1999-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of the License "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 # Called from MNT.BAT to do some PVCS stuff.

    15 # 

    16 #

    17 

    18 use strict;

    19 

    20 if($#ARGV !=1) {

    21   print <<EOH;

    22 Usage: dopvcs.pl <rune1> <rune2>

    23 

    24 Basically, only call this from mnt.bat

    25 

    26 EOH

    27 exit 1;	  

    28 }

    29 

    30   

    31 open(X, "/e32test/group/dir.prj") || die "Can't find the directory list, $!";

    32 

    33 #Slurp

    34 my @dirs=<X>;

    35 

    36 close X;

    37 

    38 # Zap comments

    39 foreach (@dirs) {

    40   if(/!/) {

    41 	s/^(.*)!.*/$1/;

    42   }

    43 }

    44 

    45 chomp @dirs;

    46 

    47 # Now the weird runes

    48 

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

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

    51 }