--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/grab_gcc_errors.pl	Fri Mar 26 16:25:15 2010 +0000
@@ -0,0 +1,49 @@
+#! perl
+
+# Copyright (c) 2010 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:
+# Grab the GCC package build logs from the Symbian build publishing machine
+# NB. This doesn't do the HTTP access, so it only works inside the Symbian network
+
+use strict;
+use Getopt::Long;
+
+my @failures_files = ();
+my $line;
+
+while ($line =<>)
+	{
+	# <tr><td>adaptation/beagleboard</td><td><span style='background-color:red'>R</span> <a href='http://developer.symbian.org/main/source/packages/package/build_details.php?id=4576'>beagleboard_CompilerCompatibility.007</a><br/><span style='font-size:small'>(gcce4_4_1)</span><br/><span style='font-size:small'>2010-03-16 20:15:26</span></td><td><span style='background-color:red'>R</span> <a href='http://developer.symbian.org/main/source/packages/package/build_details.php?id=4197'>beagleboard_CompilerCompatibility.003</a><br/><span style='font-size:small'>(gcce4_4_1)</span><br/><span style='font-size:small'>2010-03-11 18:11:05</span></td><td>-</td><td>-</td><td>-</td><td>-</td></tr>
+
+	if ($line =~/^<tr><td>([^<]+)<\/td><td>.*?>([^<]+)<\/a>/)
+		{
+		my $layer_package = $1;
+		my $buildname = $2;
+		
+		my ($layer,$package) = split /\//, $layer_package;
+		
+		my $location = sprintf "SF_builds/%s/builds/CompilerCompatibility/%s/html/%s_%s_failures.html", $package, $buildname, $layer, $package;
+		
+		my $url = "http://cdn.symbian.org/" . $location;
+		my $unc = "//v800020/" . $location;
+		
+		print "$layer_package, $buildname, $location\n";
+		if (-f $unc)
+			{
+			open FILE, "<$unc" or die("Cannot open $unc: $!\n");
+			my @html = <FILE>;
+			close FILE;
+			print @html;
+			}
+		}
+	}
\ No newline at end of file