# Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of "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:

# Script summarise and hotlink logfiles by reading

# HTMLscanlog generated files

# This initial version is phase 1 of 3.

# 1. HTML scanlog input --> HTML report output

# 2. HTML scanlog input --> XML report output + XSLT to HTML

# 3. XML scanlog input  --> XML report output + XSLT to HTML

# 

#

#!/usr/bin/perl -w

package GenResult;

use BragStatus;

use GenAutoSmokeTestResult;

use GenPostBuildResult;

use strict;

# global log file locations

# - to be set by main() function

# on module entry

our $iGTLogFileLocation;

our $iTVLogFileLocation;

our $iTVEBSLogFileLocation;

our $iBUILDLogFileLocation;

our $iCBRLogFileLocation;

our $iROMLogFileLocation;

our $iCDBLogFileLocation;

our $iLinkPathLocation;

our $iLogsPublishLocation;

our $iGTFileName;

our $iTVFileName;

our $iTVEBSFileName;

our $iBUILDFileName;

our $iCBRFileName;

our $iROMFileName;

our $iCDBFileName;

our $iBraggflag = 0;

our %iProducts;

our %iTests;

no strict qw($iGTLogFileLocation,

	     $iTVLogFileLocation,

             $iTVEBSLogFileLocation;

	     $iBUILDLogFileLocation,

	     $iCBRLogFileLocation,

	     $iROMLogFileLocation,

           $iCDBLogFileLocation,

	     $iLinkPathLocation,

	     $iLogsPublishLocation,

	     $iGTFileName,

	     $iTVFileName,

             $iTVEBSFileName;

	     $iBUILDFileName,

	     $iCBRFileName,

	     $iROMFileName,

             $iCDBFileName);

my $iGTFileFound    = "1";

my $iTVFileFound    = "1";

my $iTVEBSFileFound = "1";

my $iBUILDFileFound = "1";

my $iCBRFileFound   = "1";

my $iROMFileFound   = "1";

my $iCDBFileFound   = "1";

# stores the list of stages

my $iBuildStages = 'GT|TV|ROM|CBR|CDB|BUILD';

# outline style sheet internally  

