FCL/sftools/fbf/utilities: clone_all_packages.pl@ccca32510405 (annotated)

6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	1	#! perl
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	2
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	3	# Copyright (c) 2009 Symbian Foundation Ltd
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	4	# This component and the accompanying materials are made available
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	5	# under the terms of the License "Eclipse Public License v1.0"
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	6	# which accompanies this distribution, and is available
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	7	# at the URL "http://www.eclipse.org/legal/epl-v10.html".
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	8	#
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	9	# Initial Contributors:
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	10	# Symbian Foundation Ltd - initial contribution.
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	11	#
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	12	# Contributors:
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	13	#
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	14	# Description:
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	15	# Perl script to clone or update all of the Foundation MCL repositories
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	16
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	17	use strict;
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	18
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	19	my @clone_options = (); # use ("--noupdate") to clone without extracting the source
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	20	my @pull_options = (); # use ("--rebase") to rebase your changes when pulling
8 2184cc44590a Clone from developer.symbian.org (Bug 79) and use https for SFL packages William Roberts <williamr@symbian.org> parents: 6 diff changeset	21	my $hostname = "developer.symbian.org";
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	22	my $mirror = 0; # set to 1 if you want to mirror the repository structure
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	23	my $retries = 1; # number of times to retry problem repos
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	24
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	25	# Important: This script uses http access to the repositories, so
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	26	# the username and password will be stored as cleartext in the
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	27	# .hg/hgrc file in each repository.
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	28
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	29	my $username = "";
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	30	my $password = "";
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	31
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	32	if ($username eq "" \|\| $password eq "")
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	33	{
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	34	print "Username: ";
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	35	$username = <STDIN>;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	36	print "Password: ";
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	37	$password = <STDIN>;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	38	chomp $username;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	39	chomp $password;
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	40	}
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	41
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	42	my @sf_packages = (
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	43	"sfl/MCL/sf/adaptation/stubs",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	44	"sfl/MCL/sf/app/camera",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	45	"sfl/MCL/sf/app/commonemail",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	46	"sfl/MCL/sf/app/conntools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	47	"sfl/MCL/sf/app/contacts",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	48	"sfl/MCL/sf/app/contentcontrol",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	49	"sfl/MCL/sf/app/conversations",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	50	"sfl/MCL/sf/app/devicecontrol",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	51	"sfl/MCL/sf/app/dictionary",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	52	"sfl/MCL/sf/app/files",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	53	"sfl/MCL/sf/app/gallery",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	54	"sfl/MCL/sf/app/graphicsuis",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	55	"sfl/MCL/sf/app/helps",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	56	"sfl/MCL/sf/app/homescreen",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	57	"sfl/MCL/sf/app/im",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	58	"sfl/MCL/sf/app/imgeditor",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	59	"sfl/MCL/sf/app/imgvieweruis",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	60	"sfl/MCL/sf/app/iptelephony",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	61	"sfl/MCL/sf/app/java",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	62	"sfl/MCL/sf/app/location",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	63	"sfl/MCL/sf/app/messaging",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	64	"sfl/MCL/sf/app/mmsharinguis",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	65	"sfl/MCL/sf/app/musicplayer",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	66	"sfl/MCL/sf/app/organizer",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	67	"sfl/MCL/sf/app/phone",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	68	"sfl/MCL/sf/app/photos",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	69	"sfl/MCL/sf/app/poc",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	70	"sfl/MCL/sf/app/printing",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	71	"sfl/MCL/sf/app/profile",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	72	"sfl/MCL/sf/app/radio",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	73	"sfl/MCL/sf/app/screensaver",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	74	"sfl/MCL/sf/app/settingsuis",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	75	"sfl/MCL/sf/app/speechsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	76	"sfl/MCL/sf/app/techview",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	77	# "sfl/MCL/sf/app/test", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	78	"sfl/MCL/sf/app/utils",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	79	"sfl/MCL/sf/app/videocenter",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	80	"sfl/MCL/sf/app/videoeditor",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	81	"sfl/MCL/sf/app/videoplayer",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	82	"sfl/MCL/sf/app/videotelephony",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	83	"sfl/MCL/sf/app/voicerec",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	84	"oss/MCL/sf/app/webuis",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	85	"sfl/MCL/sf/mw/accesssec",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	86	"sfl/MCL/sf/mw/appinstall",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	87	"sfl/MCL/sf/mw/appsupport",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	88	"sfl/MCL/sf/mw/camerasrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	89	"sfl/MCL/sf/mw/classicui",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	90	"sfl/MCL/sf/mw/dlnasrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	91	"sfl/MCL/sf/mw/drm",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	92	"sfl/MCL/sf/mw/hapticsservices",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	93	"sfl/MCL/sf/mw/homescreensrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	94	"sfl/MCL/sf/mw/imghandling",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	95	"sfl/MCL/sf/mw/imsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	96	"sfl/MCL/sf/mw/inputmethods",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	97	"sfl/MCL/sf/mw/ipappprotocols",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	98	"sfl/MCL/sf/mw/ipappsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	99	"sfl/MCL/sf/mw/ipconnmgmt",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	100	"sfl/MCL/sf/mw/legacypresence",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	101	"sfl/MCL/sf/mw/locationsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	102	"sfl/MCL/sf/mw/mds",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	103	"sfl/MCL/sf/mw/messagingmw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	104	"sfl/MCL/sf/mw/metadatasrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	105	"sfl/MCL/sf/mw/mmappfw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	106	"sfl/MCL/sf/mw/mmmw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	107	"sfl/MCL/sf/mw/mmuifw",
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	108	# "sfl/MCL/sf/mw/mobiletv", - empty package abandoned
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	109	"sfl/MCL/sf/mw/netprotocols",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	110	"sfl/MCL/sf/mw/networkingdm",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	111	"sfl/MCL/sf/mw/opensrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	112	"sfl/MCL/sf/mw/phonesrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	113	"sfl/MCL/sf/mw/remoteconn",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	114	"sfl/MCL/sf/mw/remotemgmt",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	115	"sfl/MCL/sf/mw/remotestorage",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	116	"sfl/MCL/sf/mw/securitysrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	117	"oss/MCL/sf/mw/serviceapi",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	118	"oss/MCL/sf/mw/serviceapifw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	119	"sfl/MCL/sf/mw/shortlinkconn",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	120	"sfl/MCL/sf/mw/svgt",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	121	"sfl/MCL/sf/mw/uiaccelerator",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	122	"sfl/MCL/sf/mw/uiresources",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	123	"sfl/MCL/sf/mw/uitools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	124	"sfl/MCL/sf/mw/videoutils",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	125	"sfl/MCL/sf/mw/vpnclient",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	126	"oss/MCL/sf/mw/web",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	127	"sfl/MCL/sf/mw/websrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	128	"sfl/MCL/sf/mw/wirelessacc",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	129	"sfl/MCL/sf/os/boardsupport",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	130	"sfl/MCL/sf/os/buildtools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	131	"sfl/MCL/sf/os/cellularsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	132	"sfl/MCL/sf/os/commsfw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	133	"sfl/MCL/sf/os/deviceplatformrelease",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	134	"sfl/MCL/sf/os/devicesrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	135	"sfl/MCL/sf/os/graphics",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	136	"sfl/MCL/sf/os/imagingext",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	137	"sfl/MCL/sf/os/kernelhwsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	138	"sfl/MCL/sf/os/lbs",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	139	# "sfl/MCL/sf/os/misc", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	140	"sfl/MCL/sf/os/mm",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	141	"sfl/MCL/sf/os/networkingsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	142	"sfl/MCL/sf/os/ossrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	143	"sfl/MCL/sf/os/persistentdata",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	144	"sfl/MCL/sf/os/security",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	145	"sfl/MCL/sf/os/shortlinksrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	146	"sfl/MCL/sf/os/textandloc",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	147	"sfl/MCL/sf/os/unref",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	148	"sfl/MCL/sf/os/wlan",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	149	"sfl/MCL/sf/os/xmlsrv",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	150	"sfl/MCL/sf/ostools/osrndtools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	151	"sfl/MCL/sf/tools/build_s60",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	152	"sfl/MCL/sf/tools/buildplatforms",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	153	"sfl/MCL/sf/tools/homescreentools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	154	"sfl/MCL/sf/tools/makefile_templates",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	155	"sfl/MCL/sf/tools/platformtools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	156	"sfl/MCL/sf/tools/rndtools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	157	"sfl/MCL/sf/tools/swconfigtools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	158	);
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	159
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	160	my @sftools_packages = (
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	161	"sfl/MCL/sftools/ana/compatanaapps",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	162	"sfl/MCL/sftools/ana/compatanamdw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	163	"sfl/MCL/sftools/ana/dynaanaapps",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	164	"sfl/MCL/sftools/ana/dynaanactrlandcptr",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	165	"sfl/MCL/sftools/ana/dynaanamdw/analysistools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	166	"sfl/MCL/sftools/ana/dynaanamdw/crashmdw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	167	"sfl/MCL/sftools/ana/staticanaapps",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	168	"sfl/MCL/sftools/ana/staticanamdw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	169	"sfl/MCL/sftools/ana/testcreationandmgmt",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	170	"sfl/MCL/sftools/ana/testexec",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	171	"sfl/MCL/sftools/ana/testfw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	172	# "sfl/MCL/sftools/depl/sdkcreationapps", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	173	"sfl/MCL/sftools/depl/sdkcreationmdw/packaging",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	174	# "sfl/MCL/sftools/depl/sdkcreationmdw/sdkbuild", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	175	# "sfl/MCL/sftools/depl/sdkcreationmdw/sdkdelivery", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	176	# "sfl/MCL/sftools/depl/sdkcreationmdw/sdktest", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	177	"sfl/MCL/sftools/depl/swconfigapps/configtools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	178	"sfl/MCL/sftools/depl/swconfigapps/swmgnttoolsguides",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	179	"sfl/MCL/sftools/depl/swconfigapps/sysmodeltools",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	180	"sfl/MCL/sftools/depl/swconfigmdw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	181	# "sfl/MCL/sftools/depl/sysdocapps", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	182	# "sfl/MCL/sftools/depl/sysdocmdw", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	183	# "sfl/MCL/sftools/depl/toolsplatrelease", - removed in 7 May 09 delivery
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	184	"sfl/MCL/sftools/dev/build",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	185	"sfl/MCL/sftools/dev/dbgsrvsmdw",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	186	"sfl/MCL/sftools/dev/devicedbgsrvs",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	187	"oss/MCL/sftools/dev/eclipseenv/buildlayout34",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	188	"oss/MCL/sftools/dev/eclipseenv/eclipse",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	189	"oss/MCL/sftools/dev/hostenv/compilationtoolchains",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	190	"oss/MCL/sftools/dev/hostenv/cpptoolsplat",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	191	"oss/MCL/sftools/dev/hostenv/dist",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	192	"oss/MCL/sftools/dev/hostenv/javatoolsplat",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	193	"oss/MCL/sftools/dev/hostenv/makeng",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	194	"oss/MCL/sftools/dev/hostenv/pythontoolsplat",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	195	"oss/MCL/sftools/dev/ide/carbidecpp",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	196	"sfl/MCL/sftools/dev/ide/carbidecppplugins",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	197	"sfl/MCL/sftools/dev/iss",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	198	"sfl/MCL/sftools/dev/ui",
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	199	);
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	200
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	201	my @other_repos = (
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	202	# Foundation build framework
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	203	"oss/FCL/interim/fbf/bootstrap",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	204	"oss/FCL/interim/fbf/configs/default",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	205	"oss/FCL/interim/fbf/configs/pkgbuild",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	206	"oss/FCL/interim/fbf/projects/packages/serviceapi",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	207	"oss/FCL/interim/fbf/projects/packages/serviceapifw",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	208	"oss/FCL/interim/fbf/projects/packages/web",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	209	"oss/FCL/interim/fbf/projects/packages/webuis",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	210	"oss/FCL/interim/fbf/projects/platforms",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	211	# Utilities
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	212	"oss/MCL/utilities",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	213	);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	214
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	215	sub get_repo($)
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	216	{
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	217	my ($package) = @_;
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	218	my @dirs = split /\//, $package;
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	219	my $license = shift @dirs;
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	220	my $repotree = shift @dirs; # remove the MCL or FCL repo tree information
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	221	my $destdir = pop @dirs; # ignore the package name, because Mercurial will create that
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	222
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	223	if ($mirror)
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	224	{
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	225	# Mirror the full directory structure, so put back the license & repotree dirs
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	226	unshift @dirs, $repotree;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	227	unshift @dirs, $license;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	228	}
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	229
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	230	# Ensure the directories already exist as far as the parent of the repository
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	231	my $path = "";
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	232	foreach my $dir (@dirs)
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	233	{
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	234	$path = ($path eq "") ? $dir : "$path/$dir";
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	235	if (!-d $path)
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	236	{
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	237	mkdir $path;
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	238	}
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	239	}
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	240
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	241	$path .= "/$destdir"; # this is where the repository will go
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	242
8 2184cc44590a Clone from developer.symbian.org (Bug 79) and use https for SFL packages William Roberts <williamr@symbian.org> parents: 6 diff changeset	243	my $repo_url = "https://$username:$password\@$hostname/$package/";
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	244	if ($license ne "sfl")
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	245	{
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	246	# user registration is not required for reading public package repositories
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	247	$repo_url = "http://developer.symbian.org/$package/";
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	248	}
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	249
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	250	if (-d "$path/.hg")
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	251	{
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	252	# The repository already exists, so just do an update
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	253
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	254	print "Updating $destdir from $package...\n";
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	255	return system("hg", "pull", @pull_options, "-R", $path, $repo_url);
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	256	}
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	257	else
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	258	{
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	259	# Clone the repository
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	260
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	261	print "Cloning $destdir from $package...\n";
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	262	return system("hg", "clone", @clone_options, $repo_url, $path);
6 c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	263	}
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	264
c34a018f3291 Re-introduce the clone_all_packages.pl script William Roberts <williamr@symbian.org> parents: diff changeset	265	}
11 ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	266
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	267	my @all_packages;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	268
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	269	@all_packages = (@sf_packages, @sftools_packages, @other_repos);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	270
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	271	if ($mirror)
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	272	{
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	273	push @clone_options, "--noupdate";
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	274	}
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	275
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	276	my @problem_packages = ();
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	277	my $total_packages = 0;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	278
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	279	foreach my $package (@all_packages)
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	280	{
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	281	my $err = get_repo($package);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	282	$total_packages++;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	283	push @problem_packages, $package if ($err);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	284
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	285	if ($mirror && $package =~ /MCL/)
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	286	{
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	287	# If mirroring, get the matching FCLs as well as MCLs
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	288	$package =~ s/MCL/FCL/;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	289	$err = get_repo($package);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	290	$total_packages++;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	291	push @problem_packages, $package if ($err);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	292	}
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	293	}
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	294
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	295	# retry problem packages
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	296
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	297	while ($retries > 0 && scalar @problem_packages)
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	298	{
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	299	$retries --;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	300	my @list = @problem_packages;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	301	@problem_packages = ();
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	302	foreach my $package (@list)
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	303	{
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	304	my $err = get_repo($package);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	305	push @problem_packages, $package if ($err);
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	306	}
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	307	}
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	308
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	309	printf "\n------------\nProcessed %d packages, of which %d reported errors\n",
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	310	$total_packages, scalar @problem_packages;
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	311	if (scalar @problem_packages)
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	312	{
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	313	print join("\n", @problem_packages, "");
ccca32510405 Prompt for username and password (Bug 80), support retries and repo mirroring William Roberts <williamr@symbian.org> parents: 8 diff changeset	314	}

author	William Roberts <williamr@symbian.org>
	Tue, 23 Jun 2009 12:00:58 +0100
changeset 11	ccca32510405
parent 8	2184cc44590a
child 12	319764718a57
permissions	-rw-r--r--