--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bldsystemtools/commonbldutils/runcbr.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,76 @@
+# 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");
+