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:
daniceexi 2009-09-22 06:10:09 +00:00
parent 16e9205476
commit 46189575e6

View File

@ -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...
#