Moved the generation of the release metadata entry for the MD5 zip outside of
the parallel section, so it can't co-incide with the zipping of the binaries.
Ensured that any errors generated when merging log files are not just hidden
by putting them in the output file (which will render it not well-formed XML).
# Copyright (c) 2009 Symbian Foundation Ltd
# 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:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# Extracts output text in <buildlog> context which doesn't belong to <recipe>'s
use strict;
use Getopt::Long;
my $XALAN_PATH = "xalan-j_2_7_1";
my $XSLT_FILE = "sysdefdowngrade.xsl";
my $modelfile = '';
my $csvsourcesfile = '';
my $help = 0;
GetOptions((
'model=s' => \$modelfile,
'sources=s' => \$csvsourcesfile,
'help!' => \$help
));
$help = 1 if (!$modelfile or !$csvsourcesfile);
if ($help)
{
print "Checks that a model file is not in version 3.0.0. If it is transforms it to a version usable by Raptor\n";
print "Usage: perl sysdefdowngrade.pl --model=MODELFILE --sources=SOURCESFILE\n\n";
exit(0);
}
my $isversion3 = 0;
open(MODELFILE, "$modelfile") or die("Can't open model file $modelfile");
while(<MODELFILE>)
{
if ($_ =~ /<SystemDefinition schema="3\.0\.0"/)
{
$isversion3 = 1;
last;
}
}
close(MODELFILE);
if (!$isversion3)
{
print "Model file is not version 3.0.0. Nothing to do.";
exit(0);
}
my $param_path = '';
open(SOURCESFILE, "$csvsourcesfile") or die("Can't open sources file $csvsourcesfile");
while(<SOURCESFILE>)
{
if ($_ =~ m{[^,]*,([\\/]sf[\\/][^,]*),[^,]*,[^,]*,[^,]*})
{
$param_path = $1;
#print "param_path= $param_path\n";
last;
}
}
close(SOURCESFILE);
if (!$param_path)
{
print "Error: could not determine path parameter from sources file. Quitting.\n";
exit(0);
}
$param_path =~ s,\\,/,g;
my $transformcmd = "java -jar $XALAN_PATH\\xalan.jar -xsl $XSLT_FILE -in $modelfile -out $modelfile.transformed";
$transformcmd .= " -param Path $param_path";
print "Executing: $transformcmd\n";
system("$transformcmd");
# ren doesn't work with forward slashes
$modelfile =~ s,/,\\,g;
$modelfile =~ m,.*[\\/](.*),;
my $modelfile_name = $1;
print "Executing: ren $modelfile $modelfile_name.orig\n";
system("ren $modelfile $modelfile_name.orig");
print "Executing: ren $modelfile.transformed $modelfile_name\n";
system("ren $modelfile.transformed $modelfile_name");