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