#!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 a BRAG-compatible XML summary from an index.html file coming out of the uh parser+
−
+
−
use strict;+
−
+
−
use Getopt::Long;+
−
+
−
my $raptorSummary;+
−
my $help = 0;+
−
GetOptions((+
−
	'index=s' => \$raptorSummary,+
−
	'help!' => \$help+
−
));+
−
+
−
$help = 1 if (!$raptorSummary);+
−
if ($help)+
−
{+
−
	print "Generate an XML summary of the Raptor build from a summary.csv file\n";+
−
	print "Usage: perl summarize.pl --index=INDEXFILE\n";+
−
	exit(0);+
−
}+
−
+
−
my $criticals = 0;+
−
my $majors = 0;+
−
my $minors = 0;+
−
my $unknowns = 0;+
−
+
−
# READ INDEX.HTML FILE+
−
if (open(INDEX, $raptorSummary))+
−
{+
−
	while (my $line = <INDEX>)+
−
	{+
−
		if ($line =~ m{<tr><td><a href='.*'>.*</a></td><td>(\d+)</td><td>(\d+)</td><td>(\d+)</td><td>(\d+)</td>(<td>(\d+)</td>)?})+
−
		{+
−
			$criticals += $1 if ($1);+
−
			$majors += $2 if ($2);+
−
			$majors += $6 if ($6); # add number of missing files to majors+
−
			$minors += $3 if ($3);+
−
			$unknowns += $4 if ($4);+
−
		}+
−
	}+
−
	close(INDEX);+
−
}+
−
+
−
# Print XML+
−
print <<_END;+
−
<?xml version=\"1.0\" encoding=\"UTF-8\"?>+
−
<?xml-stylesheet type='text/xsl' href='brag.xsl'?>+
−
<buildStatus>+
−
<phase name="Build">+
−
<step name=\"Raptor Build\" detailshref=\"../html/index.html\">+
−
<failures level=\"critical\" count=\"$criticals\"/>+
−
<failures level=\"major\" count=\"$majors\"/>+
−
<failures level=\"minor\" count=\"$minors\"/>+
−
<failures level=\"unknown\" count=\"$unknowns\"/>+
−
</step>+
−
</phase>+
−
</buildStatus>+
−
_END+
−
+
−
exit(0);+
−
+
−