diff -r fe474e3b08fb -r fd0863fd52e5 tools/grab_gcc_errors.pl --- /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 =<>) + { + # adaptation/beagleboardR beagleboard_CompilerCompatibility.007
(gcce4_4_1)
2010-03-16 20:15:26R beagleboard_CompilerCompatibility.003
(gcce4_4_1)
2010-03-11 18:11:05---- + + if ($line =~/^([^<]+)<\/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 = ; + close FILE; + print @html; + } + } + } \ No newline at end of file