27 lines
970 B
Diff
27 lines
970 B
Diff
|
--- xcataixpost 2012-12-04 00:35:11.000000000 -0600
|
||
|
|
+++ xcataixpost.hwh 2013-01-03 23:51:42.000000000 -0600
|
||
|
|
@@ -22,7 +22,6 @@
|
||
|
|
use strict;
|
||
|
|
use File::Path;
|
||
|
|
use IO::Socket;
|
||
|
|
- my $useSocketSSL=eval { require IO::Socket::SSL; };
|
||
|
|
use Getopt::Long;
|
||
|
|
use XML::Simple;
|
||
|
|
|
||
|
|
@@ -46,6 +45,15 @@
|
||
|
|
open(LOGFILE,">>",$logfile);
|
||
|
|
$::LOG_FILE = \*LOGFILE;
|
||
|
|
|
||
|
|
+ #--------------------------------------
|
||
|
|
+ print "$::sdata xcataixpost: install the perl-IO-Socket-SSL and perl-Net_SSLeay\n";
|
||
|
|
+ `/usr/sbin/updtvpkg`;
|
||
|
|
+ `cd /xcatpost/packages; /usr/bin/rpm -i perl-IO-Socket-SSL-1.33-1.aix6.1.ppc.rpm`;
|
||
|
|
+ `cd /xcatpost/packages; /usr/bin/rpm -i perl-Net_SSLeay.pm-1.30-2.aix6.1.ppc.rpm`;
|
||
|
|
+ `cd /xcatpost/packages; /usr/bin/rpm -i bash-3.2-1.aix5.2.ppc.rpm`;
|
||
|
|
+
|
||
|
|
+ my $useSocketSSL=eval { require IO::Socket::SSL; };
|
||
|
|
+ #-----------------------------------------
|
||
|
|
|
||
|
|
unless ($useSocketSSL) {
|
||
|
|
print "$::sdate xcataixpost: Error: cannot load necessary library IO::Socket::SSL.\n";
|