2004-04-21 17:54:05 +03:00
|
|
|
#! @perl@ -w
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
2007-08-22 17:52:22 +03:00
|
|
|
my $rootsDir = "@localstatedir@/nix/gcroots";
|
2004-10-20 17:42:38 +03:00
|
|
|
|
2006-05-08 23:00:28 +03:00
|
|
|
my $stateDir = $ENV{"NIX_STATE_DIR"};
|
|
|
|
$stateDir = "@localstatedir@/nix" unless defined $stateDir;
|
|
|
|
|
2004-04-21 17:54:05 +03:00
|
|
|
|
2007-08-10 03:28:44 +03:00
|
|
|
# Turn on caching in nix-prefetch-url.
|
|
|
|
my $channelCache = "$stateDir/channel-cache";
|
|
|
|
mkdir $channelCache, 0755 unless -e $channelCache;
|
2007-08-22 17:52:22 +03:00
|
|
|
$ENV{'NIX_DOWNLOAD_CACHE'} = $channelCache if -W $channelCache;
|
2007-08-10 03:28:44 +03:00
|
|
|
|
|
|
|
|
2004-04-21 17:54:05 +03:00
|
|
|
# Figure out the name of the `.nix-channels' file to use.
|
|
|
|
my $home = $ENV{"HOME"};
|
|
|
|
die '$HOME not set' unless defined $home;
|
|
|
|
my $channelsList = "$home/.nix-channels";
|
2007-09-17 19:08:24 +03:00
|
|
|
|
|
|
|
my $nixDefExpr = "$home/.nix-defexpr";
|
2004-04-21 17:54:05 +03:00
|
|
|
|
|
|
|
|
|
|
|
my @channels;
|
|
|
|
|
|
|
|
|
|
|
|
# Reads the list of channels from the file $channelsList;
|
|
|
|
sub readChannels {
|
|
|
|
return if (!-f $channelsList);
|
2004-11-04 22:20:39 +02:00
|
|
|
open CHANNELS, "<$channelsList" or die "cannot open `$channelsList': $!";
|
2004-04-21 17:54:05 +03:00
|
|
|
while (<CHANNELS>) {
|
|
|
|
chomp;
|
2006-09-25 14:11:16 +03:00
|
|
|
next if /^\s*\#/;
|
2004-04-21 17:54:05 +03:00
|
|
|
push @channels, $_;
|
|
|
|
}
|
|
|
|
close CHANNELS;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# Writes the list of channels to the file $channelsList;
|
|
|
|
sub writeChannels {
|
2004-11-04 22:20:39 +02:00
|
|
|
open CHANNELS, ">$channelsList" or die "cannot open `$channelsList': $!";
|
2004-04-21 17:54:05 +03:00
|
|
|
foreach my $url (@channels) {
|
|
|
|
print CHANNELS "$url\n";
|
|
|
|
}
|
|
|
|
close CHANNELS;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# Adds a channel to the file $channelsList;
|
|
|
|
sub addChannel {
|
|
|
|
my $url = shift;
|
|
|
|
readChannels;
|
|
|
|
foreach my $url2 (@channels) {
|
|
|
|
return if $url eq $url2;
|
|
|
|
}
|
|
|
|
push @channels, $url;
|
|
|
|
writeChannels;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2005-02-17 12:06:12 +02:00
|
|
|
# Remove a channel from the file $channelsList;
|
|
|
|
sub removeChannel {
|
|
|
|
my $url = shift;
|
|
|
|
my @left = ();
|
|
|
|
readChannels;
|
|
|
|
foreach my $url2 (@channels) {
|
|
|
|
push @left, $url2 if $url ne $url2;
|
|
|
|
}
|
|
|
|
@channels = @left;
|
|
|
|
writeChannels;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2004-04-21 17:54:05 +03:00
|
|
|
# Fetch Nix expressions and pull cache manifests from the subscribed
|
|
|
|
# channels.
|
|
|
|
sub update {
|
|
|
|
readChannels;
|
|
|
|
|
2009-11-13 12:08:31 +02:00
|
|
|
# Create the manifests directory if it doesn't exist.
|
|
|
|
mkdir "$stateDir/manifests", 0755 unless -e "$stateDir/manifests";
|
|
|
|
|
2007-08-22 17:52:22 +03:00
|
|
|
# Do we have write permission to the manifests directory? If not,
|
|
|
|
# then just skip pulling the manifest and just download the Nix
|
|
|
|
# expressions. If the user is a non-privileged user in a
|
|
|
|
# multi-user Nix installation, he at least gets installation from
|
|
|
|
# source.
|
|
|
|
if (-W "$stateDir/manifests") {
|
|
|
|
|
|
|
|
# Remove all the old manifests.
|
|
|
|
for my $manifest (glob "$stateDir/manifests/*.nixmanifest") {
|
|
|
|
unlink $manifest or die "cannot remove `$manifest': $!";
|
|
|
|
}
|
|
|
|
|
|
|
|
# Pull cache manifests.
|
|
|
|
foreach my $url (@channels) {
|
|
|
|
#print "pulling cache manifest from `$url'\n";
|
|
|
|
system("@bindir@/nix-pull", "--skip-wrong-store", "$url/MANIFEST") == 0
|
|
|
|
or die "cannot pull cache manifest from `$url'";
|
|
|
|
}
|
2006-05-08 23:00:28 +03:00
|
|
|
|
2004-04-21 17:54:05 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
# Create a Nix expression that fetches and unpacks the channel Nix
|
|
|
|
# expressions.
|
|
|
|
|
2007-05-02 02:16:38 +03:00
|
|
|
my $inputs = "[";
|
2004-04-21 17:54:05 +03:00
|
|
|
foreach my $url (@channels) {
|
2007-05-02 02:16:38 +03:00
|
|
|
$url =~ /\/([^\/]+)\/?$/;
|
|
|
|
my $channelName = $1;
|
|
|
|
$channelName = "unnamed" unless defined $channelName;
|
|
|
|
|
2004-04-21 17:54:05 +03:00
|
|
|
my $fullURL = "$url/nixexprs.tar.bz2";
|
2006-11-18 21:03:45 +02:00
|
|
|
print "downloading Nix expressions from `$fullURL'...\n";
|
2005-04-07 17:35:44 +03:00
|
|
|
$ENV{"PRINT_PATH"} = 1;
|
2007-08-10 02:16:44 +03:00
|
|
|
$ENV{"QUIET"} = 1;
|
|
|
|
my ($hash, $path) = `@bindir@/nix-prefetch-url '$fullURL'`;
|
2005-04-07 17:35:44 +03:00
|
|
|
die "cannot fetch `$fullURL'" if $? != 0;
|
|
|
|
chomp $path;
|
2007-05-02 02:16:38 +03:00
|
|
|
$inputs .= '"' . $channelName . '"' . " " . $path . " ";
|
2004-04-21 17:54:05 +03:00
|
|
|
}
|
2007-05-02 02:16:38 +03:00
|
|
|
$inputs .= "]";
|
2004-04-21 17:54:05 +03:00
|
|
|
|
2005-02-17 12:06:12 +02:00
|
|
|
# Figure out a name for the GC root.
|
2004-10-20 17:42:38 +03:00
|
|
|
my $userName = getpwuid($<);
|
|
|
|
die "who ARE you? go away" unless defined $userName;
|
|
|
|
|
2007-08-22 17:52:22 +03:00
|
|
|
my $rootFile = "$rootsDir/per-user/$userName/channels";
|
2004-10-20 17:42:38 +03:00
|
|
|
|
2009-02-27 13:01:03 +02:00
|
|
|
# Build the Nix expression.
|
2006-11-18 21:03:45 +02:00
|
|
|
print "unpacking channel Nix expressions...\n";
|
2009-02-27 13:01:03 +02:00
|
|
|
my $outPath = `\\
|
|
|
|
@bindir@/nix-build --out-link '$rootFile' --drv-link '$rootFile'.tmp \\
|
|
|
|
@datadir@/nix/corepkgs/channels/unpack.nix \\
|
|
|
|
--argstr system @system@ --arg inputs '$inputs'`
|
|
|
|
or die "cannot unpack the channels";
|
2004-04-21 17:54:05 +03:00
|
|
|
chomp $outPath;
|
|
|
|
|
2005-02-17 12:06:12 +02:00
|
|
|
unlink "$rootFile.tmp";
|
|
|
|
|
2007-09-17 19:08:24 +03:00
|
|
|
# Make the channels appear in nix-env.
|
|
|
|
unlink $nixDefExpr if -l $nixDefExpr; # old-skool ~/.nix-defexpr
|
|
|
|
mkdir $nixDefExpr or die "cannot create directory `$nixDefExpr'" if !-e $nixDefExpr;
|
|
|
|
my $channelLink = "$nixDefExpr/channels";
|
|
|
|
unlink $channelLink; # !!! not atomic
|
|
|
|
symlink($outPath, $channelLink) or die "cannot symlink `$channelLink' to `$outPath'";
|
2005-02-17 12:06:12 +02:00
|
|
|
}
|
2004-10-20 17:42:38 +03:00
|
|
|
|
2005-02-17 12:06:12 +02:00
|
|
|
|
|
|
|
sub usageError {
|
|
|
|
print STDERR <<EOF;
|
|
|
|
Usage:
|
|
|
|
nix-channel --add URL
|
|
|
|
nix-channel --remove URL
|
|
|
|
nix-channel --list
|
|
|
|
nix-channel --update
|
|
|
|
EOF
|
|
|
|
exit 1;
|
2004-04-21 17:54:05 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2005-04-07 17:35:44 +03:00
|
|
|
usageError if scalar @ARGV == 0;
|
|
|
|
|
|
|
|
|
2004-04-21 17:54:05 +03:00
|
|
|
while (scalar @ARGV) {
|
|
|
|
my $arg = shift @ARGV;
|
|
|
|
|
|
|
|
if ($arg eq "--add") {
|
2005-02-17 12:06:12 +02:00
|
|
|
usageError if scalar @ARGV != 1;
|
2004-04-21 17:54:05 +03:00
|
|
|
addChannel (shift @ARGV);
|
|
|
|
last;
|
|
|
|
}
|
|
|
|
|
2005-02-17 12:06:12 +02:00
|
|
|
if ($arg eq "--remove") {
|
|
|
|
usageError if scalar @ARGV != 1;
|
|
|
|
removeChannel (shift @ARGV);
|
|
|
|
last;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($arg eq "--list") {
|
|
|
|
usageError if scalar @ARGV != 0;
|
|
|
|
readChannels;
|
|
|
|
foreach my $url (@channels) {
|
|
|
|
print "$url\n";
|
|
|
|
}
|
|
|
|
last;
|
|
|
|
}
|
|
|
|
|
2004-04-21 17:54:05 +03:00
|
|
|
elsif ($arg eq "--update") {
|
2005-02-17 12:06:12 +02:00
|
|
|
usageError if scalar @ARGV != 0;
|
2004-04-21 17:54:05 +03:00
|
|
|
update;
|
|
|
|
last;
|
|
|
|
}
|
2005-02-17 12:06:12 +02:00
|
|
|
|
|
|
|
elsif ($arg eq "--help") {
|
|
|
|
usageError;
|
|
|
|
}
|
2004-04-21 17:54:05 +03:00
|
|
|
|
|
|
|
else {
|
2005-02-17 12:06:12 +02:00
|
|
|
die "unknown argument `$arg'; try `--help'";
|
2004-04-21 17:54:05 +03:00
|
|
|
}
|
|
|
|
}
|