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

# All rights reserved.

# This component and the accompanying materials are made available

# 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 that returns the no.of errors, Warnings and Advisory notes for a stage.

# 

#

#!/usr/bin/perl -w

package FaultsData;

#~ use BragStatus;

use strict;

use Date::Calc;

# 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;

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';

sub stageSummary {

    my ($iDir, $iSnapshot, $iProduct, $iLinkPath, $iStage) = @_;

    my $temp = "";

    if($iStage ne "PREBUILD")

    {

      ##############extract Errors Now################

      # set file names, so that they can be accessed globally

      $iGTFileName    = "GT.summary.html";

      $iTVFileName    = "TV.summary.html";

      $iTVEBSFileName = "TV.EBS.summary.html";

      $iBUILDFileName = "$iSnapshot"."_Symbian_OS_v"."$iProduct".".summary.html";

      $iCBRFileName   = "$iSnapshot"."_Symbian_OS_v"."$iProduct"."_cbr.summary.html";

      $iCDBFileName   = "$iSnapshot"."_Symbian_OS_v"."$iProduct"."_cdb.summary.html";

      $iROMFileName   = "techviewroms"."$iSnapshot"."_Symbian_OS_v"."$iProduct". ".log";

      $iDir =~  s/[^\\]$/$&\\/; #add trailing backslash, if missing

      $iLogsPublishLocation  = $iDir;

      if (-e $iLinkPath) {

          $iLinkPathLocation = $iLinkPath;

      } else {

          # if no link path is specified, then use current directory location

          #print "WARNING:" .$iLinkPath. " does not exist, linking with relative paths\n";

          $iLinkPathLocation = $iLogsPublishLocation;

      }

      if (-e $iLogsPublishLocation) 

      {

          $iGTLogFileLocation      = $iLogsPublishLocation.$iGTFileName;

          $iTVLogFileLocation      = $iLogsPublishLocation.$iTVFileName;

          $iTVEBSLogFileLocation   = $iLogsPublishLocation.$iTVEBSFileName;

          $iBUILDLogFileLocation   = $iLogsPublishLocation.$iBUILDFileName;

          $iCBRLogFileLocation     = $iLogsPublishLocation.$iCBRFileName;

          $iROMLogFileLocation     = $iLogsPublishLocation.$iROMFileName;

          $iCDBLogFileLocation     = $iLogsPublishLocation.$iCDBFileName;

          my @Components = extractErrors($iStage);

          if(@Components)

          {

            #~ foreach my $t (@Components)

            #~ {

              #~ print "FAULTS::@$t[0]\t@$t[1]\t@$t[2]\t@$t[3]\t@$t[4]\t@$t[5]\t@$t[6]\n";

            #~ }

            return @Components;

          }

          #############Update Log Files Locations######################

          getLogFileLocation($iStage)

      }

      else

      {

          print "ERROR: Report not created: $! \n";

      }

    }

}

sub getTime

{

    my ($sec,$min,$hours,$mday,$mon,$year)= localtime();

    $year += 1900;

    $mon +=1;

    my @date = ($year,$mon,$mday,$hours,$min,$sec);

    my $date = sprintf("%d-%02d-%02dT%02d:%02d:%02d", @date);

    return ($date);

}

#------------------------------------------------------------------Functions form GenResult.pm--------------------------------------------------------------

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

#

# 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

#