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