--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/clone_packages/parse_clone_all.pl	Thu Sep 24 09:33:30 2009 +0100
@@ -0,0 +1,87 @@
+#! 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;
+}