bldsystemtools/commonbldutils/runcbr.pl
branchRCL_3
changeset 24 d90029decf65
parent 20 a9d4531388d0
child 33 54aa4a06a075
child 34 5e522efbae7b
--- a/bldsystemtools/commonbldutils/runcbr.pl	Wed Mar 31 23:20:42 2010 +0300
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,76 +0,0 @@
-# Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "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:
-# Script to launch MakeCBR.pl and test return code and zip up the CBR Environment on failure
-# 
-#
-
-use strict;
-use Getopt::Long;
-
-my($build_id, $config_file, $log_file, $parallel, $release_ver, $debug_file, $help_flag, $prev_ver, $repair, $int_ver);
-
-GetOptions (
-   'b=s'    => \$build_id,
-   'c=s'    => \$config_file,
-   'l=s'    => \$log_file,
-   'v=s'    => \$release_ver,
-   'p=s'    => \$prev_ver,
-   'd=s'    => \$debug_file,
-   '+h'     => \$help_flag,
-   'repair' => \$repair,
-   'i=s'    => \$int_ver,
-   'j=i'    => \$parallel
-);
-
-if(defined $ENV{PERL510_HOME})
-{
-	$ENV{PATH} = "$ENV{PERL510_HOME}\\bin;".$ENV{PATH};
-	system("path");
-	my $cmd_perl_version = `perl -v`;
-	$cmd_perl_version =~ /(v\d+.\d+.\d+)/i;
-	my $perl_version = $1;
-	print "Add perl $perl_version executable path into env path\n";
-}
-else
-{
-	$parallel = 0;
-}
-
-
-# Build Command line
-# Must on correct drive
-my $commandline = "perl \\sf\\os\\buildtools\\toolsandutils\\productionbldtools\\makecbr\\makecbr.pl -b $build_id -v $release_ver -c $config_file";
-
-if (defined $log_file)
-{
-  $commandline .= " -l $log_file";
-}
-
-if (defined $debug_file)
-{
-  $commandline .= " -d $debug_file";
-}
-
-if (defined $prev_ver)
-{
-  $commandline .= " -p $prev_ver";
-}
-
-if (defined $parallel)
-{
-  $commandline .= " -j $parallel";
-}
-print "makcbr command: $commandline\n";
-system("$commandline");
-