40d2825237
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8964 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
74 lines
2.3 KiB
Perl
74 lines
2.3 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
package xCAT_plugin::fsp;
|
|
use strict;
|
|
use xCAT::PPC;
|
|
|
|
|
|
##########################################################################
|
|
# Command handler method from tables
|
|
##########################################################################
|
|
sub handled_commands {
|
|
return {
|
|
rpower => 'nodehm:power,mgt',
|
|
reventlog => 'nodehm:mgt',
|
|
rspconfig => 'nodehm:mgt',
|
|
mkhwconn => 'nodehm:mgt',
|
|
rmhwconn => 'nodehm:mgt',
|
|
lshwconn => 'nodehm:mgt',
|
|
renergy => 'nodehm:mgt' ,
|
|
rinv => 'nodehm:mgt',
|
|
rflash => 'nodehm:mgt',
|
|
getmacs => 'nodehm:mgt',
|
|
rnetboot => 'nodehm:mgt',
|
|
rbootseq => 'nodehm:mgt',
|
|
rvitals => 'nodehm:mgt',
|
|
mkvm => 'nodehm:mgt',
|
|
lsvm => 'nodehm:mgt',
|
|
chvm => 'nodehm:mgt',
|
|
rscan => 'nodehm:mgt'
|
|
|
|
};
|
|
}
|
|
|
|
##########################################################################
|
|
# Pre-process request from xCat daemon
|
|
##########################################################################
|
|
sub preprocess_request {
|
|
|
|
#######################################################
|
|
# IO::Socket::SSL apparently does not work with LWP.pm
|
|
# When used, POST/GETs return immediately with:
|
|
# 500 Can't connect to <nodename>:443 (Timeout)
|
|
#
|
|
# Net::HTTPS, which is used by LWP::Protocol::https::Socket,
|
|
# uses either IO::Socket::SSL or Net::SSL. It chooses
|
|
# by looking to see if $IO::Socket::SSL::VERSION
|
|
# is defined (i.e. the module's already loaded) and
|
|
# uses that if so. If not, it first tries Net::SSL,
|
|
# then IO::Socket::SSL only if that cannot be loaded.
|
|
# So we should invalidate IO::Socket::SSL here and
|
|
# load Net::SSL.
|
|
#######################################################
|
|
$IO::Socket::SSL::VERSION = undef;
|
|
eval { require Net::SSL };
|
|
if ( $@ ) {
|
|
my $callback = $_[1];
|
|
$callback->( {errorcode=>1,data=>[$@]} );
|
|
return(1);
|
|
}
|
|
xCAT::PPC::preprocess_request(__PACKAGE__,@_);
|
|
}
|
|
|
|
##########################################################################
|
|
# Process request from xCat daemon
|
|
##########################################################################
|
|
sub process_request {
|
|
xCAT::PPC::process_request(__PACKAGE__,@_);
|
|
}
|
|
|
|
|
|
|
|
|
|
1;
|