mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Now *really* prevent accumulation of old manifests

Browse source
This commit is contained in:
Eelco Dolstra 2012-05-07 17:23:26 -04:00
parent 464089365e
commit 147f10157f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scripts/nix-pull.in
View file

@ -49,6 +49,8 @@ sub processURL {
my $manifest; my $manifest;
my $origUrl = $ENV{'NIX_ORIG_URL'} || $url;
# First see if a bzipped manifest is available. # First see if a bzipped manifest is available.
if (system("$Nix::Config::curl --fail --silent --location --head '$url'.bz2 > /dev/null") == 0) { if (system("$Nix::Config::curl --fail --silent --location --head '$url'.bz2 > /dev/null") == 0) {
print "fetching list of Nix archives at `$url.bz2'...\n"; print "fetching list of Nix archives at `$url.bz2'...\n";
@ -72,7 +74,7 @@ sub processURL {
my $urlFile = "$manifestDir/$baseName-$hash.url"; my $urlFile = "$manifestDir/$baseName-$hash.url";
open URL, ">$urlFile" or die "cannot create `$urlFile'"; open URL, ">$urlFile" or die "cannot create `$urlFile'";
print URL ($ENV{'NIX_ORIG_URL'} || $url); print URL $origUrl;
close URL; close URL;
my $finalPath = "$manifestDir/$baseName-$hash.nixmanifest"; my $finalPath = "$manifestDir/$baseName-$hash.nixmanifest";
@ -89,7 +91,7 @@ sub processURL {
my $url2 = <URL>; my $url2 = <URL>;
chomp $url2; chomp $url2;
close URL; close URL;
next unless $url eq $url2; next unless $origUrl eq $url2;
my $base = $urlFile2; $base =~ s/.url$//; my $base = $urlFile2; $base =~ s/.url$//;
unlink "${base}.url"; unlink "${base}.url";
unlink "${base}.nixmanifest"; unlink "${base}.nixmanifest";