2004-03-15 16:23:53 +01:00
|
|
|
#! @perl@ -w -I@libexecdir@/nix
|
2003-07-10 15:41:28 +02:00
|
|
|
|
2003-08-15 12:13:41 +02:00
|
|
|
use strict;
|
2006-10-04 20:58:11 +02:00
|
|
|
use File::Temp qw(tempdir);
|
2003-12-05 12:25:38 +01:00
|
|
|
use readmanifest;
|
2003-08-15 11:39:33 +02:00
|
|
|
|
2006-10-04 20:58:11 +02:00
|
|
|
my $tmpDir = tempdir("nix-pull.XXXXXX", CLEANUP => 1, TMPDIR => 1)
|
|
|
|
or die "cannot create a temporary directory";
|
2003-10-16 18:29:57 +02:00
|
|
|
|
2006-10-04 20:58:11 +02:00
|
|
|
my $manifest = "$tmpDir/manifest";
|
2003-10-16 18:29:57 +02:00
|
|
|
|
2005-01-25 18:08:52 +01:00
|
|
|
my $binDir = $ENV{"NIX_BIN_DIR"};
|
|
|
|
$binDir = "@bindir@" unless defined $binDir;
|
|
|
|
|
|
|
|
my $libexecDir = $ENV{"NIX_LIBEXEC_DIR"};
|
|
|
|
$libexecDir = "@libexecdir@" unless defined $libexecDir;
|
|
|
|
|
2005-02-01 18:50:48 +01:00
|
|
|
my $stateDir = $ENV{"NIX_STATE_DIR"};
|
|
|
|
$stateDir = "@localstatedir@/nix" unless defined $stateDir;
|
2005-01-25 18:08:52 +01:00
|
|
|
|
2006-09-25 13:11:16 +02:00
|
|
|
my $storeDir = $ENV{"NIX_STORE_DIR"};
|
|
|
|
$storeDir = "@storedir@" unless defined $storeDir;
|
|
|
|
|
2003-07-10 17:24:50 +02:00
|
|
|
|
2005-02-08 14:00:39 +01:00
|
|
|
# Prevent access problems in shared-stored installations.
|
|
|
|
umask 0022;
|
|
|
|
|
|
|
|
|
2006-05-31 11:24:54 +02:00
|
|
|
# Process the URLs specified on the command line.
|
2004-12-16 16:31:50 +01:00
|
|
|
my %narFiles;
|
|
|
|
my %patches;
|
2004-12-13 14:47:38 +01:00
|
|
|
|
2006-09-25 13:11:16 +02:00
|
|
|
my $skipWrongStore = 0;
|
|
|
|
|
2004-12-13 14:47:38 +01:00
|
|
|
sub processURL {
|
2003-11-24 12:11:40 +01:00
|
|
|
my $url = shift;
|
2004-12-13 14:47:38 +01:00
|
|
|
|
|
|
|
$url =~ s/\/$//;
|
|
|
|
print "obtaining list of Nix archives at $url...\n";
|
|
|
|
|
|
|
|
system("@curl@ --fail --silent --show-error --location --max-redirs 20 " .
|
|
|
|
"'$url' > '$manifest'") == 0
|
|
|
|
or die "curl failed: $?";
|
2004-12-20 17:38:50 +01:00
|
|
|
|
2007-01-23 17:05:59 +01:00
|
|
|
if (readManifest($manifest, \%narFiles, \%patches) < 3) {
|
2005-02-25 17:12:52 +01:00
|
|
|
die "manifest `$url' is too old (i.e., for Nix <= 0.7)\n";
|
|
|
|
}
|
2004-12-20 17:38:50 +01:00
|
|
|
|
2006-09-25 13:11:16 +02: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;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2004-12-20 17:38:50 +01:00
|
|
|
my $baseName = "unnamed";
|
|
|
|
if ($url =~ /\/([^\/]+)\/[^\/]+$/) { # get the forelast component
|
|
|
|
$baseName = $1;
|
|
|
|
}
|
|
|
|
|
2005-01-25 18:08:52 +01:00
|
|
|
my $hash = `$binDir/nix-hash --flat '$manifest'`
|
2004-12-20 17:38:50 +01:00
|
|
|
or die "cannot hash `$manifest'";
|
|
|
|
chomp $hash;
|
|
|
|
|
2005-02-01 18:50:48 +01:00
|
|
|
my $finalPath = "$stateDir/manifests/$baseName-$hash.nixmanifest";
|
2004-12-20 17:38:50 +01:00
|
|
|
|
2006-09-25 12:44:27 +02:00
|
|
|
system ("@coreutils@/mv", "-f", "$manifest", "$finalPath") == 0
|
2004-12-20 17:38:50 +01:00
|
|
|
or die "cannot move `$manifest' to `$finalPath";
|
2003-11-24 12:11:40 +01:00
|
|
|
}
|
2004-12-13 14:47:38 +01:00
|
|
|
|
2004-12-16 15:31:49 +01:00
|
|
|
while (@ARGV) {
|
|
|
|
my $url = shift @ARGV;
|
2006-09-25 13:11:16 +02:00
|
|
|
if ($url eq "--skip-wrong-store") {
|
|
|
|
$skipWrongStore = 1;
|
|
|
|
} else {
|
|
|
|
processURL $url;
|
|
|
|
}
|
2003-07-10 17:11:48 +02:00
|
|
|
}
|
2003-07-10 17:24:50 +02:00
|
|
|
|
2003-12-05 12:25:38 +01:00
|
|
|
|
2004-12-16 16:31:50 +01:00
|
|
|
my $size = scalar (keys %narFiles);
|
2004-06-21 11:51:23 +02:00
|
|
|
print "$size store paths in manifest\n";
|
2003-12-05 12:25:38 +01:00
|
|
|
|
2003-08-05 13:14:24 +02:00
|
|
|
|
|
|
|
# Register all substitutes.
|
|
|
|
print STDERR "registering substitutes...\n";
|
2004-06-21 11:51:23 +02:00
|
|
|
|
2005-09-21 19:06:06 +02:00
|
|
|
my $pid = open(WRITE, "|$binDir/nix-store --register-substitutes")
|
2004-06-21 11:51:23 +02:00
|
|
|
or die "cannot run nix-store";
|
|
|
|
|
2004-12-16 16:31:50 +01:00
|
|
|
foreach my $storePath (keys %narFiles) {
|
|
|
|
my $narFileList = $narFiles{$storePath};
|
|
|
|
foreach my $narFile (@{$narFileList}) {
|
|
|
|
print WRITE "$storePath\n";
|
2005-02-09 13:57:13 +01:00
|
|
|
print WRITE "$narFile->{deriver}\n";
|
2005-01-25 18:08:52 +01:00
|
|
|
print WRITE "$libexecDir/nix/download-using-manifests.pl\n";
|
2004-12-20 17:38:50 +01:00
|
|
|
print WRITE "0\n";
|
2005-01-25 18:08:52 +01:00
|
|
|
my @references = split " ", $narFile->{references};
|
|
|
|
my $count = scalar @references;
|
|
|
|
print WRITE "$count\n";
|
|
|
|
foreach my $reference (@references) {
|
|
|
|
print WRITE "$reference\n";
|
|
|
|
}
|
2004-12-16 16:31:50 +01:00
|
|
|
}
|
2003-12-04 15:38:31 +01:00
|
|
|
}
|
2003-07-10 22:13:32 +02:00
|
|
|
|
2005-09-21 19:06:06 +02:00
|
|
|
close WRITE or die "nix-store failed: $?";
|