danderson/channel-scripts
0
0
Fork 0
forked from the-distro/channel-scripts
Code Pull requests 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";
}
$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 $hash;
@ -87,7 +87,14 @@ while (my ($storePath, $files) = each %narFiles) {
}
# 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.
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";
# Remove ".hash.*" files corresponding to NARs that have been removed.
foreach my $fn (glob "$narPath/.hash.*") {
my $fn2 = $fn;
$fn2 =~ s/\.hash\.//;
if (! -e "$fn2") {
print STDERR "removing hash $fn\n";
unlink "$fn";
}
}
#foreach my $fn (glob "$narPath/.hash.*") {
# my $fn2 = $fn;
# $fn2 =~ s/\.hash\.//;
# if (! -e "$fn2") {
# print STDERR "removing hash $fn\n";
# unlink "$fn";
# }
#}