xcat-core/xCAT-server-2.0/sbin/copycerts
lissav 54cea108be Fix perl error
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@615 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2008-02-28 15:03:45 +00:00

126 lines
3.1 KiB
Perl

#!/usr/bin/perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
#egan@us.ibm.com
#(C)IBM Corp
#
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
use lib "$::XCATROOT/lib/perl";
use File::Basename;
use Getopt::Long;
use xCAT::MsgUtils;
use xCAT::Utils;
my $bname = basename($0);
#-----------------------------------------------------------------------------
=head1 copycerts
This updates the service node with files necessary to access the
database on the MasterNode and restarts the xcat daemon
run from servicenode postinstall script
=cut
#-----------------------------------------------------------------------------
# if this is a service node
#
# Copy Certificates, and config file to appropriate directories from mounted
#
if (xCAT::Utils->isServiceNode())
{
&copyCertstoSN;
}
exit 0;
#-----------------------------------------------------------------------------
=head3 copyCertstoSN
Copy from the mounted /xcatpost/ directory to the MS /install/postscripts
directory the /install/postscripts/ca install/postscripts/cert and
/install/postscripts/.xcat into the local file system. These certificate are
needed for the postresql db setup for the service node to be able to access
the DB from the service node.
=cut
#-----------------------------------------------------------------------------
sub copyCertstoSN
{
my $rc = 0;
if (-d "/xcatpost/postscripts/.xcat")
{
if (!(-d "/root/.xcat"))
{
mkdir("/root/.xcat", 0600);
}
`cp /xcatpost/postscripts/.xcat/* /root/.xcat`;
}
else
{
xCAT::MsgUtils->message('S',
"/xcatpost/postscripts/.xcat directory does not exist\n");
return 1;
}
if (-d "/xcatpost/postscripts/ca")
{
if (!(-d "/etc/xcat"))
{
mkdir("/etc/xcat", 0755);
}
if (!(-d "/etc/xcat/ca"))
{
mkdir("/etc/xcat/ca", 0755);
}
`cp -r /xcatpost/postscripts/ca/* /etc/xcat/ca`;
}
else
{
xCAT::MsgUtils->message('S', "/xcatpost/postscripts/ca directory does not exist\n");
return 1;
}
if (-d "/xcatpost/postscripts/cert")
{
if (!(-d "/etc/xcat"))
{
mkdir("/etc/xcat", 0755);
}
if (!(-d "/etc/xcat/cert"))
{
mkdir("/etc/xcat/cert", 0755);
}
`cp -r /xcatpost/postscripts/cert/* /etc/xcat/cert`;
}
else
{
xCAT::MsgUtils->message('S',
"/xcatpost/postscripts/cert directory does not exit\n");
return 1;
}
if (-d "/xcatpost/postscripts/sysconfig")
{
`cp /xcatpost/postscripts/sysconfig/xcat /etc/sysconfig`;
chmod 0600, "/etc/sysconfig/xcat";
}
else
{
xCAT::MsgUtils->message('S',
"/xcatpost/postscripts/sysconfig directory does not exit\n");
return 1;
}
# TODO fix for SuSE and AIX
`service postgresql restart`;
`service xcatd restart`;
return $rc;
}