my $gStyleSheet = " \n

                <style type=\"text/css\">                    

                    h1,h2,h3

                    {

                        font-family: \"arial\", lucida calligraphy, 'sans serif'; 

                    }

                    p,table,li,

                    {

                        font-family: \"arial\", lucida calligraphy, 'sans serif'; 

                        margin-left: 8pt;

                    }

                    body

                    {

                        background-color:#fffaf0;

                    }

                    p,li,th,td

                    {

                        font-size: 10pt;

                        vertical-align:top;

                    }

                    h1,h2,h3,hr {color:#483d8b;}

                    table {border-style:outset}

                    li {list-style: square;}

                    a.hoverlink:link {color: #0000ff; text-decoration: none}

                    a.hoverlink:visited {color: #0000ff; text-decoration: none}

                    a.hoverlink:hover {text-decoration: underline}

                </style>";

##########################################################################

#

# Name    :  getGTResults()

# Synopsis:  To parse a logfile, and output results

#            into a common data format for processing

#

# Inputs  :  None

# Outputs : Array of refs to arrays containing 5 scalars. The structure

#           is then used by the  printResultRow() to display

#

#  1    <array 'container'>

#         |

#  0-n    <array ref>

#            |

#            -- <scalar[0]>  component name

#            -- <scalar[1]>  number of errors

#            -- <scalar[2]>  link to errors

#            -- <scalar[3]>  number of warnings

#            -- <scalar[4]>  link to warnings

#            -- <scalar[5]>  number of advisorynotes

#            -- <scalar[6]>  link to advisorynotes

#

# Note: Links are currently not used, but instead constructed from the

#       component name and logfile location. Can be used in future for

#       logs located elsewhere etc.

##########################################################################

sub getGTResults {

    my $iComponent;

    my $iErrors;

    my $iErrorLink;

    my $iWarnings;

    my $iWarningLink;

	my $iAdvisoryNotes;

	my $iAdvisoryNotesLink;

    my $iRemarks;

    my @components;

    open (GTLOGFILE, $iGTLogFileLocation) || setHandleErrors($_[0]);

    my @iGTLog = <GTLOGFILE>;

    foreach (@iGTLog) {

        if (m/(Component_)(.*)(\s[0-9]{0,2}:[0-9]{0,2}:[0-9]{0,2}\.?[0-9]{0,3})\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)/) 	    {

            if (($4 != 0) || ($5 !=0) || ($6 != 0)) {

                $iComponent = $2;

                $iErrors    = $4;

                $iWarnings  = $5;

                $iAdvisoryNotes = $6;

                $iRemarks   = $7;   # currently we ignore remarks from components.

                # now extract the URL for each warning. At the moment, this is a relative link

                # MUST make it absolute, to avoid problems

                my @componentdetails = ($iComponent, $iErrors, $iErrorLink, $iWarnings, $iWarningLink, $iAdvisoryNotes, $iAdvisoryNotesLink);

                push @components, \@componentdetails;

            }

        }

        }

    # return array of refs to arrays

    return @components;

}

##########################################################################

#

# Name    :  getTVResults()

# Synopsis:  To parse a logfile, and output results

#            into a common data format for processing

#

# Inputs  :  None

# Outputs : Array of refs to arrays containing 5 scalars. The structure

#           is then used by the  printResultRow() to display

#

#  1    <array 'container'>

#         |

#  0-n    <array ref>

#            |

#            -- <scalar[0]>  component name

#            -- <scalar[1]>  number of errors

#            -- <scalar[2]>  link to errors

#            -- <scalar[3]>  number of warnings

#            -- <scalar[4]>  link to warnings

#            -- <scalar[5]>  number of advisorynotes

#            -- <scalar[6]>  link to advisorynotes

#

# Note: Links are currently not used, but instead constructed from the

#       component name and logfile location. Can be used in future for

#       logs located elsewhere etc.

##########################################################################

sub getTVResults {

    my $iComponent;

    my $iErrors;

    my $iErrorLink;

    my $iWarnings;

    my $iWarningLink;

	my $iAdvisoryNotes;

	my $iAdvisoryNotesLink;

    my $iRemarks;

    my @components;

    open (TVLOGFILE, $iTVLogFileLocation) || setHandleErrors($_[0]);

    my @iTVLog = <TVLOGFILE>;

    foreach (@iTVLog) {

        if (m/(Component_)(.*)(\s[0-9]{0,2}:[0-9]{0,2}:[0-9]{0,2}\.?[0-9]{0,3})\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)/) {

            if (($4 != 0) || ($5 !=0) || ($6 != 0)) {

                $iComponent = $2;

                $iErrors    = $4;

                $iWarnings  = $5;

                $iAdvisoryNotes = $6;

                $iRemarks   = $7;   # currently we ignore remarks from components.

                # now extract the URL for each warning. At the moment, this is a relative link

                # MUST make it absolute, to avoid problems

                my @componentdetails = ($iComponent, $iErrors, $iErrorLink, $iWarnings, $iWarningLink, $iAdvisoryNotes, $iAdvisoryNotesLink);

                push @components, \@componentdetails;

            }

        }

    }

    open (TVEBSLOGFILE, $iTVEBSLogFileLocation) || setHandleErrors($_[0]);

    my @iTVEBSLog = <TVEBSLOGFILE>;

     foreach (@iTVEBSLog) {

        if (m/(Component_)(.*)(\s[0-9]{0,2}:[0-9]{0,2}:[0-9]{0,2}\.?[0-9]{0,3})\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)/) {

            if (($4 != 0) || ($5 !=0) || ($6 != 0)) {

                $iComponent = $2;

                $iErrors    = $4;

                $iWarnings  = $5;

                $iAdvisoryNotes = $6;

                $iRemarks   = $7;   # currently we ignore remarks from components.

                # now extract the URL for each warning. At the moment, this is a relative link

                # MUST make it absolute, to avoid problems

                my @componentdetails = ($iComponent, $iErrors, $iErrorLink, $iWarnings, $iWarningLink, $iAdvisoryNotes, $iAdvisoryNotesLink);

                push @components, \@componentdetails;

            }

        }

    }

    # return array of refs to arrays

    return @components;

}

##########################################################################

#

