forked from lix-project/lix
104 lines
2.5 KiB
Plaintext
Executable file
104 lines
2.5 KiB
Plaintext
Executable file
#! @perl@ -w @perlFlags@
|
||
|
||
use utf8;
|
||
use strict;
|
||
use Nix::SSH;
|
||
use Nix::Config;
|
||
use Nix::Store;
|
||
use Nix::CopyClosure;
|
||
use List::Util qw(sum);
|
||
|
||
binmode STDERR, ":encoding(utf8)";
|
||
|
||
if (scalar @ARGV < 1) {
|
||
print STDERR <<EOF
|
||
Usage: nix-copy-closure [--from | --to] HOSTNAME [--gzip] [--bzip2] [--xz] PATHS...
|
||
EOF
|
||
;
|
||
exit 1;
|
||
}
|
||
|
||
|
||
# Get the target host.
|
||
my $sshHost;
|
||
my $toMode = 1;
|
||
my $includeOutputs = 0;
|
||
my $dryRun = 0;
|
||
my $useSubstitutes = 0;
|
||
my $verbosity = 1;
|
||
|
||
|
||
# !!! Copied from nix-pack-closure, should put this in a module.
|
||
my @storePaths = ();
|
||
|
||
while (@ARGV) {
|
||
my $arg = shift @ARGV;
|
||
|
||
if ($arg eq "--help") {
|
||
exec "man nix-copy-closure" or die;
|
||
}
|
||
elsif ($arg eq "--gzip" || $arg eq "--bzip2" || $arg eq "--xz") {
|
||
warn "$0: ‘$arg’ is not implemented\n" if $arg ne "--gzip";
|
||
push @globalSshOpts, "-C";
|
||
}
|
||
elsif ($arg eq "--from") {
|
||
$toMode = 0;
|
||
}
|
||
elsif ($arg eq "--to") {
|
||
$toMode = 1;
|
||
}
|
||
elsif ($arg eq "--include-outputs") {
|
||
$includeOutputs = 1;
|
||
}
|
||
elsif ($arg eq "--show-progress") {
|
||
warn "$0: ‘$arg’ is not implemented\n";
|
||
}
|
||
elsif ($arg eq "--dry-run") {
|
||
$dryRun = 1;
|
||
}
|
||
elsif ($arg eq "--use-substitutes" || $arg eq "-s") {
|
||
$useSubstitutes = 1;
|
||
}
|
||
elsif ($arg eq "-v") {
|
||
$verbosity++;
|
||
setVerbosity($verbosity);
|
||
}
|
||
elsif (!defined $sshHost) {
|
||
$sshHost = $arg;
|
||
}
|
||
else {
|
||
push @storePaths, $arg;
|
||
}
|
||
}
|
||
|
||
die "$0: you did not specify a host name\n" unless defined $sshHost;
|
||
|
||
|
||
if ($toMode) { # Copy TO the remote machine.
|
||
Nix::CopyClosure::copyTo(
|
||
$sshHost, [ @storePaths ],
|
||
$includeOutputs, $dryRun, $useSubstitutes);
|
||
}
|
||
|
||
else { # Copy FROM the remote machine.
|
||
|
||
my ($from, $to) = connectToRemoteNix($sshHost, []);
|
||
|
||
# Query the closure of the given store paths on the remote
|
||
# machine. Paths are assumed to be store paths; there is no
|
||
# resolution (following of symlinks).
|
||
syswrite($to, pack("L<x4L<x4", 7, $includeOutputs ? 1 : 0)) or die;
|
||
writeStrings(\@storePaths, $to);
|
||
my @missing = grep { !isValidPath($_) } readStrings($from);
|
||
|
||
# Export the store paths on the remote machine and import them locally.
|
||
if (scalar @missing > 0) {
|
||
print STDERR "copying ", scalar @missing, " missing paths from ‘$sshHost’...\n";
|
||
writeInt(5, $to); # == cmdExportPaths
|
||
writeInt(0, $to); # obsolete
|
||
writeStrings(\@missing, $to);
|
||
importPaths(fileno($from), 1);
|
||
}
|
||
|
||
}
|