arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rework sshnode sub to avoid pasing glob by reference since some perls don't seem to like that

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16736 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-06-24 19:17:16 +00:00
parent 0f99809daa
commit 6c6f16a8f5
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
xCAT-client/bin/psh
View File

@ -127,11 +127,8 @@ if ($timeout) { alarm($timeout); }
foreach (@nodes) {
my $node=$_;
while ($children >= $pshmaxp) { processoutput($inputs); }
my $child;
$children++;
sshnode(\$child,$node,$username,@ARGV[1 .. $#ARGV]);
$inputs->add($child);
$nodehdl{$child} = $node;
sshnode($inputs,\%nodehdl,$node,$username,@ARGV[1 .. $#ARGV]);
}
while ($inputs->count) {
processoutput($inputs);
@ -187,14 +184,18 @@ sub processoutput { #This way, one arbiter handles output, no interrupting
return $rc;
}
sub sshnode {
my $out = shift;
my $inputs = shift;
my $nodehdl = shift;
my $node = shift;
my $username = shift;
my $out;
if (length($username)) { $username = "-l $username"; }
my $in;
my $args = join(" ",@_);
#print "ssh -o BatchMode=yes $username $node " . xCAT::Utils->quote($args) . " 2>&1 |\n";
my $pid = open($$out,"ssh -o BatchMode=yes $username $node " . xCAT::Utils->quote($args) . " 2>&1 |");
my $pid = open($out,"ssh -o BatchMode=yes $username $node " . xCAT::Utils->quote($args) . " 2>&1 |");
$inputs->add($out);
$nodehdl->{$out} = $node;
$pids{$pid} = $node;
}