c79721e81a
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11215 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
52 lines
1.5 KiB
Perl
Executable File
52 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
# Used as a standard client cmd that can be used for xcat cmds that do not have
|
|
# noderange as an argument. See xcatclient for additional documentation.
|
|
|
|
# To use this, sym link your cmd name to this script.
|
|
|
|
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
|
|
use lib "$::XCATROOT/lib/perl";
|
|
use Cwd;
|
|
use File::Basename;
|
|
use xCAT::Client;
|
|
|
|
my $bname = basename($0);
|
|
my $cmdref;
|
|
if ($bname =~ /xcatclientnnr/) { $cmdref->{command}->[0]=shift @ARGV; } # xcatclientnnr was invoked directly and the 1st arg is cmd name that is used to locate the plugin
|
|
else { $cmdref->{command}->[0] = $bname; } # the cmd was sym linked to xcatclientnnr
|
|
$cmdref->{cwd}->[0] = cwd();
|
|
# allows our plugins to get the stdin of the cmd that invoked the plugin
|
|
if ( (($^O =~ /^linux/i) && ($ENV{'SHELL'} =~ /\/ksh$/)) || !defined($ENV{'TERM'}) )
|
|
{
|
|
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;
|
|
}
|
|
}
|
|
|
|
|
|
push (@{$cmdref->{arg}}, @ARGV);
|
|
foreach (keys %ENV) {
|
|
if (/^XCAT_/) {
|
|
$cmdref->{environment}->{$_} = $ENV{$_};
|
|
}
|
|
}
|
|
|
|
xCAT::Client::submit_request($cmdref,\&xCAT::Client::handle_response);
|
|
exit $xCAT::Client::EXITCODE;
|
|
|
|
|