# Name    :  getBUILDResults()

# Synopsis:  To parse a logfile, and output results

#            into a common data format for processing

#

# Inputs  :  None

# Outputs : Array of refs to arrays containing 5 scalars. The structure

#           is then used by the  printResultRow() to display

#

#  1    <array 'container'>

#         |

#  0-n    <array ref>

#            |

#            -- <scalar[0]>  component name

#            -- <scalar[1]>  number of errors

#            -- <scalar[2]>  link to errors

#            -- <scalar[3]>  number of warnings

#            -- <scalar[4]>  link to warnings

#            -- <scalar[5]>  number of advisorynotes

#            -- <scalar[6]>  link to advisorynotes

#

# Note: Links are currently not used, but instead constructed from the

#       component name and logfile location. Can be used in future for

#       logs located elsewhere etc.

##########################################################################

sub getBUILDResults {

    my $iComponent;

    my $iErrors;

    my $iErrorLink;

    my $iWarnings;

    my $iWarningLink;

	my $iAdvisoryNotes;

	my $iAdvisoryNotesLink;

    my $iRemarks;

    my @components;

    open (BUILDLOGFILE, $iBUILDLogFileLocation) ||setHandleErrors($_[0]);

    my @iBUILDLog = <BUILDLOGFILE>;

    foreach (@iBUILDLog) {

        if (m/(Component_)(.*)(\s[0-9]{0,2}:[0-9]{0,2}:[0-9]{0,2}\.?[0-9]{0,3}?)\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)/) {

            if (($4 != 0) || ($5 !=0) || ($6 != 0)) {

                $iComponent = $2;

                $iErrors    = $4;

                $iWarnings  = $5;

                $iAdvisoryNotes = $6;

                $iRemarks   = $7;   # currently we ignore remarks from components.

                               # now extract the URL for each warning. At the moment, this is a relative link

                # MUST make it absolute, to avoid problems

                my @componentdetails = ($iComponent, $iErrors, $iErrorLink, $iWarnings, $iWarningLink, $iAdvisoryNotes, $iAdvisoryNotesLink);

                push @components, \@componentdetails;

            }

        }

    }

    # return array of refs to arrays

    return @components;

}

##########################################################################

#

# Name    :  getCBRResults()

# Synopsis:  To parse a logfile, and output results

#            into a common data format for processing

#

# Inputs  :  None

# Outputs : Array of refs to arrays containing 5 scalars. The structure

#           is then used by the  printResultRow() to display

#

#  1    <array 'container'>

#         |

#  0-n    <array ref>

#            |

#            -- <scalar[0]>  component name

#            -- <scalar[1]>  number of errors

#            -- <scalar[2]>  link to errors

#            -- <scalar[3]>  number of warnings

#            -- <scalar[4]>  link to warnings

#            -- <scalar[5]>  number of advisorynotes

#            -- <scalar[6]>  link to advisorynotes

#

# Note: Links are currently not used, but instead constructed from the

#       component name and logfile location. Can be used in future for

#       logs located elsewhere etc.

##########################################################################

sub getCBRResults {

    my $iComponent;

    my $iErrors;

    my $iErrorLink;

    my $iWarnings;

    my $iWarningLink;

	my $iAdvisoryNotes;

	my $iAdvisoryNotesLink;

    my $iRemarks;

    my @components;

    open (CBRLOGFILE, $iCBRLogFileLocation) || setHandleErrors($_[0]);

    my @iCBRLog = <CBRLOGFILE>;

    foreach (@iCBRLog) {

        if (m/(Overall_Total\s)([0-9]{0,2}:[0-9]{0,2}:[0-9]{0,2})\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)\s([0-9]*)/) {

            if (($3 != 0) || ($4 !=0) || ($5 != 0)) {

                $iComponent = "Total";

                $iErrors    = $3;

                $iWarnings  = $4;

                $iAdvisoryNotes = $5;

                $iRemarks   = $6;   # currently we ignore remarks from components.

                # now extract the URL for each warning. At the moment, this is a relative link

                # MUST make it absolute, to avoid problems

                my @componentdetails = ($iComponent, $iErrors, $iErrorLink, $iWarnings, $iWarningLink, $iAdvisoryNotes, $iAdvisoryNotesLink);

                push @components, \@componentdetails;

            }

        }

    }

    # return array of refs to arrays

    return @components;

}

