2858403: display a message when cannot load the IO::Socket::SSL package
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4196 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
16e9205476
commit
46189575e6
@ -24,9 +24,6 @@ if ($^O =~ /^aix/i) {
|
||||
use File::Path;
|
||||
use IO::Socket;
|
||||
my $useSocketSSL=eval { require IO::Socket::SSL; };
|
||||
if ($useSocketSSL) {
|
||||
require IO::Socket::SSL;
|
||||
}
|
||||
use Getopt::Long;
|
||||
use XML::Simple;
|
||||
|
||||
@ -49,6 +46,13 @@ my $logfile = $logdir . "/xcat.log";
|
||||
open(LOGFILE,">>",$logfile);
|
||||
$::LOG_FILE = \*LOGFILE;
|
||||
|
||||
unless ($useSocketSSL) {
|
||||
print "$::sdate xcataixpost: Error: cannot load necessary library IO::Socket::SSL.\n";
|
||||
print $::LOG_FILE "$::sdate xcataixpost: Error: cannot load necessary library IO::Socket::SSL.\n";
|
||||
|
||||
exit 1;
|
||||
}
|
||||
|
||||
#
|
||||
# Process the command line...
|
||||
#
|
||||
|
Loading…
Reference in New Issue
Block a user