mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-11-04 05:12:30 +00:00
64 lines
2.0 KiB
Perl
64 lines
2.0 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
package xCAT_plugin::bpa;
|
|
use strict;
|
|
use xCAT::PPC;
|
|
|
|
|
|
##########################################################################
|
|
# Command handler method from tables
|
|
##########################################################################
|
|
sub handled_commands {
|
|
return {
|
|
rpower => 'nodehm:power,mgt',
|
|
rspconfig => 'nodehm:mgt',
|
|
mkhwconn => 'nodehm:mgt',
|
|
rmhwconn => 'nodehm:mgt',
|
|
lshwconn => 'nodehm:mgt',
|
|
rinv => 'nodehm:mgt',
|
|
rflash => 'nodehm:mgt',
|
|
rvitals => '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;
|