--- a/dummy_foundation/update_repos.pl	Wed Jun 03 18:33:51 2009 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,69 +0,0 @@
-#! perl
-
-use strict;
-
-# update_repos.pl
-
-my %repos;
-
-foreach my $layer ("os", "mw", "app")
-	{
-	opendir DIR, $layer;
-	my @packages = grep !/^\.\.?$/, readdir DIR;
-	closedir DIR;
-	foreach my $package (@packages)
-		{
-		$repos{"$layer/$package"} = 1;
-		}
-	}
-
-print join("\n",sort keys %repos,"","");
-
-my $tree = "/opt/hg/repos/sf/";
-
-foreach my $layer ("os", "mw", "app")
-	{
-	opendir DIR, "$tree$layer";
-	my @packages = grep !/^\.\.?$/, readdir DIR;
-	closedir DIR;
-	foreach my $package (@packages)
-		{
-		if (defined $repos{"$layer/$package"})
-			{
-			# this one is still relevant
-			next;
-			}
-		# package name has changed, I expect
-		print "Old package $layer/$package is now obsolete\n";
-		rename "$tree$layer/$package", "$tree"."obsolete/".$package;
-		}
-	}
-
-foreach my $repo (sort keys %repos)
-	{
-	print "\n\nProcessing $repo\n";
-	my ($layer,$package) = split /\//, $repo;
-	my $master = "$tree$repo/MCL_$package/.hg";
-	
-	if (-d $master)
-		{
-		# repo already exists - move it into place
-		rename "$tree$repo/MCL_$package/.hg", "$repo/.hg";
-		}
-	else
-		{
-		# New repo
-		print "New repository $repo\n";
-		mkdir "$tree$layer";
-		mkdir "$tree$layer/$package";
-		mkdir "$tree$layer/$package/MCL_$package";
-		}
-		
-	chdir $repo;
-	system("hg","init") if (!-d ".hg");
-	system("hg", "commit", "--addremove", "-m", "updated $repo");
-	chdir "../..";
-	rename "$repo/.hg", "$tree$repo/MCL_$package/.hg";
-	}
-
-	
\ No newline at end of file