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;
|
2003-08-15 11:39:33 +02:00
|
|
|
use IPC::Open2;
|
2003-10-16 18:29:57 +02:00
|
|
|
use POSIX qw(tmpnam);
|
2003-12-05 12:25:38 +01:00
|
|
|
use readmanifest;
|
2003-08-15 11:39:33 +02:00
|
|
|
|
2003-10-16 18:29:57 +02:00
|
|
|
my $tmpdir;
|
|
|
|
do { $tmpdir = tmpnam(); }
|
|
|
|
until mkdir $tmpdir, 0777;
|
|
|
|
|
|
|
|
my $manifest = "$tmpdir/manifest";
|
2004-06-21 11:51:23 +02:00
|
|
|
my $confFile = "@sysconfdir@/nix/prebuilts.conf";
|
2003-07-10 17:11:48 +02:00
|
|
|
|
2003-10-16 18:29:57 +02:00
|
|
|
#END { unlink $manifest; rmdir $tmpdir; }
|
|
|
|
|
2003-07-10 17:24:50 +02:00
|
|
|
|
2003-12-05 12:25:38 +01:00
|
|
|
# Obtain URLs either from the command line or from a configuration file.
|
2004-06-21 11:51:23 +02:00
|
|
|
my %storePaths2urls;
|
2003-12-05 12:25:38 +01:00
|
|
|
my %urls2hashes;
|
|
|
|
my %successors;
|
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: $?";
|
|
|
|
|
|
|
|
readManifest $manifest, \%storePaths2urls, \%urls2hashes, \%successors;
|
2003-11-24 12:11:40 +01:00
|
|
|
}
|
2004-12-13 14:47:38 +01:00
|
|
|
|
2003-11-24 12:11:40 +01:00
|
|
|
if (scalar @ARGV > 0) {
|
|
|
|
while (@ARGV) {
|
|
|
|
my $url = shift @ARGV;
|
2004-12-13 14:47:38 +01:00
|
|
|
processURL $url;
|
2003-11-24 12:11:40 +01:00
|
|
|
}
|
|
|
|
} else {
|
2004-06-21 11:51:23 +02:00
|
|
|
open CONFFILE, "<$confFile";
|
2003-11-24 12:11:40 +01:00
|
|
|
while (<CONFFILE>) {
|
|
|
|
chomp;
|
|
|
|
if (/^\s*(\S+)\s*(\#.*)?$/) {
|
|
|
|
my $url = $1;
|
2004-12-13 14:47:38 +01:00
|
|
|
processURL $url;
|
2003-11-24 12:11:40 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
close CONFFILE;
|
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-06-21 11:51:23 +02:00
|
|
|
my $size = scalar (keys %storePaths2urls);
|
|
|
|
print "$size store paths in manifest\n";
|
2003-12-05 12:25:38 +01:00
|
|
|
|
2003-08-05 13:14:24 +02:00
|
|
|
|
2004-06-21 11:51:23 +02:00
|
|
|
# Instantiate a store expression that builds the substitute program
|
|
|
|
# (the program that fetches URLs and unpacks them into the store).
|
|
|
|
my $nixExpr =
|
|
|
|
"(import @datadir@/nix/corepkgs/nix-pull) " .
|
|
|
|
"{system = \"@system@\";}";
|
2003-10-16 18:29:57 +02:00
|
|
|
|
2004-06-21 11:51:23 +02:00
|
|
|
print STDERR "instantiating store expression...\n";
|
|
|
|
my $storeExpr = `echo '$nixExpr' | @bindir@/nix-instantiate -`
|
|
|
|
or die "cannot instantiate Nix expression";
|
|
|
|
chomp $storeExpr;
|
2003-08-15 11:39:33 +02:00
|
|
|
|
2003-10-16 18:29:57 +02: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
|
|
|
|
|
|
|
my $pid = open2(\*READ, \*WRITE, "@bindir@/nix-store --substitute")
|
|
|
|
or die "cannot run nix-store";
|
|
|
|
|
|
|
|
close READ;
|
|
|
|
|
|
|
|
foreach my $storePath (keys %storePaths2urls) {
|
|
|
|
print WRITE "$storePath\n";
|
|
|
|
print WRITE "$storeExpr\n";
|
|
|
|
print WRITE "/fetch\n";
|
|
|
|
print WRITE "2\n";
|
|
|
|
print WRITE "$storePaths2urls{$storePath}\n";
|
|
|
|
print WRITE "$urls2hashes{$storePaths2urls{$storePath}}\n";
|
2003-12-04 15:38:31 +01:00
|
|
|
}
|
2003-07-10 22:13:32 +02:00
|
|
|
|
2004-06-21 11:51:23 +02:00
|
|
|
close WRITE;
|
|
|
|
|
|
|
|
waitpid $pid, 0;
|
|
|
|
$? == 0 or die "nix-store failed";
|
|
|
|
|
2003-10-16 18:29:57 +02:00
|
|
|
|
2003-08-05 13:14:24 +02:00
|
|
|
# Register all successors.
|
|
|
|
print STDERR "registering successors...\n";
|
2003-12-05 12:25:38 +01:00
|
|
|
my @sucs = %successors;
|
2003-12-04 15:38:31 +01:00
|
|
|
while (scalar @sucs > 0) {
|
|
|
|
my $n = scalar @sucs;
|
|
|
|
if ($n > 256) { $n = 256 };
|
|
|
|
my @sucs2 = @sucs[0..$n - 1];
|
|
|
|
@sucs = @sucs[$n..scalar @sucs - 1];
|
2004-04-06 10:18:51 +02:00
|
|
|
system "@bindir@/nix-store --successor @sucs2";
|
2003-12-04 15:38:31 +01:00
|
|
|
if ($?) { die "`nix-store --successor' failed"; }
|
|
|
|
}
|