v0.19 of downloadkit.py
- removed the "-p" short form of --password, to avoid confusion with "--progress" if the first minus is omitted
- add support for "Do You Feel Lucky?" downloads, which included changing the version check
- added report_to_symbian() which logs the way that downloadkit is used and the success or failure
- added --nopublicity to turn off report_to_symbian()
#! perl
use strict;
# update_repos.pl
my %repos;
foreach my $layer ("os", "mw", "app", "ostools")
{
opendir DIR, $layer;
my @packages = grep !/^\.\.?$/, readdir DIR;
closedir DIR;
foreach my $package (@packages)
{
next if (-f "$layer/$package");
$repos{"$layer/$package"} = 1;
}
}
print join("\n",sort keys %repos,"","");
my $tree = "d:/Mercurial/";
foreach my $layer ("os", "mw", "app", "ostools")
{
opendir DIR, "$tree$layer";
my @packages = grep !/^\.\.?$/, readdir DIR;
closedir DIR;
foreach my $package (@packages)
{
next if (-f "$tree$package");
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", "add wk04 Nokia source");
chdir "../..";
rename "$repo/.hg", "$tree$repo/MCL_$package/.hg";
}