Merge.
#! perl -w
# 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:
# Generate an XML file in the Diamonds format to upload build tags to Diamonds
use strict;
use Getopt::Long;
my $taglist = 0;
my $outputfile = 0;
my $help = 0;
GetOptions((
'tags:s' => \$taglist,
'output:s' => \$outputfile,
'help!' => \$help,
));
if ($help or !$outputfile)
{
print "Usage: perl generate_diamonds_tags_xml.pl --tags COMMA_SEPARATED_TAG_LIST --output OUTPUT_FILE\n";
exit(0);
}
open(FILE, ">$outputfile");
print FILE <<_END_HEADER;
<?xml version=\"1.0\" encoding=\"utf-8\"?>
<diamonds-build>
<schema>13</schema>
<tags>
_END_HEADER
my @tags = split(/,/, $taglist);
for (@tags)
{
print FILE " <tag>$_</tag>\n";
}
print FILE <<_END_TRAILER;
</tags>
</diamonds-build>
_END_TRAILER
close(FILE);