[@--# 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:

# Template processed by GenDiamondsXml.pm

# 

#--@]

<?xml version="1.0" encoding="utf-8"?>

<diamonds-build>

  <schema>[@--$ENV{DiamondsSchemaNum}--@]</schema>

  [@--

  use myutils;

  use FaultsData;

  my $iDir = &myutils::getiDir();

  my $iSnapshot = &myutils::getiSnapshot();

  my $iProduct = &myutils::getiProduct();

  my $iLinkPath = &myutils::getiLinkPath();

  my ($errorCount,$warningCount,$AdvNotesCount) = (0,0,0);

  my @temp = FaultsData::stageSummary($iDir, $iSnapshot, $iProduct, $iLinkPath, $iStage);

  my @tempArr;

  if( -e "faultCount")

  {

    open(FAULTCOUNT,"<faultCount") or warn "FAULTCOUNT:$!";

    @tempArr = <FAULTCOUNT>;

    close(FAULTCOUNT);

	$errorCount = trim ($tempArr[0]);

	$warningCount = trim ($tempArr[1]);

	$AdvNotesCount = trim ($tempArr[2]);	

  }

  else

  {

    @tempArr = (0,0,0);

  }

  $OUT .= "<faults>";

  if ($temp[0][0])

  {

    foreach my $t (@temp)

    {

      $OUT .=

        "

          <component>

          <name>@$t[0]#$iStage</name>

        ";

      if (@$t[1]) {$OUT .= "  <total severity=\"error\">@$t[1]</total>\n";}

      if (@$t[3]) {$OUT .= "  <total severity=\"warning\">@$t[3]</total>\n";}

      if (@$t[5]) {$OUT .= "  <total severity=\"advisory_notes\">@$t[5]</total>\n";}

      $OUT .= "          </component>\n";

      $errorCount = @$t[1] + $errorCount;

      $warningCount = @$t[3] + $warningCount;

      $AdvNotesCount = @$t[5] + $AdvNotesCount;

    }  

  }

  $OUT .= "  <total severity=\"error\">$errorCount</total>\n";

  $OUT .= "  <total severity=\"warning\">$warningCount</total>\n";

  $OUT .= "  <total severity=\"advisory_notes\">$AdvNotesCount</total>\n";

  $OUT .= "  </faults>";

	#save the error numbers until now

    open(FAULTCOUNT,">faultCount") or warn "FAULTCOUNT:$!";

    print FAULTCOUNT "$errorCount\n";

    print FAULTCOUNT "$warningCount\n";

    print FAULTCOUNT "$AdvNotesCount\n";

	close (FAULTCOUNT);

sub trim

{

        my $string = shift;

        $string =~ s/^\s+//;

        $string =~ s/\s+$//;

        return $string;

}

  --@]

</diamonds-build>