the-distro/channel-scripts
1
0
Fork 1
Code Issues 8 Pull requests Packages Projects Releases Wiki Activity

* Run generate-patches.pl.

Browse source 
git-svn-id: https://nixos.org/repos/nix/release/trunk/channels@22524 70bd8c7a-acb8-0310-9f0d-9cc1c95dcdbb
This commit is contained in:
Eelco Dolstra 2010-07-08 09:09:28 +00:00
parent 6d149f9253
commit a621b5cf87
1 changed files with 17 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
mirror-channel.pl
View file

@ -67,7 +67,7 @@ while (my ($storePath, $files) = each %narFiles) {
rename($dstFileTmp, $dstFile) or die "cannot rename $dstFileTmp"; rename($dstFileTmp, $dstFile) or die "cannot rename $dstFileTmp";
} }
$file->{size} = stat($dstFile)->size or die; $file->{size} = stat($dstFile)->size or die "cannot get size of $dstFile";
my $hashFile = "$narPath/.hash.$dstName"; my $hashFile = "$narPath/.hash.$dstName";
my $hash; my $hash;
@ -87,7 +87,14 @@ while (my ($storePath, $files) = each %narFiles) {
} }
# Write the new manifest. # Write the new manifest.
writeManifest("$dstChannelPath/MANIFEST", \%narFiles, \%patches); writeManifest("$dstChannelPath/MANIFEST.tmp", \%narFiles, \%patches);
# Generate patches.
if (-e "$dstChannelPath/MANIFEST.tmp") {
system("perl -I /home/buildfarm/nix/scripts /home/buildfarm/nix/scripts/generate-patches.pl $narPath $patchesPath $patchesURL $dstChannelPath/MANIFEST $dstChannelPath/MANIFEST.tmp") == 0 or die;
rename("$dstChannelPath/MANIFEST.tmp", "$dstChannelPath/MANIFEST") or die;
rename("$dstChannelPath/MANIFEST.tmp.bz2", "$dstChannelPath/MANIFEST.bz2") or die;
}
# Mirror nixexprs.tar.bz2. # Mirror nixexprs.tar.bz2.
my $tmpFile = "$dstChannelPath/.tmp.$$.nixexprs.tar.bz2"; my $tmpFile = "$dstChannelPath/.tmp.$$.nixexprs.tar.bz2";
@ -95,11 +102,11 @@ system("$curl '$nixexprsURL' > $tmpFile") == 0 or die "cannot download `$nixexpr
rename($tmpFile, "$dstChannelPath/nixexprs.tar.bz2") or die "cannot rename $tmpFile"; rename($tmpFile, "$dstChannelPath/nixexprs.tar.bz2") or die "cannot rename $tmpFile";
# Remove ".hash.*" files corresponding to NARs that have been removed. # Remove ".hash.*" files corresponding to NARs that have been removed.
foreach my $fn (glob "$narPath/.hash.*") { #foreach my $fn (glob "$narPath/.hash.*") {
my $fn2 = $fn; # my $fn2 = $fn;
$fn2 =~ s/\.hash\.//; # $fn2 =~ s/\.hash\.//;
if (! -e "$fn2") { # if (! -e "$fn2") {
print STDERR "removing hash $fn\n"; # print STDERR "removing hash $fn\n";
unlink "$fn"; # unlink "$fn";
} # }
} #}