tvl-depot/scripts/nix-pull.in

100 lines
2.5 KiB
Text
Raw Normal View History

#! @perl@ -w @perlFlags@
use strict;
use Nix::Config;
use Nix::Manifest;
2003-08-15 11:39:33 +02:00
my $manifestDir = $Nix::Config::manifestDir;
2003-07-10 17:24:50 +02:00
# Prevent access problems in shared-stored installations.
umask 0022;
# Create the manifests directory if it doesn't exist.
if (! -e $manifestDir) {
2014-08-20 17:00:17 +02:00
mkdir $manifestDir, 0755 or die "cannot create directory $manifestDir";
}
# Make sure that the manifests directory is scanned for GC roots.
2012-01-03 01:47:27 +01:00
my $gcRootsDir = "$Nix::Config::stateDir/gcroots";
my $manifestDirLink = "$gcRootsDir/manifests";
if (! -l $manifestDirLink) {
2014-08-20 17:00:17 +02:00
symlink($manifestDir, $manifestDirLink) or die "cannot create symlink $manifestDirLink";
}
2006-05-31 11:24:54 +02:00
# Process the URLs specified on the command line.
sub downloadFile {
my $url = shift;
$ENV{"PRINT_PATH"} = 1;
$ENV{"QUIET"} = 1;
my ($dummy, $path) = `$Nix::Config::binDir/nix-prefetch-url '$url'`;
2014-08-20 17:00:17 +02:00
die "cannot fetch $url" if $? != 0;
2007-08-14 15:15:59 +02:00
die "nix-prefetch-url did not return a path" unless defined $path;
2007-08-15 11:24:06 +02:00
chomp $path;
return $path;
}
sub processURL {
my $url = shift;
$url =~ s/\/$//;
my $manifest;
my $origUrl = $ENV{'NIX_ORIG_URL'} || $url;
# First see if a bzipped manifest is available.
if (system("$Nix::Config::curl --fail --silent --location --head '$url'.bz2 > /dev/null") == 0) {
2014-08-20 17:00:17 +02:00
print "fetching list of Nix archives at $url.bz2...\n";
$manifest = downloadFile "$url.bz2";
}
# Otherwise, just get the uncompressed manifest.
else {
2014-08-20 17:00:17 +02:00
print "fetching list of Nix archives at $url...\n";
$manifest = downloadFile $url;
}
2009-02-27 10:53:58 +01:00
my $baseName = "unnamed";
if ($url =~ /\/([^\/]+)\/[^\/]+$/) { # get the forelast component
$baseName = $1;
}
my $hash = `$Nix::Config::binDir/nix-hash --flat '$manifest'`
2014-08-20 17:00:17 +02:00
or die "cannot hash $manifest";
chomp $hash;
my $urlFile = "$manifestDir/$baseName-$hash.url";
2014-08-20 17:00:17 +02:00
open URL, ">$urlFile" or die "cannot create $urlFile";
print URL $origUrl;
close URL;
my $finalPath = "$manifestDir/$baseName-$hash.nixmanifest";
unlink $finalPath if -e $finalPath;
symlink("$manifest", "$finalPath")
2014-08-20 17:00:17 +02:00
or die "cannot link $finalPath to $manifest";
deleteOldManifests($origUrl, $urlFile);
}
while (@ARGV) {
my $url = shift @ARGV;
if ($url eq "--help") {
exec "man nix-pull" or die;
} elsif ($url eq "--skip-wrong-store") {
# No-op, no longer supported.
} else {
processURL $url;
}
}
2003-07-10 17:24:50 +02:00
# Update the cache.
updateManifestDB();