diff options
| author | Eelco Dolstra <eelco.dolstra@logicblox.com> | 2014-07-24T14·24+0200 |
|---|---|---|
| committer | Eelco Dolstra <eelco.dolstra@logicblox.com> | 2014-07-24T14·30+0200 |
| commit | 17ef2346723b96080cc912da646df4f6424e83fa (patch) | |
| tree | 5ab323de4bbb72f2a41734e17528c6610f45b992 /perl | |
| parent | 7b351da680cad41623c3f9853ff2eea3cb8e3545 (diff) | |
Fix NIX_SSHOPTS
Closes #302.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Nix/CopyClosure.pm | 6 | ||||
| -rw-r--r-- | perl/lib/Nix/SSH.pm | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/perl/lib/Nix/CopyClosure.pm b/perl/lib/Nix/CopyClosure.pm index 061a15c071cf..e12fef6bb731 100644 --- a/perl/lib/Nix/CopyClosure.pm +++ b/perl/lib/Nix/CopyClosure.pm @@ -100,7 +100,7 @@ sub oldCopyTo { # Optionally use substitutes on the remote host. if (!$dryRun && $useSubstitutes) { - system "ssh $sshHost @{$sshOpts} nix-store -r --ignore-unknown @closure"; + system "ssh $sshHost @{$sshOpts} @globalSshOpts nix-store -r --ignore-unknown @closure"; # Ignore exit status because this is just an optimisation. } @@ -112,7 +112,7 @@ sub oldCopyTo { my $missingSize = 0; while (scalar(@closure) > 0) { my @ps = splice(@closure, 0, 1500); - open(READ, "set -f; ssh $sshHost @{$sshOpts} nix-store --check-validity --print-invalid @ps|"); + open(READ, "set -f; ssh $sshHost @{$sshOpts} @globalSshOpts nix-store --check-validity --print-invalid @ps|"); while (<READ>) { chomp; push @missing, $_; @@ -130,7 +130,7 @@ sub oldCopyTo { if (scalar @missing > 0) { print STDERR "copying ", scalar @missing, " missing paths to ‘$sshHost’...\n"; unless ($dryRun) { - open SSH, "| $progressViewer $compressor ssh $sshHost @{$sshOpts} '$decompressor nix-store --import' > /dev/null" or die; + open SSH, "| $progressViewer $compressor ssh $sshHost @{$sshOpts} @globalSshOpts '$decompressor nix-store --import' > /dev/null" or die; exportPaths(fileno(SSH), $sign, @missing); close SSH or die "copying store paths to remote machine `$sshHost' failed: $?"; } diff --git a/perl/lib/Nix/SSH.pm b/perl/lib/Nix/SSH.pm index 76a20997590b..9e0c10beb0e0 100644 --- a/perl/lib/Nix/SSH.pm +++ b/perl/lib/Nix/SSH.pm @@ -6,12 +6,16 @@ use IPC::Open2; our @ISA = qw(Exporter); our @EXPORT = qw( + @globalSshOpts readN readInt readString readStrings writeInt writeString writeStrings connectToRemoteNix ); +our @globalSshOpts = split ' ', ($ENV{"NIX_SSHOPTS"} or ""); + + sub readN { my ($bytes, $from) = @_; my $res = ""; @@ -82,7 +86,7 @@ sub connectToRemoteNix { # Start ‘nix-store --serve’ on the remote host. my ($from, $to); # FIXME: don't start a shell, start ssh directly. - my $pid = open2($from, $to, "exec ssh -x -a $sshHost @{$sshOpts} nix-store --serve --write $extraFlags"); + my $pid = open2($from, $to, "exec ssh -x -a $sshHost @globalSshOpts @{$sshOpts} nix-store --serve --write $extraFlags"); # Do the handshake. my $SERVE_MAGIC_1 = 0x390c9deb; # FIXME |