add -E hierarchy and --fanout support

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15095 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2013-02-07 12:45:04 +00:00
parent 4a241ef34e
commit 2af0eff7ed
2 changed files with 14 additions and 3 deletions

View File

@ -95,6 +95,7 @@ if (
'P|scripts:s' => \$::RERUNPS,
'k|security' => \$::SECURITY,
'o|os:s' => \$::OS,
'fanout=i' => \$::fanout,
)
) {
&updatenode_usage();

View File

@ -215,6 +215,7 @@ sub parse_args_xdsh
xCAT::MsgUtils->message("E", $msg);
exit 1;
}
Getopt::Long::Configure("posix_default");
Getopt::Long::Configure("no_gnu_compat");
Getopt::Long::Configure("bundling");
@ -349,6 +350,15 @@ sub parse_args_xdsh
}
$ENV{'DSHEXECUTE'} = $executescript; # execute script
}
# -E <env file> option if not already exported
if ($options{environment})
{
if (!($ENV{'DSH_ENVIRONMENT'})) { # env variable first
$ENV{'DSH_ENVIRONMENT'} = $options{environment}; # env file
}
}
# find out who is the current user running xdsh
#my $current_userid = getlogin(); # does not work for su
@ -516,15 +526,15 @@ sub parse_args_xdsh
#-----------------------------------------------------------------------------
sub parse_args_xdcp
{
# if not parms input error out
my %options = ();
# test to see if any parameters were entered
my $arraysize=@ARGV;
if ($arraysize ==0) {
my $msg= "No parameters were supplied on the xdcp command. Run xdcp -h";
xCAT::MsgUtils->message("E", $msg);
exit 1;
}
my %options = ();
Getopt::Long::Configure("posix_default");
Getopt::Long::Configure("no_gnu_compat");
Getopt::Long::Configure("bundling");