lix/scripts/nix-pull.in

112 lines
3 KiB
Plaintext
Raw Normal View History

2004-03-15 15:23:53 +00:00
#! @perl@ -w -I@libexecdir@/nix
use strict;
2006-10-04 18:58:11 +00:00
use File::Temp qw(tempdir);
use readmanifest;
2003-08-15 09:39:33 +00:00
2006-10-04 18:58:11 +00:00
my $tmpDir = tempdir("nix-pull.XXXXXX", CLEANUP => 1, TMPDIR => 1)
or die "cannot create a temporary directory";
2008-11-20 15:44:59 +00:00
my $binDir = $ENV{"NIX_BIN_DIR"} || "@bindir@";
my $libexecDir = $ENV{"NIX_LIBEXEC_DIR"};
$libexecDir = "@libexecdir@" unless defined $libexecDir;
2005-02-01 17:50:48 +00:00
my $stateDir = $ENV{"NIX_STATE_DIR"};
$stateDir = "@localstatedir@/nix" unless defined $stateDir;
my $storeDir = $ENV{"NIX_STORE_DIR"};
$storeDir = "@storedir@" unless defined $storeDir;
2003-07-10 15:24:50 +00:00
# Prevent access problems in shared-stored installations.
umask 0022;
2006-05-31 09:24:54 +00:00
# Process the URLs specified on the command line.
2004-12-16 15:31:50 +00:00
my %narFiles;
my %localPaths;
2004-12-16 15:31:50 +00:00
my %patches;
my $skipWrongStore = 0;
sub downloadFile {
my $url = shift;
$ENV{"PRINT_PATH"} = 1;
$ENV{"QUIET"} = 1;
2007-08-14 13:15:59 +00:00
my ($dummy, $path) = `$binDir/nix-prefetch-url '$url'`;
2007-08-15 09:24:06 +00:00
die "cannot fetch `$url'" if $? != 0;
2007-08-14 13:15:59 +00:00
die "nix-prefetch-url did not return a path" unless defined $path;
2007-08-15 09:24:06 +00:00
chomp $path;
return $path;
}
sub processURL {
my $url = shift;
$url =~ s/\/$//;
my $manifest;
# First see if a bzipped manifest is available.
if (system("@curl@ --fail --silent --head '$url'.bz2 > /dev/null") == 0) {
print "obtaining list of Nix archives at `$url.bz2'...\n";
my $bzipped = downloadFile "$url.bz2";
$manifest = "$tmpDir/MANIFEST";
system("@bunzip2@ < $bzipped > $manifest") == 0
or die "cannot decompress manifest";
$manifest = (`$binDir/nix-store --add $manifest`
or die "cannot copy $manifest to the store");
chomp $manifest;
}
# Otherwise, just get the uncompressed manifest.
else {
print "obtaining list of Nix archives at `$url'...\n";
$manifest = downloadFile $url;
}
if (readManifest($manifest, \%narFiles, \%localPaths, \%patches) < 3) {
2007-08-15 09:24:06 +00:00
die "`$url' is not manifest or it is too old (i.e., for Nix <= 0.7)\n";
2005-02-25 16:12:52 +00:00
}
if ($skipWrongStore) {
foreach my $path (keys %narFiles) {
if (substr($path, 0, length($storeDir) + 1) ne "$storeDir/") {
print STDERR "warning: manifest `$url' assumes a Nix store at a different location than $storeDir, skipping...\n";
exit 0;
}
}
}
my $baseName = "unnamed";
if ($url =~ /\/([^\/]+)\/[^\/]+$/) { # get the forelast component
$baseName = $1;
}
my $hash = `$binDir/nix-hash --flat '$manifest'`
or die "cannot hash `$manifest'";
chomp $hash;
2005-02-01 17:50:48 +00:00
my $finalPath = "$stateDir/manifests/$baseName-$hash.nixmanifest";
system("@coreutils@/ln", "-sfn", "$manifest", "$finalPath") == 0
or die "cannot link `$finalPath to `$manifest'";
}
while (@ARGV) {
my $url = shift @ARGV;
if ($url eq "--skip-wrong-store") {
$skipWrongStore = 1;
} else {
processURL $url;
}
}
2003-07-10 15:24:50 +00:00
my $size = scalar (keys %narFiles) + scalar (keys %localPaths);
print "$size store paths in manifest\n";