# 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");