# HG changeset patch
# User William Roberts <williamr@symbian.org>
# Date 1277844985 -3600
# Node ID 1b8ed359830556e750584b3c009c33126499a875
# Parent  3b8bce67b5743517696c79c78eb39d457cbeefb6
Extend packagelist parsing to read "sources.csv" files.

diff -r 3b8bce67b574 -r 1b8ed3598305 clone_packages/clone_all_packages.pl
--- a/clone_packages/clone_all_packages.pl	Tue Jun 29 17:58:44 2010 +0100
+++ b/clone_packages/clone_all_packages.pl	Tue Jun 29 21:56:25 2010 +0100
@@ -1,6 +1,6 @@
 #! perl
 
-# Copyright (c) 2009 Symbian Foundation Ltd
+# Copyright (c) 2009-2010 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
@@ -311,6 +311,15 @@
       $revision = $3;
       }
  
+ 		# sources.csv format
+ 		# http://developer.symbian.org/oss/FCL/sf/app/browserui/,/sf/app/browserui,tag,tip_bulk,layers.sysdef.xml
+ 		# http://developer.symbian.org/oss/FCL/sf/app/browserui/,/sf/app/browserui,changeset,e086c7f635d5,layers.sysdef.xml
+		if ($line =~ /^(http[^,]+),(\S+),\S+,(\S+),\S*$/)
+			{
+			$line = $1;
+			$revision = $3;
+			}
+
     # Look for the oss/MCL/ prefix to a path e.g.
     # https://developer.symbian.org/oss/FCL/interim/contrib/WidgetExamples
     if ($line =~ /((oss|sfl)\/(FCL|MCL)\/.*)\s*$/)