Experimental combined linknpostlink.
#!perl -w
#============================================================================
#Name : scanbuildlog.pl
#Part of : Helium
#Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
#All rights reserved.
#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:
#Nokia Corporation - initial contribution.
#
#Contributors:
#
#Description:
#============================================================================
# ==============================================================================
# %name: scanbuildlog.pl %
# Part of: juno_build
#
# %version: 1 %
# %date_modified: Mon Feb 06 17:21:13 2006 %
#
# See POD text at the end of this file for usage details.
# ==============================================================================
use strict;
use Getopt::Long;
use Pod::Usage;
use XML::Simple;
use lib "$ENV{'BUILD_DRIVE'}\\epoc32\\tools";
use Scanlog;
use XML::Parser::Expat;
my $help = 0;
my $man = 0;
my $unique = 0;
my $logfilename = '';
GetOptions('unique' => \$unique,
'log=s' => \$logfilename,
'man' => \$man,
'help|?' => \$help)
or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;
$logfilename = shift unless $logfilename;
my $logfile;
if ($logfilename)
{
open(LOGFILE, $logfilename) or die("Can't open '$logfilename': $!\n");
$logfile = \*LOGFILE;
}
else
{
$logfile = \*STDIN;
}
#<!DOCTYPE logfile SYSTEM "logfile.dtd">
#<?xml-stylesheet type="text/xsl" href="logfile.xsl"?>
print <<EOT;
<?xml version="1.0" encoding="ascii"?>
EOT
print("<logfile name=\"$logfilename\">\n");
my %logentry = ();
my $phase = '';
my $component = '';
my $parser = new XML::Parser::Expat;
while (<$logfile>)
{
chomp;
next if Scanlog::CheckForIgnore($_);
($phase = $1) =~ s/\\/\\\\/ and next
if /^=== (.+) started ... ... .. (..):(..):(..)/;
$phase = $1 and next if /^=== (.+) started ... ... .. (..):(..):(..)/;
$component = $1 and next if $phase && /^=== $phase == (\S+)/;
if ($phase && /^=== $phase finished ... ... .. (..):(..):(..)/)
{
$component = '';
next;
}
my $logrec = {line => $.,
content => $parser->xml_escape($_)};
$logrec->{severity} = 'info'
if Scanlog::CheckForMigrationNotes($_)
or Scanlog::CheckForRemarks($_);
if ( Scanlog::CheckForErrors($_)
or Scanlog::CheckForNotBuilt($_)
or Scanlog::CheckForMissing($_) )
{
$logrec->{severity} = 'error';
}
$logrec->{severity} = 'warn' if Scanlog::CheckForWarnings($_);
next unless $logrec->{severity};
print XMLout($logrec, rootname => 'logentry', noescape => 0);
}
print("</logfile>\n");
__END__
=head1 NAME
scanbuildlog - Scan EBS build log for errors and warnings
=head1 SYNOPSIS
perl scanbuildlog.pl [-h] | -l <log file>
=head1 OPTIONS
=over 8
=item B<-help>
Print a brief help message and exits.
=item B<-man>
Prints the manual page and exits.
=item B<-l>
Specify the log file to parse.
=back
=head1 DESCRIPTION
Prints out a summary of the errors, warnings and informational
messages found in the log file in an XML format conforming to the
following DTD:
<!ELEMENT logfile (logentry*)>
<!ELEMENT logentry (#PCDATA)>
<!ATTLIST logentry
severity (error|warn|info) #REQUIRED
line CDATA #REQUIRED
errfile CDATA #IMPLIED
errline CDATA #IMPLIED>
=head1 SEE ALSO
=cut