Displaying 3 results from an estimated 3 matches for "stdin_writ".
Did you mean:
stdin_write
2010 Aug 04
1
[PATCH] Correctly detect the size of a block device over SSH
...;>12)) == 6 ]]; then '.
+ 'blockdev --getsize64 $dev; '.
+ 'else '.
+ 'stat -L -c %s $dev; '.
+ 'fi; '.
+ 'cat $dev');
# Close the ends of the pipes we don't need
close($stdin_write);
--
1.7.2.1
2010 Apr 09
1
[PATCH] Add SSH transfer method
...mmand output: {output}",
+ path => $path,
+ host => $uri->host,
+ output => $msg)));
+ }
+
+ return $vol;
+}
+
+sub _connect
+{
+ my ($host, $username, $path) = @_;
+
+ my ($stdin_read, $stdin_write);
+ my ($stdout_read, $stdout_write);
+ my ($stderr_read, $stderr_write);
+
+ pipe($stdin_read, $stdin_write);
+ pipe($stdout_read, $stdout_write);
+ pipe($stderr_read, $stderr_write);
+
+ my $pid = fork();
+ if ($pid == 0) {
+ my @command;
+ push(@command, '...
2010 Sep 21
1
[PREVIEW ONLY] Refactor data transfer code
...path => $path,
- host => $uri->host,
- output => $msg)));
- }
-
- return $vol;
-}
-
-sub _connect
-{
- my ($host, $username, $path) = @_;
+ my $self = {};
+ bless($self, $class);
my ($stdin_read, $stdin_write);
my ($stdout_read, $stdout_write);
@@ -137,22 +44,8 @@ sub _connect
my @command;
push(@command, 'ssh');
push(@command, '-l', $username) if (defined($username));
- push(@command, $host);
-
- # Return the size of the remote path on the f...