--- 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