a6d0f829eb
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6794 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
1254 lines
33 KiB
Perl
Executable File
1254 lines
33 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
#
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head1 db2setup
|
|
|
|
|
|
|
|
This script is called after the installation of DB2
|
|
on xCAT. It will automate the setup of the DB2 to run
|
|
xCAT on the IBM DB2 database on AIX and Linux.
|
|
On AIX ( AIX61J - AIX61 TL5(AIX 6.1.5.0)) or later and Linux.
|
|
It will setup an xcatdb
|
|
database ,a db2instance id, name xcatdb ( same as database),
|
|
and instance password to be used in the /etc/xcat/cfgloc file
|
|
to access the database.
|
|
It will interact for the password to assign to the xcatdb
|
|
for the Unix id and DB2 instance id,
|
|
unless the XCATDB2PW env var is set to the password for the instance id.
|
|
For Client setup, it will interact for the hostname or ip address
|
|
of the DB2 Server as known by the Service Node, unless the
|
|
XCATDB2SERVER environement variable is set.
|
|
See man db2setup for more information and the xCAT2SetupDB2.pdf
|
|
documentation.
|
|
The script will assume the default install paths of /opt/IBM/db2 for AIX and
|
|
/opt/ibm/db2 for Linux, unless overridden with the XCATDB2INSPATH
|
|
environment variable.
|
|
=cut
|
|
|
|
BEGIN
|
|
{
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
|
$::XCATDIR = $ENV{'XCATDIR'} ? $ENV{'XCATDIR'} : '/etc/xcat';
|
|
}
|
|
|
|
# if AIX - make sure we include perl 5.8.2 in INC path.
|
|
# Needed to find perl dependencies shipped in deps tarball.
|
|
# TODO: Remove during FVT should not need because DBD is compiled with
|
|
# 5.8.8 and we require 61J or later which runs with 5.8.8 Perl.
|
|
if ($^O =~ /^aix/i)
|
|
{
|
|
use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
|
|
use lib "/usr/opt/perl5/lib/5.8.2";
|
|
use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
|
|
use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
|
|
}
|
|
|
|
use lib "$::XCATROOT/lib/perl";
|
|
use DBI;
|
|
use xCAT::Utils;
|
|
use xCAT::NetworkUtils;
|
|
use Getopt::Long;
|
|
use xCAT::MsgUtils;
|
|
use xCAT::Table;
|
|
use Expect;
|
|
use Socket;
|
|
|
|
use strict;
|
|
|
|
#-----------------------------------------------------------------------------
|
|
# Main
|
|
|
|
$::progname = "db2sqlsetup";
|
|
my $args = join ' ', @ARGV;
|
|
$::command = "$0 $args";
|
|
Getopt::Long::Configure("bundling");
|
|
$Getopt::Long::ignorecase = 0;
|
|
$::databaseloc = "/var/lib/db2"; # database loccation
|
|
|
|
# parse the options
|
|
if (
|
|
!GetOptions(
|
|
'i|init' => \$::INIT,
|
|
'S|Server' => \$::SERVER,
|
|
'C|Client' => \$::CLIENT,
|
|
'o|odbc' => \$::SETUPODBC,
|
|
'h|help' => \$::HELP,
|
|
'v|version' => \$::VERSION,
|
|
'V|verbose' => \$::VERBOSE,
|
|
)
|
|
)
|
|
{
|
|
&usage;
|
|
exit(1);
|
|
}
|
|
|
|
# display the usage if -h or --help is specified
|
|
if ($::HELP)
|
|
{
|
|
&usage;
|
|
exit(0);
|
|
}
|
|
|
|
# display the version statement if -v or --version is specified
|
|
if ($::VERSION)
|
|
{
|
|
my $version = xCAT::Utils->Version();
|
|
xCAT::MsgUtils->message("I", $version);
|
|
exit 0;
|
|
}
|
|
if ((!($::INIT)) && (!($::SETUPODBC)))
|
|
{
|
|
xCAT::MsgUtils->message("I", "Either -i or -o flag must be chosen");
|
|
&usage;
|
|
exit(1);
|
|
}
|
|
if ((!($::SERVER)) && (!($::CLIENT)))
|
|
{
|
|
xCAT::MsgUtils->message("I", "Either -S or -C flag must be chosen");
|
|
&usage;
|
|
exit(1);
|
|
}
|
|
if (($::SERVER) && ($::CLIENT))
|
|
{
|
|
xCAT::MsgUtils->message("I", "Either -S or -C flag must be chosen");
|
|
&usage;
|
|
exit(1);
|
|
}
|
|
|
|
# check to see if only odbc update, no passwords needed
|
|
my $odbconly = 0;
|
|
if ((!($::INIT)) && ($::SETUPODBC))
|
|
{
|
|
$odbconly = 1;
|
|
|
|
}
|
|
|
|
#
|
|
# Get OS
|
|
#
|
|
if (xCAT::Utils->isAIX())
|
|
{
|
|
$::osname = 'AIX';
|
|
}
|
|
else
|
|
{
|
|
$::osname = 'Linux';
|
|
|
|
# determine whether redhat or sles
|
|
$::linuxos = xCAT::Utils->osver();
|
|
}
|
|
|
|
# overide the default install path with environment variable
|
|
if ($ENV{'XCATDB2INSPATH'}) # input where DB2 is installed
|
|
{
|
|
$::installdb2dir = $ENV{'XCATDB2INSPATH'};
|
|
}
|
|
else
|
|
{
|
|
if ($::osname eq 'AIX')
|
|
{
|
|
$::installdb2dir = "/opt/IBM/db2/V9.7"; # default
|
|
}
|
|
else
|
|
{ # linux
|
|
$::installdb2dir = "/opt/ibm/db2/V9.7"; # default
|
|
}
|
|
}
|
|
|
|
#
|
|
# check to see if DB2 is installed, in given location
|
|
#
|
|
if (!(-e ($::installdb2dir)))
|
|
{
|
|
my $message =
|
|
"\nDB2 is not installed. It should be first obtained and installed into $::installdb2dir.";
|
|
xCAT::MsgUtils->message("E", "$message");
|
|
exit(1);
|
|
}
|
|
|
|
# If setting up the Server, check to see if DB2 is running
|
|
$::db2running = 0;
|
|
$::xcatrunningdb2 = 0;
|
|
if ($::SERVER)
|
|
{
|
|
my $cmd = "ps -ef | grep db2";
|
|
my @output = xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC == 0) # already running
|
|
{
|
|
my $db2check = "db2agent"; # see if really running
|
|
if (grep(/$db2check/, @output))
|
|
{
|
|
|
|
if ($::INIT)
|
|
{
|
|
my $message =
|
|
"DB2 is running. Database initialization will not take place.";
|
|
xCAT::MsgUtils->message("I", "$message");
|
|
}
|
|
$::db2running = 1;
|
|
}
|
|
}
|
|
if (-e ("/etc/xcat/cfgloc")) # check to see if xcat is using DB2 already
|
|
{ # cfgloc exists
|
|
$cmd = "fgrep DB2 /etc/xcat/cfgloc";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC == 0)
|
|
{
|
|
if ($::INIT)
|
|
{
|
|
my $message =
|
|
"The /etc/xcat/cfgloc file is already configured for DB2. xCAT appears to be already running on DB2. xcat database configuration will not take place.";
|
|
xCAT::MsgUtils->message("I", "$message");
|
|
}
|
|
$::xcatrunningdb2 = 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
# if not just odbc update and xcat MN is not already running on DB2
|
|
# or if we are setting up the Client then Get instance password
|
|
#
|
|
if ((($odbconly == 0) && ($::xcatrunningdb2 == 0)) || ($::CLIENT))
|
|
{
|
|
if ($ENV{'XCATDB2PW'}) # passwd supplied
|
|
{
|
|
$::adminpassword = $ENV{'XCATDB2PW'};
|
|
}
|
|
else
|
|
{ #prompt for password
|
|
|
|
my $msg = "Input the password for xcatdb instance id: ";
|
|
xCAT::MsgUtils->message('I', "$msg");
|
|
`stty -echo`;
|
|
chop($::adminpassword = <STDIN>);
|
|
`stty echo`;
|
|
}
|
|
}
|
|
|
|
# initial setup request and not already running db2
|
|
if (($::INIT) && ($::xcatrunningdb2 == 0))
|
|
{
|
|
if ($::SERVER)
|
|
{ # setting up server
|
|
# shutdown the xcatd daemon while migrating
|
|
&shutdownxcatd;
|
|
|
|
#
|
|
# Backup current database
|
|
#
|
|
my $homedir = xCAT::Utils->getHomeDir();
|
|
$::backupdir = $homedir;
|
|
if ($::osname eq 'AIX')
|
|
{
|
|
$::backupdir .= "xcat-dbback";
|
|
}
|
|
else
|
|
{
|
|
$::backupdir .= "/xcat-dbback";
|
|
}
|
|
|
|
&backupxcatdb;
|
|
|
|
#
|
|
# Get MN name from site.master in backed up database
|
|
# if that does not exist use resolved hostname
|
|
# double check site.master for resolution
|
|
my $sitefile = "$::backupdir/site.csv";
|
|
my $cmd = "grep master $sitefile";
|
|
my @output = xCAT::Utils->runcmd($cmd, -1);
|
|
my $hname;
|
|
if ($::RUNCMD_RC != 0) # no entry in site table
|
|
{
|
|
$hname = `hostname`;
|
|
chomp $hname;
|
|
}
|
|
else # from site.master
|
|
{
|
|
(my $attr, my $master) = split(",", $output[0]);
|
|
(my $q, $hname) = split("\"", $master);
|
|
chomp $hname;
|
|
|
|
}
|
|
|
|
my $ipaddr = xCAT::NetworkUtils->getipaddr($hname);
|
|
if ($ipaddr)
|
|
{
|
|
$::MN = $ipaddr;
|
|
}
|
|
else
|
|
{
|
|
xCAT::MsgUtils->message("E",
|
|
"Hostname resolution for $hname failed.");
|
|
exit(1);
|
|
}
|
|
} # end setting up SERVER
|
|
|
|
# DB2 not running, or setting up Client, continue setting up DB2
|
|
if (($::db2running == 0) || ($::CLIENT))
|
|
{
|
|
|
|
# Add DB2 user and group and xcatdb instance for AIX/Linux
|
|
&mkdb2user;
|
|
|
|
# Setup /etc/services
|
|
&setupservices;
|
|
|
|
# Setup the xcatdb instance
|
|
&setupinstance;
|
|
|
|
#
|
|
# Setup DB2 env variables
|
|
#
|
|
&setupdb2env;
|
|
|
|
#
|
|
# Start DB2 server
|
|
#
|
|
if ($::SERVER)
|
|
{
|
|
&db2start;
|
|
}
|
|
|
|
#
|
|
# Setup DB2 to restart on reboot (TBD)
|
|
#
|
|
#&db2reboot;
|
|
|
|
}
|
|
|
|
# On server, xcat not already configured to run DB2 add xCAT database
|
|
if (($::SERVER) && ($::xcatrunningdb2 == 0))
|
|
{
|
|
|
|
#
|
|
# Create the xcatdb database
|
|
#
|
|
&createxcatdb;
|
|
|
|
#
|
|
# create cfgloc file
|
|
#
|
|
&createcfgloc;
|
|
}
|
|
|
|
# if setting up Client catalog the MN (db2 server address)
|
|
# and create /etc/xcat/cfgloc
|
|
if ($::CLIENT)
|
|
{
|
|
&catalogServer;
|
|
&createcfgloc;
|
|
}
|
|
|
|
#
|
|
# Restore backed up database into DB2
|
|
#
|
|
if ($::SERVER)
|
|
{
|
|
&restorexcatdb;
|
|
|
|
xCAT::MsgUtils->message("I",
|
|
"xCAT is now running on the DB2 database.\n");
|
|
|
|
}
|
|
else
|
|
{
|
|
xCAT::MsgUtils->message("I", "xCAT DB2 Client setup is complete.\n");
|
|
}
|
|
} # end initialization
|
|
|
|
if ($::SETUPODBC)
|
|
{
|
|
|
|
#
|
|
# set up the ODBC on the Management Node
|
|
#
|
|
|
|
xCAT::MsgUtils->message("I", "setup ODBC is not supported yet.");
|
|
|
|
#&setupODBC;
|
|
|
|
}
|
|
|
|
exit;
|
|
|
|
#####################################
|
|
# subroutines
|
|
#####################################
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 usage
|
|
|
|
Displays message for -h option
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub usage
|
|
{
|
|
xCAT::MsgUtils->message(
|
|
'I',
|
|
"Usage:\ndb2sqlsetup - Performs the setup of IBM DB2 for xCAT to use as its database. See man db2sqlsetup for more information."
|
|
);
|
|
my $msg =
|
|
"db2sqlsetup <-h|--help>\n <-v|--version>\n <-i|--init> <-S|-C> [-o|--setupODBC] [-V|--verbose]\n <-o|--setupODBC> [-V|--verbose]";
|
|
|
|
xCAT::MsgUtils->message('I', "$msg");
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 shutdownxcatd
|
|
|
|
shutdown the daemon
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub shutdownxcatd
|
|
|
|
{
|
|
my $msg = "Shutting down the xcatd daemon during database migration.";
|
|
xCAT::MsgUtils->message('I', "$msg");
|
|
my $xcmd;
|
|
if ($::osname eq 'AIX')
|
|
{
|
|
$xcmd = "stopsrc -s xcatd";
|
|
|
|
}
|
|
else
|
|
{
|
|
$xcmd = "service xcatd stop";
|
|
}
|
|
system($xcmd);
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 backupxcatdb
|
|
|
|
Backup xCATdb
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub backupxcatdb
|
|
|
|
{
|
|
|
|
# If there is no backup or the /etc/xcat/cfgloc file does not point to
|
|
# pgsql, then we backup the database
|
|
my $sitefile = "$::backupdir/site.csv";
|
|
|
|
if ((!(-e $sitefile)) || ($::xcatrunningdb2 == 0))
|
|
{
|
|
xCAT::MsgUtils->message(
|
|
"I",
|
|
"Backing up xCAT Database to $::backupdir.\nThis could take several minutes."
|
|
);
|
|
if (!(-e $::backupdir))
|
|
{ # does not exist, make it
|
|
my $cmd = "mkdir -p $::backupdir";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
else
|
|
{ # remove contents
|
|
|
|
my $cmd = "rm -f $::backupdir/*";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
# back it up
|
|
my $cmd = "XCATBYPASS=1 dumpxCATdb -p $::backupdir";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 mkdb2user
|
|
|
|
adds db2instance user and group and xcatdb instance id
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub mkdb2user
|
|
{
|
|
|
|
#
|
|
# mk db2 instance group and user
|
|
#
|
|
|
|
my $cmd;
|
|
if ($::osname eq 'AIX')
|
|
{
|
|
$cmd = "lsgroup xcatdb";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
|
|
#group does not exist, need to make it
|
|
$cmd = "mkgroup xcatdb";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
$cmd = "lsuser xcatdb";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
|
|
#user does not exist, need to make it
|
|
$cmd = "mkuser pgrp=xcatdb home=/var/lib/db2 shell=/bin/ksh xcatdb";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
|
|
}
|
|
|
|
# set xcatdb id password
|
|
$cmd = qq~echo "xcatdb:$::adminpassword" | /bin/chpasswd -c~;
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
else
|
|
{ # Linux
|
|
|
|
$cmd = "egrep -i \"^xcatdb:\" /etc/group";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
|
|
#group does not exist, need to make it
|
|
$cmd = "groupadd xcatdb";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
$cmd = "egrep -i \"^xcatdb:\" /etc/passwd";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
|
|
#user does not exist, need to make it
|
|
$cmd = "useradd -d /var/lib/db2 -g xcatdb -m -s /bin/bash xcatdb";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
|
|
}
|
|
|
|
# set xcatdb id password
|
|
$cmd = qq~echo $::adminpassword | passwd xcatdb --stdin~;
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 setupservices
|
|
|
|
|
|
add db2 xcatdb instance entries into /etc/services on Server or Client
|
|
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
sub setupservices
|
|
{
|
|
my $cmd;
|
|
$cmd = "egrep -i \"^db2c_xcatdb\" /etc/services";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # if not already there
|
|
open(FILE, ">>/etc/services")
|
|
or die "cannot open file /etc/services\n";
|
|
if ($::SERVER)
|
|
{ # on the server
|
|
print FILE "# xcatdb db2 entries
|
|
DB2_xcatdb 60000/tcp
|
|
DB2_xcatdb_1 60001/tcp
|
|
DB2_xcatdb_2 60002/tcp
|
|
DB2_xcatdb_END 60003/tcp
|
|
db2c_xcatdb 50001/tcp # Port for server connection";
|
|
}
|
|
else
|
|
{ # on the client
|
|
print FILE "# xcatdb db2 entries
|
|
db2c_xcatdb 50001/tcp # Port for server connection";
|
|
}
|
|
close FILE;
|
|
}
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 setupinstance
|
|
|
|
|
|
Create the db2 server or client instance
|
|
For server
|
|
run <db2installpath>/instance/db2icrt -a server -p db2c_xcatdb -s ese -u xcatdb xcatdb
|
|
For Client
|
|
run <db2installpath>/instance/db2icrt -s client xcatdb
|
|
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub setupinstance
|
|
{
|
|
my $rc = 0;
|
|
|
|
#check if instance already exists
|
|
my $cmd = $::installdb2dir;
|
|
$cmd .= "\/instance\/db2ilist ";
|
|
my @output = xCAT::Utils->runcmd($cmd, 0);
|
|
my $check = "xcatdb"; # see if instance exists
|
|
if (!(grep(/$check/, @output)))
|
|
{
|
|
|
|
# if xcatdb instance does not exist, setup
|
|
$cmd = $::installdb2dir; # set db2 path to the create instance cmd
|
|
$cmd .= "\/instance\/db2icrt ";
|
|
if ($::SERVER)
|
|
{
|
|
|
|
$cmd .= "-a server -p db2c_xcatdb -s ese -u xcatdb xcatdb ";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # if error exit
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
|
|
# setup instance
|
|
$cmd = $::installdb2dir; #
|
|
$cmd .= "\/instance\/db2iset ";
|
|
$cmd .= "-g DB2_PARALLEL_IO=* ";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
}
|
|
$cmd = $::installdb2dir;
|
|
$cmd .= "\/instance\/db2iset ";
|
|
$cmd .= "-g DB2AUTOSTART=yes ";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
}
|
|
$cmd = $::installdb2dir;
|
|
$cmd .= "\/instance\/db2iset ";
|
|
$cmd .= "-g DB2_STRIPED_CONTAINERS=ON ";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
}
|
|
|
|
# su to xcatdb and run more setup
|
|
$cmd = "db2set -all ";
|
|
$rc = &rundb2cmd($cmd);
|
|
if ($rc != 0)
|
|
{
|
|
xCAT::MsgUtils->message("I", " $cmd warning.");
|
|
}
|
|
|
|
}
|
|
else
|
|
{ # client setup
|
|
$cmd .= "-s client xcatdb ";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # if error exit
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 rundb2cmd
|
|
|
|
|
|
Run a commmand as the xcatdb instance id
|
|
Input: command
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
sub rundb2cmd
|
|
{
|
|
my $orgcmd = shift;
|
|
my $rc = 0;
|
|
my $cmd = "\'";
|
|
$cmd .= $orgcmd;
|
|
$cmd .= ' 2>&1';
|
|
$cmd .= "\'";
|
|
system("su - xcatdb -c $cmd");
|
|
if ($? > 0) # error
|
|
{
|
|
$rc = $? >> 8;
|
|
}
|
|
return ($rc);
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 setupdb2env
|
|
|
|
|
|
Setup the db2 environment variables for root
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
sub setupdb2env
|
|
|
|
{
|
|
if ($::osname eq 'AIX')
|
|
{
|
|
my $cmd = "egrep -i \"DB2INSTANCE\" /etc/profile";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # if not already there
|
|
open(FILE, ">>/etc/profile")
|
|
or die "cannot open file /etc/profile\n";
|
|
print FILE "export DB2INSTANCE=xcatdb \n";
|
|
close FILE;
|
|
}
|
|
|
|
}
|
|
else
|
|
{ # LInux
|
|
my $cmd = "egrep -i \"DB2INSTANCE\" /etc/profile.d/xcat.sh";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # if not already there
|
|
open(FILE, ">>/etc/profile.d/xcat.sh")
|
|
or die "cannot open file /etc/profile.d/xcat.sh\n";
|
|
print FILE "export DB2INSTANCE=xcatdb \n";
|
|
close FILE;
|
|
}
|
|
my $cmd = "egrep -i \"DB2INSTANCE\" /etc/profile.d/xcat.csh";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0)
|
|
{ # if not already there
|
|
open(FILE, ">>/etc/profile.d/xcat.csh")
|
|
or die "cannot open file /etc/profile.d/xcat.csh\n";
|
|
print FILE "setenv DB2INSTANCE \"xcatdb\" \n";
|
|
close FILE;
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 db2start
|
|
|
|
|
|
Start the db2 server
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub db2start
|
|
{
|
|
xCAT::MsgUtils->message("I", "Starting the DB2 Server");
|
|
my $cmd;
|
|
|
|
# su to xcatdb to start the server
|
|
$cmd = "db2start ";
|
|
my $rc = &rundb2cmd($cmd);
|
|
if ($rc != 0)
|
|
{
|
|
xCAT::MsgUtils->message("W", " $cmd failed.");
|
|
}
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 catalogServer
|
|
|
|
|
|
Catalog the location of the db2 server on the Service Node
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub catalogServer
|
|
{
|
|
xCAT::MsgUtils->message("I", "Cataloging the DB2 Server");
|
|
my $MN;
|
|
if ($ENV{'XCATDB2SERVER'}) { # hostname or ip address supplied
|
|
$MN=$ENV{'XCATDB2SERVER'};
|
|
} else {
|
|
my $msg =
|
|
"Input the hostname or ip address of the Management Node as known by this Service node. Should be the same as the site.master attribute: ";
|
|
|
|
xCAT::MsgUtils->message('I', "$msg");
|
|
chop($MN = <STDIN>);
|
|
}
|
|
my $cmd;
|
|
my $rc = 0;
|
|
|
|
# su to xcatdb and catalog the database server and database
|
|
$cmd = "db2 catalog tcpip node mn remote $MN server db2c_xcatdb ";
|
|
$rc = &rundb2cmd($cmd);
|
|
$cmd = "db2 terminate"; # refresh the cache
|
|
$rc = &rundb2cmd($cmd);
|
|
$cmd = "db2 catalog db xcatdb as xcatdb at node mn ";
|
|
$rc = &rundb2cmd($cmd);
|
|
$cmd = "db2 terminate"; # refresh the cache
|
|
$rc = &rundb2cmd($cmd);
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 createxcatdb
|
|
|
|
|
|
Create the xcat database
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub createxcatdb
|
|
{
|
|
xCAT::MsgUtils->message("I",
|
|
"Creating the xCAT database. This can take serveral minutes.");
|
|
my $cmd;
|
|
my $rc = 0;
|
|
|
|
# su to xcatdb to create the database
|
|
$cmd = "db2 -tvf /opt/xcat/share/xcat/tools/createdb.sql ";
|
|
$rc = &rundb2cmd($cmd);
|
|
if ($rc != 0)
|
|
{
|
|
xCAT::MsgUtils->message("I", " $cmd warning.");
|
|
}
|
|
|
|
# restart the instance to apply the change
|
|
xCAT::MsgUtils->message("I",
|
|
"Database created. Restarting the instance to apply the change. ");
|
|
$cmd = "db2 connect reset ";
|
|
$rc = &rundb2cmd($cmd);
|
|
if ($rc != 0)
|
|
{
|
|
xCAT::MsgUtils->message("I", " $cmd warning.");
|
|
}
|
|
$cmd = "db2 force applications all; db2 terminate; ";
|
|
$rc = &rundb2cmd($cmd);
|
|
if ($rc != 0)
|
|
{
|
|
xCAT::MsgUtils->message("I", " $cmd warning.");
|
|
}
|
|
$cmd = "db2stop ";
|
|
$rc = &rundb2cmd($cmd);
|
|
if ($rc != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd warning.");
|
|
exit(1);
|
|
}
|
|
$cmd = "db2start ";
|
|
$rc = &rundb2cmd($cmd);
|
|
if ($rc != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd warning.");
|
|
exit(1);
|
|
}
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 db2reboot
|
|
|
|
|
|
Setup for db2 to start on reboot (TBD)
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub db2reboot
|
|
{
|
|
my $cmd;
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 setupODBC
|
|
|
|
Will setup the ODBC. Only needed if C, C++ applications are running
|
|
that need access to the DB2 database for example LoadLeveler.
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub setupODBC
|
|
|
|
{
|
|
|
|
#
|
|
# check to see if correct rpms are installed
|
|
#
|
|
# for all OS need unixODBC rpm
|
|
my $cmd = "rpm -qa | grep unixODBC";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
my $message =
|
|
"\nunixODBC is not installed. If on AIX, it should be first obtained from the xcat dependency tarballs and installed before we can setup the ODBC. If on Linux, install from the OS CDs.";
|
|
xCAT::MsgUtils->message("E", " $cmd failed. $message");
|
|
exit(1);
|
|
}
|
|
|
|
# for aix and redhat
|
|
if (($::linuxos =~ /rh.*/) || ($::osname eq 'AIX'))
|
|
{
|
|
$cmd = "rpm -qa | grep mysql-connector-odbc";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
my $message =
|
|
"\nxcat-connector-odbc is not installed. It should be first obtained from the xcat dependency tarballs and installed before running this command. If on Linux, install from the OS CDs.";
|
|
xCAT::MsgUtils->message("E", " $cmd failed. $message");
|
|
exit(1);
|
|
}
|
|
}
|
|
else # sles
|
|
{
|
|
$cmd = "rpm -qa | grep mysql-client";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
my $message =
|
|
"\nmysql-client is not installed. It should be first installed from the SLES CDs.";
|
|
xCAT::MsgUtils->message("E", " $cmd failed. $message");
|
|
exit(1);
|
|
}
|
|
$cmd = "rpm -qa | grep libmysqlclient";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
my $message =
|
|
"\nlibmysqlclient is not installed. It should be first installed from the SLES CDs.";
|
|
xCAT::MsgUtils->message("E", " $cmd failed. $message");
|
|
exit(1);
|
|
}
|
|
$cmd = "rpm -qa | grep MyODBC-unixODBC";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
my $message =
|
|
"\n$cmd failed. MyODBC-unixODBC is not installed. It should be first installed from the SLES CDs.";
|
|
xCAT::MsgUtils->message("E", "$message");
|
|
exit(1);
|
|
}
|
|
} # end sles
|
|
my @rpmoutput;
|
|
my $odbcinstfile;
|
|
my $odbcfile;
|
|
my $message;
|
|
|
|
# configure the ODBC, again SLES different than the rest
|
|
my $xcatconfig = "/etc/xcat/cfgloc";
|
|
my $xcatconfigbackup = "/etc/xcat/cfgloc.mysql";
|
|
if (!(-e ($xcatconfig)) && (!(-e ($xcatconfigbackup))))
|
|
{
|
|
$message =
|
|
"The $xcatconfig and $xcatconfigbackup files are missing. You need to configure xCAT for MySQL before setting up the ODBC.";
|
|
xCAT::MsgUtils->message("E", "$message");
|
|
exit(1);
|
|
|
|
}
|
|
$cmd = "fgrep -i host $xcatconfig";
|
|
my @output;
|
|
@output = xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) # then try backup
|
|
{
|
|
$cmd = "fgrep -i host $xcatconfigbackup";
|
|
@output = xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) # then try backup
|
|
{
|
|
$message =
|
|
"Cannot find host info in the cfgloc or cfgloc.mysql file. Configuration of ODBC cannot continue.";
|
|
xCAT::MsgUtils->message("E", " $cmd failed. $message");
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
# get host and password from cfgloc
|
|
(my $connstring, my $adminid, my $passwd) = split(/\|/, $output[0]);
|
|
(my $database, my $id, my $server) = split(/=/, $connstring);
|
|
|
|
if (($::linuxos =~ /rh.*/) || ($::osname eq 'AIX'))
|
|
{
|
|
$odbcinstfile = "/etc/odbcinst.ini";
|
|
$odbcfile = "/etc/odbc.ini";
|
|
$cmd = "rpm -ql mysql-connector-odbc | grep libmyodbc..so";
|
|
@rpmoutput = xCAT::Utils->runcmd($cmd, 0);
|
|
}
|
|
else
|
|
{ #sles
|
|
$odbcinstfile = "/etc/unixODBC/odbcinst.ini ";
|
|
$odbcfile = "/etc/unixODBC/odbc.ini ";
|
|
$cmd = "rpm -ql rpm -ql MyODBC-unixODBC | grep libmyodbc..so";
|
|
@rpmoutput = xCAT::Utils->runcmd($cmd, 0);
|
|
}
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
my $message = "Cannot configure the ODBC.";
|
|
xCAT::MsgUtils->message("E", " $cmd failed. $message");
|
|
exit(1);
|
|
}
|
|
|
|
# setup the odbcinst.ini file
|
|
my $sharedlib = $rpmoutput[0];
|
|
$cmd = "fgrep -i driver $odbcinstfile ";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) # then driver entry not there
|
|
{
|
|
my $entry =
|
|
"[MySQL]\nDescription = ODBC for MySQL\nDriver = $sharedlib";
|
|
$cmd = "echo \"$entry\" >> $odbcinstfile";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
$message = "$cmd failed. Could not setup ODBC.";
|
|
xCAT::MsgUtils->message("E", "$message");
|
|
exit(1);
|
|
}
|
|
}
|
|
else
|
|
{ # entry already there
|
|
$message = "$odbcinstfile already configured, will not change.";
|
|
xCAT::MsgUtils->message("I", "$message");
|
|
}
|
|
|
|
# setup the DSN odbc.ini file
|
|
$cmd = "fgrep -i XCATDB $odbcfile";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) # then xcat entry not there
|
|
{
|
|
my $entry =
|
|
"[xCATDB]\nDriver = MySQL\nSERVER = $server\nPORT = 3306\nDATABASE = xcatdb";
|
|
$cmd = "echo \"$entry\" >> $odbcfile";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
$message = "$cmd failed. Could not setup ODBC DNS file.";
|
|
xCAT::MsgUtils->message("E", "$message");
|
|
exit(1);
|
|
|
|
}
|
|
}
|
|
else
|
|
{ # entry already there
|
|
$message = "$odbcfile already configured, will not change.";
|
|
xCAT::MsgUtils->message("I", "$message");
|
|
}
|
|
|
|
# setup $roothome/.odbc.ini so root will not have to specify password
|
|
# when accessing through ODBC
|
|
|
|
my $homedir = xCAT::Utils->getHomeDir();
|
|
my $rootodbcfile = $homedir;
|
|
if ($::osname eq "AIX")
|
|
{
|
|
$rootodbcfile .= ".odbc.ini";
|
|
}
|
|
else
|
|
{
|
|
$rootodbcfile .= "/.odbc.ini";
|
|
}
|
|
|
|
# setup the DSN odbc.ini file
|
|
$cmd = "fgrep -i XCATDB $rootodbcfile";
|
|
xCAT::Utils->runcmd($cmd, -1);
|
|
if ($::RUNCMD_RC != 0) # then xcat entry not there
|
|
{
|
|
my $entry =
|
|
"[xCATDB]\nSERVER =$server\nDATABASE = xcatdb\nUSER = xcatadm\nPASSWORD = $passwd";
|
|
$cmd = "echo \"$entry\" >> $rootodbcfile";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
$message = "$cmd failed. Could not setup root ODBC file.";
|
|
xCAT::MsgUtils->message("E", "$message");
|
|
exit(1);
|
|
|
|
}
|
|
}
|
|
else
|
|
{ # entry already there
|
|
$message = "$rootodbcfile already configured, will not change.";
|
|
xCAT::MsgUtils->message("I", "$message");
|
|
}
|
|
|
|
# allow readonly by root
|
|
chmod 0600, $rootodbcfile;
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 createcfgloc
|
|
|
|
Creates the cfgloc file
|
|
to run xCAT on DB2
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub createcfgloc
|
|
|
|
{
|
|
my $cfgloc = "/etc/xcat/cfgloc";
|
|
my $cfglocbackup = "/etc/xcat/cfgloc.xcat.backup";
|
|
my $cmd;
|
|
my $message;
|
|
|
|
# if they had an old cfgloc , save it
|
|
if ((-e ($cfgloc)) && (!(-e ($cfglocbackup))))
|
|
{
|
|
$cmd = "mv $cfgloc $cfglocbackup";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
}
|
|
}
|
|
my $db2entry = "DB2:xcatdb|xcatdb|$::adminpassword";
|
|
$cmd = "echo \"$db2entry\" >> $cfgloc";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
$message = "$cmd failed. Could not setup cfgloc";
|
|
xCAT::MsgUtils->message("E", "$message");
|
|
exit(1);
|
|
|
|
}
|
|
|
|
# allow readonly by root
|
|
chmod 0600, $cfgloc;
|
|
|
|
}
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
=head3 restorexcatdb
|
|
|
|
Restores the database from ~/xcat-dbback and restarts the xcatd using
|
|
MySQL
|
|
|
|
=cut
|
|
|
|
#-----------------------------------------------------------------------------
|
|
|
|
sub restorexcatdb
|
|
{
|
|
|
|
# restore the database
|
|
xCAT::MsgUtils->message(
|
|
"I",
|
|
"Restoring the xCat Database with $::backupdir to PostgreSQL database.\nThis could take several minutes."
|
|
);
|
|
if (!(-d $::backupdir))
|
|
{ # does not exist, error
|
|
xCAT::MsgUtils->message("E",
|
|
" $::backupdir is missing. Cannot retore the database.");
|
|
exit(1);
|
|
}
|
|
|
|
# restore it
|
|
my $cmd = "XCATBYPASS=1 restorexCATdb -p $::backupdir";
|
|
xCAT::Utils->runcmd($cmd, 0);
|
|
if ($::RUNCMD_RC != 0)
|
|
{
|
|
xCAT::MsgUtils->message("E", " $cmd failed.");
|
|
exit(1);
|
|
}
|
|
|
|
#
|
|
# start the daemon
|
|
#
|
|
my $xcmd;
|
|
if ($::osname eq 'AIX')
|
|
{
|
|
$xcmd = "startsrc -s xcatd";
|
|
|
|
}
|
|
else
|
|
{
|
|
$xcmd = "service xcatd start";
|
|
}
|
|
system($xcmd);
|
|
}
|
|
|