danderson/channel-scripts
0
0
Fork 0
forked from the-distro/channel-scripts
Code Pull requests Activity

* Backup the manifest.

Browse source 
git-svn-id: https://nixos.org/repos/nix/release/trunk/channels@24937 70bd8c7a-acb8-0310-9f0d-9cc1c95dcdbb
This commit is contained in:
Eelco Dolstra 2010-11-30 13:05:32 +00:00
parent d715593122
commit 93e0016e7a
1 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
mirror-channel.pl
View file

@ -37,6 +37,8 @@ die "$dstChannelPath doesn't exist\n" unless -d $dstChannelPath;
die "$narPath doesn't exist\n" unless -d $narPath;
die "$patchesPath doesn't exist\n" unless -d $patchesPath;
my $manifestPath = "$dstChannelPath/MANIFEST";
my $tmpDir = tempdir("nix-mirror-XXXXXXX", TMPDIR => 1, CLEANUP => 1);
print STDERR "$tmpDir\n";
@ -47,13 +49,20 @@ flock LOCK, LOCK_EX;
print STDERR "started mirroring at ", strftime("%a %b %e %H:%M:%S %Y", localtime), "\n";
# Backup the old manifest once per day.
my $backupPath = strftime("$dstChannelPath/MANIFEST.backup-%Y%m%d", gmtime);
if (-f $manifestPath && ! -f $backupPath) {
system "cp $manifestPath $backupPath";
}
# Read the old manifest, if available.
my %narFilesOld;
my %localPathsOld;
my %patchesOld;
readManifest("$dstChannelPath/MANIFEST", \%narFilesOld, \%localPathsOld, \%patchesOld)
if -f "$dstChannelPath/MANIFEST";
readManifest($manifestPath, \%narFilesOld, \%localPathsOld, \%patchesOld)
if -f $manifestPath;
my %knownURLs;
while (my ($storePath, $files) = each %narFilesOld) {
@ -151,8 +160,8 @@ propagatePatches \%patchesOld, \%narFiles, \%patches; # not really needed
# Make the temporary manifest available.
writeManifest("$dstChannelPath/MANIFEST.tmp", \%narFiles, \%patches);
rename("$dstChannelPath/MANIFEST.tmp", "$dstChannelPath/MANIFEST") or die;
rename("$dstChannelPath/MANIFEST.tmp.bz2", "$dstChannelPath/MANIFEST.bz2") or die;
rename("$dstChannelPath/MANIFEST.tmp", "$manifestPath") or die;
rename("$dstChannelPath/MANIFEST.tmp.bz2", "$manifestPath.bz2") or die;
# Mirror nixexprs.tar.bz2. This should really be done atomically with updating the manifest.
@ -188,9 +197,9 @@ if ($enablePatches) {
# Rewrite the manifest. We have to reread it and propagate all
# patches because it may have changed in the meantime.
readManifest("$dstChannelPath/MANIFEST", \%narFiles, \%localPaths, \%patches);
readManifest($manifestPath, \%narFiles, \%localPaths, \%patches);
propagatePatches \%allPatches, \%narFiles, \%patches;
writeManifest("$dstChannelPath/MANIFEST", \%narFiles, \%patches);
writeManifest($manifestPath, \%narFiles, \%patches);
}