##########################################################################

#

# Name    :  getROMResults()

# Synopsis:  To parse a text logfile, and output results

#            into a common data format for processing

#

# Inputs  :  None

# Outputs : Array of refs to arrays containing 5 scalars. The structure

#           is then used by the  printResultRow() to display

#

#  1    <array 'container'>

#         |

#  0-n    <array ref>

#            |

#            -- <scalar[0]>  component name

#            -- <scalar[1]>  number of errors

#            -- <scalar[2]>  link to errors

#            -- <scalar[3]>  number of warnings

#            -- <scalar[4]>  link to warnings

#            -- <scalar[5]>  number of advisorynotes

#            -- <scalar[6]>  link to advisorynotes

#

##########################################################################

sub getROMResults {

    my $iComponent;

    my $iErrors;

    my $iErrorLink;

    my $iWarnings;

    my $iWarningLink;

	my $iAdvisoryNotes;

	my $iAdvisoryNotesLink;

    my $iRemarks;

    my @components;

    open (ROMLOGFILE, $iROMLogFileLocation) || setHandleErrors($_[0]);

    my @iROMLog = <ROMLOGFILE>;

    # special kludge to deal with multi-line errors from ROMBUILD!

    #

    my $i = 0;

    my @iSingleLineErrors;

    foreach (@iROMLog) {

        ++$i;

        if ((m/ERROR: Can't build dependence graph for/) ||

            (m/ERROR: Can't resolve dll ref table for/)) {

            # read 4 lines for the single error

            my $iErr = $_ . $iROMLog[$i].$iROMLog[$i+1].$iROMLog[$i+2].$iROMLog[$i+3];

            $iErr =~ s/\t|\n/ /g; # replace tabs and newlines with a space

            # remove multi-line error, so that we dont process it twice

            $iROMLog[$i-1] = "";

            $iROMLog[$i]   = "";

            $iROMLog[$i+1] = "";

            $iROMLog[$i+2] = "";

            $iROMLog[$i+3] = "";

            push @iSingleLineErrors, $iErr;

        }

    }

    # now merge two arrays before processing

    push (@iROMLog, @iSingleLineErrors);

    # identify unique lines in log, as errors

    # are repeated for each ROM built

    my %iSeenLines = ();

    foreach my $iUniqueItem (@iROMLog) {

        $iSeenLines{$iUniqueItem}++;

    }

    my @iUniqueLogList = keys %iSeenLines;

    foreach (@iUniqueLogList) {

	if((m/WARNING: Sorting Rom Exception Table/) ||

           (m/WARNING: DEMAND PAGING ROMS ARE A PROTOTYPE FEATURE ONLY/)) {

           my @componentdetails = ($_, "", $iErrorLink, "", $iWarningLink);

           push @components, \@componentdetails;

        } elsif ((m/Missing/) || (m/Invalid Resource name/) || (m/warning:/) || (m/WARNING:/)) {

           my @componentdetails = ($_, "", $iErrorLink, "1", $iWarningLink);

            push @components, \@componentdetails;   

        }

        if ((m/ERROR: Can't build dependence graph for/) ||

            (m/ERROR: Can't resolve dll ref table for/) ||

            (m/cpp failed/i) ||

            (m/cannot find oby file/i) ||

            (m/no such file or directory/i)) {

            my @componentdetails = ($_, "1", $iErrorLink, "", $iWarningLink);

            push @components, \@componentdetails;   

        } elsif (m/ERROR/) {

            my @componentdetails = ($_, "1", $iErrorLink, "", $iWarningLink);

            push @components, \@componentdetails;   

        }

    }   

    return @components;

}

##########################################################################

#

# Name    :  getCDBResults()

# Synopsis:  To parse a logfile, and output results

#            into a common data format for processing

#

# Inputs  :  None

# Outputs : Array of refs to arrays containing 5 scalars. The structure

#           is then used by the  printResultRow() to display

#

#  1    <array 'container'>

#         |

#  0-n    <array ref>

#            |

#            -- <scalar[0]>  component name