xcat-core/xCAT-server/lib/xcat/plugins/bpa.pm

63 lines
2.0 KiB
Perl
Raw Normal View History

# 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 {
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;