2008-04-17 12:46:39 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
# !/usr/bin/env perl
|
2007-10-26 22:44:33 +00:00
|
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
2007-12-11 19:15:28 +00:00
|
|
|
BEGIN
|
|
|
|
{
|
2008-01-14 17:04:41 +00:00
|
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr';
|
2007-12-11 19:15:28 +00:00
|
|
|
}
|
|
|
|
use lib "$::XCATROOT/lib/perl";
|
2008-07-18 12:03:49 +00:00
|
|
|
use strict;
|
2007-10-26 22:44:33 +00:00
|
|
|
use File::Basename;
|
2008-02-18 15:57:25 +00:00
|
|
|
#use Data::Dumper;
|
2007-10-26 22:44:33 +00:00
|
|
|
use Getopt::Long;
|
2008-04-05 14:53:35 +00:00
|
|
|
require xCAT::MsgUtils;
|
|
|
|
require xCAT::DSHCLI;
|
2008-06-10 17:25:36 +00:00
|
|
|
use xCAT::Utils;
|
2008-04-17 12:46:39 +00:00
|
|
|
require xCAT::Client;
|
2007-10-26 22:44:33 +00:00
|
|
|
my $bname = basename($0);
|
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
=head1 xdsh/xdcp
|
|
|
|
|
|
|
|
This program is the client interface for xdsh/xdcp.
|
|
|
|
|
|
|
|
|
|
|
|
xdsh/xdcp command
|
2007-12-12 13:19:58 +00:00
|
|
|
|
|
|
|
This is the interface to for xdsh/xdsp
|
|
|
|
The command can run in client/server mode (default) or in bypass mode
|
2008-02-18 15:57:25 +00:00
|
|
|
where it does not use the xcat daemon xcatd.
|
2007-12-12 13:19:58 +00:00
|
|
|
Bypass mode is useful, when executing the command on the Management Server
|
2008-02-18 15:57:25 +00:00
|
|
|
and in particular if you want to run as a non-root id.
|
2007-12-12 13:19:58 +00:00
|
|
|
Call parse_args to verify mode (client/server or bypass)
|
2008-02-18 15:57:25 +00:00
|
|
|
and whether to use Env Variables
|
2007-10-26 22:44:33 +00:00
|
|
|
Build hash and submit request
|
2007-12-12 13:19:58 +00:00
|
|
|
See man page for options
|
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
=cut
|
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
# Main
|
|
|
|
|
|
|
|
# report unsupported dsh exports
|
|
|
|
&check_invalid_exports;
|
|
|
|
|
|
|
|
my $cmdref;
|
2007-12-12 13:19:58 +00:00
|
|
|
my $arg;
|
2008-04-07 19:24:28 +00:00
|
|
|
my @SaveARGV = @ARGV;
|
2007-10-26 22:44:33 +00:00
|
|
|
$cmdref->{command}->[0] = $bname; # save my command name
|
2008-04-07 19:24:28 +00:00
|
|
|
my $arg = shift(@SaveARGV);
|
2007-10-26 22:44:33 +00:00
|
|
|
|
2008-04-07 19:24:28 +00:00
|
|
|
if ($arg =~ /^-/) # no noderange
|
|
|
|
{
|
2008-07-18 12:03:49 +00:00
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"Node range not specified, see man page for syntax.\n"
|
|
|
|
);
|
|
|
|
exit 1;
|
2008-04-07 19:24:28 +00:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
$cmdref->{noderange}->[0] = $arg; # save noderange
|
2008-07-18 12:03:49 +00:00
|
|
|
if (!($cmdref->{noderange}->[0])) {
|
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"Node range not specified, see man page for syntax.\n"
|
|
|
|
);
|
|
|
|
exit 1;
|
|
|
|
}
|
2008-04-07 19:24:28 +00:00
|
|
|
@ARGV = @SaveARGV; # noderange removed for parsing
|
2007-12-12 13:19:58 +00:00
|
|
|
}
|
2008-04-05 14:53:35 +00:00
|
|
|
|
2007-12-12 13:19:58 +00:00
|
|
|
# check for help, bypass, other client flags
|
|
|
|
if ($bname eq "xdsh")
|
|
|
|
{
|
|
|
|
&parse_args_xdsh;
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
else
|
|
|
|
{ # xdcp
|
|
|
|
&parse_args_xdcp;
|
|
|
|
}
|
|
|
|
|
2008-04-07 19:24:28 +00:00
|
|
|
foreach (@SaveARGV)
|
|
|
|
{
|
|
|
|
push(@{$cmdref->{arg}}, $_);
|
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
# add environment variables, if they have not already been assigned with
|
|
|
|
# command line flags
|
|
|
|
if (!($::NODE_RSH))
|
|
|
|
{
|
|
|
|
if ($ENV{'DSH_NODE_RSH'})
|
|
|
|
{
|
|
|
|
push(@{$cmdref->{env}}, "DSH_NODE_RSH=$ENV{'DSH_NODE_RSH'}");
|
|
|
|
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if (!($::NODE_OPTS))
|
2007-10-26 22:44:33 +00:00
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($ENV{'DSH_NODE_OPTS'})
|
|
|
|
{
|
|
|
|
push(@{$cmdref->{env}}, "DSH_NODE_OPTS=$ENV{'DSH_NODE_OPTS'}");
|
2007-10-26 22:44:33 +00:00
|
|
|
|
2007-12-12 13:19:58 +00:00
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if (!($::FANOUT))
|
2007-10-26 22:44:33 +00:00
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($ENV{'DSH_FANOUT'})
|
|
|
|
{
|
|
|
|
push(@{$cmdref->{env}}, "DSH_FANOUT=$ENV{'DSH_FANOUT'}");
|
2007-10-26 22:44:33 +00:00
|
|
|
|
2007-12-12 13:19:58 +00:00
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if (!($::TIMEOUT))
|
2007-10-26 22:44:33 +00:00
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($ENV{'DSH_TIMEOUT'})
|
2007-10-26 22:44:33 +00:00
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
push(@{$cmdref->{env}}, "DSH_TIMEOUT=$ENV{'DSH_TIMEOUT'}");
|
2007-10-26 22:44:33 +00:00
|
|
|
|
|
|
|
}
|
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if (!($::CONTEXT_SET))
|
|
|
|
{
|
2007-10-26 22:44:33 +00:00
|
|
|
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($ENV{'DSH_CONTEXT'})
|
|
|
|
{
|
|
|
|
push(@{$cmdref->{env}}, "DSH_CONTEXT=$ENV{'DSH_CONTEXT'}");
|
|
|
|
}
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
|
2008-02-18 15:57:25 +00:00
|
|
|
xCAT::Client::submit_request($cmdref,\&xCAT::Client::handle_response);
|
|
|
|
exit $xCAT::Client::EXITCODE;
|
2007-10-26 22:44:33 +00:00
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
=head3 parse_args_xdsh
|
2008-02-18 15:57:25 +00:00
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
Parses for dsh input
|
|
|
|
Check if the command ask for help and display usage
|
2007-12-12 13:19:58 +00:00
|
|
|
Need to check only for the -X flag
|
2008-02-18 15:57:25 +00:00
|
|
|
Need to check -B flag to determine mode
|
2007-12-12 13:19:58 +00:00
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
=cut
|
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub parse_args_xdsh
|
|
|
|
{
|
|
|
|
|
|
|
|
Getopt::Long::Configure("posix_default");
|
|
|
|
Getopt::Long::Configure("no_gnu_compat");
|
|
|
|
Getopt::Long::Configure("bundling");
|
2007-12-12 13:19:58 +00:00
|
|
|
my %options = ();
|
2007-10-26 22:44:33 +00:00
|
|
|
if (
|
|
|
|
!GetOptions(
|
2007-12-12 13:19:58 +00:00
|
|
|
'e|execute' => \$options{'execute'},
|
|
|
|
'f|fanout=i' => \$options{'fanout'},
|
|
|
|
'h|help' => \$options{'help'},
|
|
|
|
'l|user=s' => \$options{'user'},
|
|
|
|
'm|monitor' => \$options{'monitor'},
|
|
|
|
'o|node-options=s' => \$options{'node-options'},
|
|
|
|
'q|show-config' => \$options{'show-config'},
|
|
|
|
'r|node-rsh=s' => \$options{'node-rsh'},
|
|
|
|
's|stream' => \$options{'streaming'},
|
|
|
|
't|timeout=i' => \$options{'timeout'},
|
|
|
|
'v|verify' => \$options{'verify'},
|
|
|
|
'z|exit-status' => \$options{'exit-status'},
|
|
|
|
'B|bypass' => \$options{'bypass'},
|
|
|
|
'C|context=s' => \$options{'context'},
|
|
|
|
'E|environment=s' => \$options{'environment'},
|
|
|
|
'I|ignore-sig|ignoresig=s' => \$options{'ignore-signal'},
|
2007-12-20 19:03:27 +00:00
|
|
|
'K|keysetup' => \$options{'ssh-setup'},
|
2007-12-12 13:19:58 +00:00
|
|
|
'L|no-locale' => \$options{'no-locale'},
|
|
|
|
'Q|silent' => \$options{'silent'},
|
|
|
|
'S|syntax=s' => \$options{'syntax'},
|
|
|
|
'T|trace' => \$options{'trace'},
|
|
|
|
'V|version' => \$options{'version'},
|
|
|
|
|
|
|
|
'command-name|commandName=s' => \$options{'command-name'},
|
|
|
|
'command-description|commandDescription=s' =>
|
|
|
|
\$options{'command-description'},
|
|
|
|
'X:s' => \$options{'ignore_env'}
|
2007-10-26 22:44:33 +00:00
|
|
|
|
|
|
|
)
|
|
|
|
)
|
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
|
|
|
|
xCAT::DSHCLI->usage_dsh;
|
2007-10-26 22:44:33 +00:00
|
|
|
exit 1;
|
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($options{'help'})
|
2007-10-26 22:44:33 +00:00
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
xCAT::DSHCLI->usage_dsh;
|
2007-10-26 22:44:33 +00:00
|
|
|
exit 0;
|
|
|
|
}
|
2008-02-18 15:57:25 +00:00
|
|
|
if ($options{'bypass'} || $options{'ssh-setup'}) # must force bypass mode for -K, so it can prompt user for node pw
|
2007-12-12 13:19:58 +00:00
|
|
|
{
|
|
|
|
$ENV{XCATBYPASS} = "yes"; # bypass xcatd
|
|
|
|
}
|
|
|
|
if ($options{'version'})
|
|
|
|
{
|
2008-06-10 17:25:36 +00:00
|
|
|
my $version = xCAT::Utils->Version();
|
|
|
|
xCAT::MsgUtils->message("I", $version);
|
2007-12-12 13:19:58 +00:00
|
|
|
exit 0;
|
|
|
|
}
|
|
|
|
if ($options{'node-rsh'}) # if set on command line, use it
|
|
|
|
{
|
|
|
|
$::NODE_RSH = 1;
|
|
|
|
}
|
|
|
|
if ($options{'node-opts'}) # if set on command line, use it
|
|
|
|
{
|
|
|
|
$::NODE_OPTS = 1;
|
|
|
|
}
|
|
|
|
if ($options{'fanout'}) # if set on command line, use it
|
|
|
|
{
|
|
|
|
$::FANOUT = 1;
|
|
|
|
}
|
|
|
|
if ($options{'timeout'}) # if set on command line, use it
|
|
|
|
{
|
|
|
|
$::TIMEOUT = 1;
|
|
|
|
}
|
|
|
|
if ($options{'context'}) # if a context is specified, use it
|
|
|
|
{
|
|
|
|
$::CONTEXT_SET = 1;
|
|
|
|
}
|
|
|
|
if (defined $options{'ignore_env'})
|
|
|
|
{
|
|
|
|
xCAT::DSHCLI->ignoreEnv($options{'ignore_env'});
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
=head3 parse_args_xdcp
|
2008-02-18 15:57:25 +00:00
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
Parses for dcp input
|
|
|
|
Check if the command ask for help and display usage
|
2007-12-12 13:19:58 +00:00
|
|
|
Need to check -X flag to determine how to set Environment Variables
|
2008-02-18 15:57:25 +00:00
|
|
|
Need to check -B flag to determine mode
|
2007-12-12 13:19:58 +00:00
|
|
|
|
2007-10-26 22:44:33 +00:00
|
|
|
=cut
|
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub parse_args_xdcp
|
|
|
|
{
|
|
|
|
|
2007-12-12 13:19:58 +00:00
|
|
|
my %options = ();
|
2007-10-26 22:44:33 +00:00
|
|
|
Getopt::Long::Configure("posix_default");
|
|
|
|
Getopt::Long::Configure("no_gnu_compat");
|
|
|
|
Getopt::Long::Configure("bundling");
|
|
|
|
|
|
|
|
if (
|
|
|
|
!GetOptions(
|
2007-12-12 13:19:58 +00:00
|
|
|
'f|fanout=i' => \$options{'fanout'},
|
|
|
|
'h|help' => \$options{'help'},
|
|
|
|
'l|user=s' => \$options{'user'},
|
|
|
|
'n|nodes=s' => \$options{'nodes'},
|
|
|
|
'o|node-options=s' => \$options{'node-options'},
|
|
|
|
'q|show-config' => \$options{'show-config'},
|
|
|
|
'p|preserve' => \$options{'preserve'},
|
|
|
|
'r|c|node-rcp=s' => \$options{'node-rcp'},
|
|
|
|
's' => \$options{'rsync'},
|
|
|
|
't|timeout=i' => \$options{'timeout'},
|
|
|
|
'v|verify' => \$options{'verify'},
|
|
|
|
'B|bypass' => \$options{'bypass'},
|
|
|
|
'C|context=s' => \$options{'context'},
|
|
|
|
'Q|silent' => \$options{'silent'},
|
|
|
|
'P|pull' => \$options{'pull'},
|
|
|
|
'R|recursive' => \$options{'recursive'},
|
|
|
|
'T|trace' => \$options{'trace'},
|
|
|
|
'V|version' => \$options{'version'},
|
|
|
|
'X:s' => \$options{'ignore_env'}
|
2007-10-26 22:44:33 +00:00
|
|
|
)
|
|
|
|
)
|
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
xCAT::DSHCLI->usage_dcp;
|
2007-10-26 22:44:33 +00:00
|
|
|
exit 1;
|
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($options{'help'})
|
2007-10-26 22:44:33 +00:00
|
|
|
{
|
2007-12-12 13:19:58 +00:00
|
|
|
xCAT::DSHCLI->usage_dcp;
|
2007-10-26 22:44:33 +00:00
|
|
|
exit 0;
|
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($options{'version'})
|
|
|
|
{
|
2008-07-07 18:38:47 +00:00
|
|
|
my $version = xCAT::Utils->Version();
|
|
|
|
xCAT::MsgUtils->message("I", $version);
|
2007-12-12 13:19:58 +00:00
|
|
|
exit 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($::BYPASS)
|
|
|
|
{
|
|
|
|
$ENV{XCATBYPASS} = "yes"; # bypass xcatd
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
=head3 check_invalid_exports
|
|
|
|
Check for unsupported dsh exports and warns
|
|
|
|
|
|
|
|
=cut
|
|
|
|
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub check_invalid_exports
|
|
|
|
|
|
|
|
{
|
|
|
|
##
|
|
|
|
# Check for unsupported Environment Variables
|
|
|
|
# DSH_DEVICE_LIST, DSH_DEVICE_OPTS, DSH_DEVICE_RCP,DSH_DEVICE_RSH,
|
|
|
|
# DSH_NODEGROUP_PATH
|
2007-12-12 13:19:58 +00:00
|
|
|
# For support Env Variables tell them to use the command line flag
|
2007-10-26 22:44:33 +00:00
|
|
|
##
|
2008-01-28 14:47:17 +00:00
|
|
|
if ($ENV{'DSH_LIST'}) # if file of nodes input
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"DSH_LIST is set but is not supported. It will be ignored.\n"
|
|
|
|
);
|
|
|
|
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
if ($ENV{'DSH_NODE_LIST'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message(
|
2007-12-12 13:19:58 +00:00
|
|
|
"I",
|
|
|
|
"DSH_NODE_LIST is set but is not supported. It will be ignored.\n"
|
|
|
|
);
|
|
|
|
}
|
|
|
|
if ($ENV{'WCOLL'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message("I",
|
|
|
|
"WCOLL is set but is not supported. It will be ignored.\n");
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|
|
|
|
if ($ENV{'DSH_DEVICE_LIST'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"DSH_DEVICE_LIST is set but is not supported. It will be ignored.\n"
|
|
|
|
);
|
|
|
|
}
|
|
|
|
if ($ENV{'DSH_DEVICE_OPTS'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"DSH_DEVICE_OPTS is set but is not supported. It will be ignored.\n"
|
|
|
|
);
|
|
|
|
}
|
|
|
|
if ($ENV{'DSH_DEVICE_RCP'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"DSH_DEVICE_RCP is set but is not supported. It will be ignored.\n"
|
|
|
|
);
|
|
|
|
}
|
|
|
|
if ($ENV{'DSH_DEVICE_RSH'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"DSH_DEVICE_RSH is set but is not supported. It will be ignored.\n"
|
|
|
|
);
|
|
|
|
}
|
|
|
|
if ($ENV{'DSH_NODEGROUP_PATH'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message(
|
|
|
|
"I",
|
|
|
|
"DSH_NODEGROUP_PATH is set but is not supported. It will be ignored.\n"
|
|
|
|
);
|
|
|
|
}
|
|
|
|
if ($ENV{'RSYNC_RSH'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message("I",
|
|
|
|
" RSYNC_RSH is set but is not supported. It will be ignored.\n");
|
|
|
|
}
|
2007-12-12 13:19:58 +00:00
|
|
|
if ($ENV{'DSH_REPORT'})
|
|
|
|
{
|
|
|
|
xCAT::MsgUtils->message("I",
|
|
|
|
" DSH_REPORT is set but is not supported. It will be ignored.\n");
|
|
|
|
}
|
2007-10-26 22:44:33 +00:00
|
|
|
}
|