#! 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;+
−
}+
−