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

download-from-binary-cache: Print correct URL

Browse source
This commit is contained in:
Eelco Dolstra 2012-07-18 11:01:17 -04:00
parent fe241ece29
commit aa115e22df
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scripts/download-from-binary-cache.pl.in
View file

@ -213,6 +213,8 @@ sub processNARInfo {
print STDERR "bad NAR info file ‘$request->{url}’\n";
return undef;
}
# FIXME: validate $url etc. for security.
# Cache the result.
$insertNAR->execute(
@ -417,8 +419,9 @@ sub downloadBinary {
print STDERR "unknown compression method ‘$info->{compression}’\n";
next;
}
print STDERR "\n*** Downloading ‘$info->{url}’ into ‘$storePath’...\n";
if (system("$Nix::Config::curl --fail --location $binaryCacheUrl/$info->{url} | $decompressor | $Nix::Config::binDir/nix-store --restore $storePath") != 0) {
my $url = "$binaryCacheUrl/$info->{url}"; # FIXME: handle non-relative URLs
print STDERR "\n*** Downloading ‘$url’ into ‘$storePath’...\n";
if (system("$Nix::Config::curl --fail --location '$url' | $decompressor | $Nix::Config::binDir/nix-store --restore $storePath") != 0) {
die "download of `$info->{url}' failed" . ($! ? ": $!" : "") . "\n" unless $? == 0;
next;
}