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

fix for bug 3083477: special handle for linux ksh environment

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8201 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2010-11-18 09:11:14 +00:00
parent fe112cf8ea
commit 9f8968566a
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
xCAT-client/bin/xcatDBcmds
View File

@ -53,12 +53,25 @@ else
$cmdref->{cwd}->[0] = cwd();
# get info from files piped in as stdin
if (-p STDIN) {
my $data;
while ( <STDIN> ) {
$data.=$_;
}
$cmdref->{stdin}->[0]=$data;
my $data;
if (($^O =~ /^linux/i) && ($ENV{'SHELL'} =~ /\/ksh$/))
{
my $rin="";
vec($rin,fileno(STDIN),1)=1;
my $nfound=select($rout=$rin,"","",1);
if ($nfound)
{
while ( <STDIN> ) { $data.=$_; }
$cmdref->{stdin}->[0]=$data;
}
}
else
{
if (-p STDIN) {
while ( <STDIN> ) { $data.=$_; }
$cmdref->{stdin}->[0]=$data;
}
}
}
# The noderange can be specified through a noderange file
# the noderange file can be a relative path,