#! perl

# Copyright (c) 2009 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:

# Perl script to summarise output from clone_all_package.pl

@all = <>;

my $repo;

my $newrepo = 0;

my $errors = 0;

my $summary = 0;

my $retries = 0;

foreach my $line (@all)

{

  if($summary)

  {

    # if we are in the summary section then just echo all lines out

    # this should be a list of all the packages with errors

    print "$line\n";

  }

	#save package name

	# e.g new package "Cloning compatanaapps from sfl/MCL/sftools/ana/compatanaapps..."

	# e.g. existing package "Updating helix from sfl/MCL/sf/mw/helix..."

	# e.g. with -exec option "Processing sfl/FCL/interim/auxiliary_tools/AgileBrowser."

	elsif ($line =~ m/Cloning (.*?)from(.*)$/)

	{

		$repo = $2;

		$newrepo = 1;

		$retries =0;

    }

    elsif ($line =~ m/Updating (.*?)from(.*)$/)

    {

		$repo = $2;

		$newrepo = 0;

		$retries =0;

    }

    #

    # Capture number of changes, should be line like one of the following

	# e.g. "added 4 changesets with 718 changes to 690 files"

	# e.g. "no changes found"

	elsif ($line =~ m/added (.*?)changesets with(.*)$/)

	{

		print "\n$repo\t added $1 chamgesets";

		print "\t retries $retries";

		print "\t** NEW" if ($newrepo);

    }

  if($line =~ m/abort:/)

  {

    $retries++;

  }

	# Process the summary section

	# e.g. "------------"

	# e.g. "Processed 22 packages, of which 0 reported errors"

	if ($line =~ m/Processed (.*?)packages, of which(.*?)reported errors/)

	{

		print "\n-------------------------------\n";

		print "\n Summary: Processed $1 : Errors $2\n";

		$errors= $2;

		$summary = 1;

	}

}

if ($errors > 0)

{

	print "\nexit with error\n";

	exit 1;

}

else

{

  print "\nexit success\n";

	exit 0;

}