arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Updates to AIX postscripts for service node support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2866 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott
2009-03-10 13:56:52 +00:00
parent a9f6a43469
commit 27a28da7da
5 changed files with 607 additions and 222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mkAIXsnap
View File

@@ -42,7 +42,7 @@ fi
#
# do an update from the trunk directory level
#
svn update | tee $BLDTOP/coresvnup
#svn update | tee $BLDTOP/coresvnup
#svn update
# create a simple install script

71
xCAT-server/lib/xcat/plugins/aixinstall.pm
View File

@@ -3662,15 +3662,68 @@ sub prenimnodeset
# create a NIM script resource using the xcataixpost script
#
if ($add_xcataixpost) { # if we have at least one standalone node
my $resname = "xcataixpost";
my $respath = "/install/postscripts/xcataixpost";
if (&mkScriptRes($resname, $respath, $nimprime, $callback) != 0) {
my $rsp;
push @{$rsp->{data}}, "Could not create a NIM resource for xcataixpost.\n";
xCAT::MsgUtils->message("E", $rsp, $callback);
return (1);
}
$lochash{$resname} = "/install/postscripts/xcataixpost";
my $pre;
if (&is_me($nimprime)) {
$pre = "";
} else {
$pre = "xdsh $nimprime";
}
my $createscript=0;
# see if it already exists
my $scmd = qq~$pre /usr/sbin/lsnim -l 'xcataixpost' 2>/dev/null~;
xCAT::Utils->runcmd($scmd, 0);
if ($::RUNCMD_RC != 0) {
# doesn't exist so create it
$createscript=1;
} else {
# it exists so see if it's in the correct location
my $loc = &get_nim_attr_val('xcataixpost', 'location', $callback, $nimprime);
# see if it's in the wrong place
if ($loc eq "/install/postscripts/xcataixpost") {
# need to remove this def and create a new one
$createscript=1;
my $rcmd = qq~$pre /usr/sbin/nim -Fo remove 'xcataixpost' 2>/dev/null~;
xCAT::Utils->runcmd($rcmd, 0);
if ($::RUNCMD_RC != 0) {
# error - could not remove NIM xcataixpost script resource.
}
}
}
# create a new one if we need to
if ($createscript) {
# copy file to /install/nim/scripts
my $ccmd = qq~$pre mkdir -m 644 -p /install/nim/scripts; cp /install/postscripts/xcataixpost /install/nim/scripts 2>/dev/null; chmod +x /install/nim/scripts/xcataixpost~;
xCAT::Utils->runcmd($ccmd, 0);
if ($::RUNCMD_RC != 0) {
my $rsp;
push @{$rsp->{data}}, "Could not copy xcataixpost.";
xCAT::MsgUtils->message("E", $rsp, $callback);
return 1;
}
# define the new xcataixpost resource
my $dcmd = qq~$pre /usr/sbin/nim -o define -t script -a server=master -a location=/install/nim/scripts/xcataixpost xcataixpost 2>/dev/null~;
xCAT::Utils->runcmd($dcmd, 0);
if ($::RUNCMD_RC != 0) {
my $rsp;
push @{$rsp->{data}}, "Could not create a NIM resource for xcataixpost.\n";
xCAT::MsgUtils->message("E", $rsp, $callback);
return (1);
}
}
# make sure we clean up the /etc/exports file
my $ecmd = qq~$pre /usr/sbin/rmnfsexp -d /install/postscripts/xcataixpost -B 2>/dev/null~;
xCAT::Utils->runcmd($ecmd, 0);
$lochash{'xcataixpost'} = "/install/nim/scripts/xcataixpost";
}
#####################################################

269
xCAT/postscripts/aixremoteshell
View File

@@ -8,8 +8,8 @@
=head1 aixremoteshell
This sets up the remote shell for rooton the AIX node,such that root can
login using with no password. The default is /bin/rsh and
This sets up the remote shell for root on the AIX node,such that root can
login with no password. The default is /bin/rsh and
/bin/rcp but can be overriden by setting the useSSHonAIX attribute in the
site table to yes, in which case we will use ssh/scp.
=cut
@@ -23,8 +23,17 @@
# setup the ssh keys on the node
# end
BEGIN
{
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}
use lib "$::XCATROOT/lib/perl";
# MAIN
use strict;
use IO::Socket;
use IO::Socket::SSL;
use xCAT::Utils;
my $rc = 0;
# Override from site table
@@ -48,31 +57,45 @@ if ($rc != 0)
{
exit 1;
}
if ($home eq "\/")
{
$home = "";
}
$usesshonaix =~ tr/a-z/A-Z/; # convert to upper
if ((!defined($usesshonaix)) || ($usesshonaix eq "0") || ($usesshonaix eq "NO"))
{ # setting up rsh
# setup .rhosts if not already setup
$cmd = "/bin/grep \"^$master root\" $home/.rhosts";
{ # setting up rsh
# setup .rhosts if not already setup
$cmd = "/bin/grep \"^$master root\" /.rhosts";
`$cmd 2>&1`;
my $rc = $? >> 8;
if ($rc)
{ # if not found, then add entry in .rhosts
&runcmd("/bin/echo $master root >> $home/.rhosts");
chmod 0600, "$home/.rhosts";
{ # if not found, then add entry in .rhosts
&runcmd("/bin/echo $master root >> /.rhosts");
chmod 0600, "/.rhosts";
}
}
else
{ # setting up ssh
{
# setting up ssh
if (&setupSSH != 0) {
my $msg = "Failed to setup ssh on $node.\n";
`logger -t xcat $msg`;
# print $msg;
exit 0;
}
}
exit 0;
#
# Subroutines
#
sub setupSSH
{
my $sshdconfig = "/etc/ssh/sshd_config";
my $sshconfig = "/etc/ssh/ssh_config";
if (-e $sshdconfig)
{ # ssh installed
{ # ssh installed
my $tmp="$sshdconfig.ORIG";
if (!(-e "$sshdconfig.ORIG"))
{
@@ -92,19 +115,19 @@ else
{ # ssh not installed
my $msg = "Failed to setup ssh on $node, ssh not installed. \n";
`logger -t xcat $msg`;
exit 1;
exit 0;
}
if (-e "/xcatpost/_ssh")
{ # ssh public key available
$rc = &runcmd("mkdir -p $home/.ssh");
$rc = &runcmd("mkdir -p /.ssh");
if ($rc == 0)
{
$rc = &runcmd("cp -fp /xcatpost/_ssh/* $home/.ssh");
$rc = &runcmd("cp -fp /xcatpost/_ssh/* /.ssh");
if ($rc == 0)
{
#$rc = &runcmd("scp -p $master:$home/.ssh/id_* $home/.ssh");
$rc = &runcmd("chmod 0700 $home/.ssh");
$rc = &runcmd("chmod 0600 $home/.ssh/*");
$rc = &runcmd("chmod 0700 /.ssh");
$rc = &runcmd("chmod 0600 /.ssh/*");
}
}
}
@@ -112,10 +135,203 @@ else
{ # ssh keys not available
my $msg = "Failed to setup ssh on $node, ssh keys not available. \n";
`logger -t xcat $msg`;
exit 1;
exit 0;
}
# get the name of my service node/NIM master from /etc/xcatinfo
# ! use value of MASTER env variable instead
$::servnode = $master;
my $response=&getresponse("ssh_dsa_hostkey");
if (defined ($response) ) {
my $fd;
my $filename = "/etc/ssh/ssh_host_dsa_key";
&runcmd("mkdir -p /etc/ssh");
open($fd, '>',$filename);
print $fd $response;
close($fd);
# set the permissions
my $cmd = "chmod 600 $filename > /dev/null 2>&1";
&runcmd($cmd);
}
else {
$msg = "aixremoteshell: Could not get ssh_host_dsa_key file.\n";
`logger -t xcat $msg`;
}
my $response=&getresponse("ssh_rsa_hostkey");
if (defined ($response) ) {
my $fd;
my $filename = "/etc/ssh/ssh_host_rsa_key";
&runcmd("mkdir -p /etc/ssh");
open($fd, '>',$filename);
print $fd $response;
close($fd);
# set the permissions
my $cmd = "chmod 600 $filename > /dev/null 2>&1";
&runcmd($cmd);
}
else {
$msg = "aixremoteshell: Could not get ssh_host_rsa_key file.\n";
`logger -t xcat $msg`;
}
if ( -f "/etc/xCATSN") {
&runcmd("mkdir -p /etc/xcat/hostkeys; cp /etc/ssh/ssh* /etc/xcat/hostkeys/. > /dev/null 2>&1");
}
my $response=&getresponse("ssh_root_key");
if (defined ($response) ) {
my $fd;
my $filename = "/.ssh/id_rsa";
&runcmd("mkdir -p /.ssh");
open($fd, '>',$filename);
print $fd $response;
close($fd);
# set the permissions
#TODO - what perms are needed???
my $cmd = "chmod 600 $filename > /dev/null 2>&1";
&runcmd($cmd);
if ( -f "/.ssh/id_rsa" ) {
&runcmd("ssh-keygen -y -f /.ssh/id_rsa > /.ssh/id_rsa.pub");
}
}
else {
$msg = "aixremoteshell: Could not get id_rsa file.\n";
`logger -t xcat $msg`;
}
return 0;
}
#####################################################
#
# getresponse
# Request info from xcatd on the management node
#
# - uses SSL socket on port 3001 to connect to MN xcatd
# to make the request for info
#
#####################################################
sub getresponse
{
my ($req) = @_;
my $port = "3001";
# open listener connection to wait for check from management node
my $lpid = &openlistener();
# open a socket to request credentials
my $sock = IO::Socket::SSL->new(
PeerAddr => $::servnode,
PeerPort => $port,
Proto => 'tcp',
);
unless ($sock) {
my $msg = "aixremoteshell: Cannot connect to host \'$::servnode\'\n";
`logger -t xcat $msg`;
#print $msg;
return undef;
}
# request must be in XML format
print $sock "<xcatrequest>\n";
print $sock " <command>getcredentials</command>\n";
print $sock " <arg>$req</arg>\n";
print $sock " <callback_port>300</callback_port>\n";
print $sock "</xcatrequest>\n";
#TODO - do we have to try again after waiting for a bit????
my $response='';
my $line;
while (defined ($line = <$sock>)) {
# skip xml tags
next if ($line =~ /^\s*</);
# once we get to serverdone we have the whole response
if ($line =~ m/<\/serverdone>/) {
last:
}
$response .= $line;
}
close ($sock);
#debug
#print "resp = \'$response\'\n";
kill 2, $lpid;
if ($response) {
return $response;
}
return undef;
}
#####################################################
#
# openlistener
# - fork a child process to respond to a check from the MN
#
#####################################################
sub openlistener
{
my $node = $ENV{'NODE'};
# fork a child process to open a socket to listen for communication
# from the server
my $pid = xCAT::Utils->xfork;
unless (defined $pid) {
# fork failed
$msg = "aixremoteshell: Could not fork process.\n";
`logger -t xcat $msg`;
print $msg;
return undef;
}
if ($pid != 0) {
# This is the parent process, just return
return $pid;
}
my $listener = IO::Socket::INET->new(
LocalPort => '300',
Proto => 'tcp',
Listen => '64',
Reuse => 1
);
unless ($listener) {
my $msg = "aixremoteshell: Cannot open socket on \'$node\'\n";
`logger -t xcat $msg`;
print $msg;
exit 1;
}
# xcatd sends a quick req to see if we are really asking
# for info - this listener checks for the req and says ok
my $client;
while ($client = $listener->accept()) {
# $client is the new connection
my $text=<$client>;
# see if we got "CREDOKBYYOU?"
if ($text =~ /CREDOKBYYOU?/) {
print $client "CREDOKBYME";
close($client);
close($listener);
exit 0;
}
close($client);
}
close($client);
close($listener);
exit 0;
}
exit $rc;
#
# run the command
@@ -125,18 +341,17 @@ sub runcmd
my ($cmd) = @_;
my $rc = 0;
$cmd .= ' 2>&1';
my $outref = [];
@$outref = `$cmd`;
$::outref = `$cmd`;
if ($?)
{
$rc = $? >> 8;
if ($rc > 0)
{
my $msg = "$cmd returned rc=$rc @$outref\n";
my $msg = "$cmd returned rc=$rc @$::outref\n";
`logger -t xcat $msg`;
print $msg;
# print $msg;
}
}
return $rc;
return 0;
}

380
xCAT/postscripts/servicenode
View File

@@ -17,9 +17,22 @@
#-----------------------------------------------------------------------------
BEGIN
{
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}
use lib "$::XCATROOT/lib/perl";
# MAIN
use strict;
use IO::Socket;
use IO::Socket::SSL;
use xCAT::Utils;
# MAIN
my $rc=0;
my $msg="";
$::osname = `uname`;
chomp $::osname;
@@ -36,7 +49,7 @@ if ($::osname eq 'AIX')
$rc = &setupAIXsn;
if ( $rc != 0) {
my $msg="$::sdate servicenode: One or more errors occurred when attempting to configure node $::hname as an xCAT service node.\n";
print "$msg\n";
# print "$msg\n";
`logger -t xcat $msg`;
}
}
@@ -83,185 +96,256 @@ sub runcmd
`logger -t xcat $msg`;
}
}
return $rc;
return 0;
}
# do AIX service node setup
sub setupAIXsn
{
my $error=0;
my $servnode;
# get the name of my service node/NIM master from the /etc/xcatinfo file
# file was created by xcataixpost when the node was first installed
if (-f "/etc/xcatinfo") {
my $cmd = "cat /etc/xcatinfo | grep 'XCATSERVER'";
&runcmd($cmd);
my $SNline = $::outref;
my $junk;
($junk, $servnode) = split(/=/, $SNline);
$servnode =~ s/^\s*//;
chomp $servnode;
} else {
$msg = "$::sdate servicenode: Could not find /etc/xcatinfo file.\n";
`logger -t xcat $msg`;
$error++;
}
# get the name of my service node/NIM master from the MASTER env var
$::servnode = $ENV{'MASTER'};
my $rcpcmd = "rcp -r $servnode:/etc/hosts /etc";
if (&runcmd($rcpcmd) != 0) {
$msg = "$::sdate servicenode: Could not get /etc/hosts file.\n";
`logger -t xcat $msg`;
$error++;
}
# make sure we have enough space in /xcatpost ("/") fs
my $dfcmd = "df -m / | grep '\/' |tr -s ' '| cut -f 3 -d ' '";
if (&runcmd($dfcmd) != 0) {
$msg = "$::sdate servicenode: Could not find file system free space.\n";
`logger -t xcat $msg`;
$error++;
}
my $freespace = $::outref;
if ($freespace <= 220) {
# add to "/" fs if needed
my $chfscmd = "/usr/sbin/chfs -a size=+220M /";
if (&runcmd($chfscmd) != 0) {
$msg = "$::sdate servicenode: Could not increase file system size.\n";
`logger -t xcat $msg`;
$error++;
}
}
# make sure we have enough space in /usr fs
my $dfcmd = "df -m /usr | grep 'usr' |tr -s ' '| cut -f 3 -d ' '";
if (&runcmd($dfcmd) != 0) {
$msg = "$::sdate servicenode: Could not find file system free space.\n";
`logger -t xcat $msg`;
$error++;
}
my $freespace = $::outref;
if ($freespace <= 2200) {
# add to "/usr" fs if needed
my $chfscmd = "/usr/sbin/chfs -a size=+2200M /usr";
if (&runcmd($chfscmd) != 0) {
$msg = "$::sdate servicenode: Could not increase file system size.\n
";
`logger -t xcat $msg`;
$error++;
}
}
# copy SN software to /xcatpost/AIX/xcatpkgs
my $rcpcmd = "mkdir -p /xcatpost/AIX/xcatpkgs; rcp -r $servnode:/install/AIX/xcatpkgs/* /xcatpost/AIX/xcatpkgs";
if (&runcmd($rcpcmd) != 0) {
$msg = "$::sdate servicenode: Could not copy service node software from the management node.\n";
`logger -t xcat $msg`;
$error++;
}
# run inutoc
my $inucmd = "inutoc /xcatpost/AIX/xcatpkgs";
if (&runcmd($rcpcmd) != 0) {
$msg = "$::sdate servicenode: Could not run inutoc.\n";
`logger -t xcat $msg`;
$error++;
}
# install openssl
my $gencmd = "geninstall -IaXY -d /xcatpost/AIX/xcatpkgs -f /xcatpost/AIX/xcatpkgs/xCATinstpSN.bnd";
if (&runcmd($gencmd) != 0) {
$msg = "$::sdate servicenode: Could not install openssl.\n";
`logger -t xcat $msg`;
$error++;
}
# install openssh
my $gencmd = "geninstall -IaXY -d /xcatpost/AIX/xcatpkgs -f /xcatpost/AIX/xcatpkgs/xCATaixSSH.bnd";
if (&runcmd($gencmd) != 0) {
$msg = "$::sdate servicenode: Could not install openssh.\n";
`logger -t xcat $msg`;
$error++;
}
#
# run updatepkg to update RPM's reflection of the software
# installed by installp - may already be done - but won't hurt!
if (&runcmd("/usr/sbin/updtvpkg") != 0) {
$msg = "$::sdate servicenode: Could not run updtvpkg.\n";
`logger -t xcat $msg`;
$error++;
}
# install rpms
my $rpmcmd = "rpm -U /xcatpost/AIX/xcatpkgs/*.rpm";
&runcmd($rpmcmd);
# so conserver will start
if (&runcmd("mkdir -p /var/log/consoles")!= 0) {
$msg = "$::sdate servicenode: Could not make /var/log/consoles.\n";
`logger -t xcat $msg`;
$error++;
}
# makes it a service node
# makes it a service node
if (&runcmd("touch /etc/xCATSN") != 0 ) {
$msg = "$::sdate servicenode: Could not touch /etc/xCATSN\n";
`logger -t xcat $msg`;
$error++;
}
# call copycerts
if (&runcmd("/opt/xcat/sbin/copycerts") != 0) {
$msg = "$::sdate servicenode: Could not run copycerts.\n";
`logger -t xcat $msg`;
$error++;
}
# make sure we don't have xCATMN file
if (-f "/etc/xCATMN") {
if (&runcmd("rm /etc/xCATMN") != 0 ) {
$msg = "$::sdate servicenode: Could not remove /etc/xCATMN\n";
`logger -t xcat $msg`;
}
}
# copy the cfgloc file from /xcatpost
if (&runcmd("mkdir -p /etc/xcat")!= 0) {
$msg = "$::sdate servicenode: Could not make /etc/xcat directory.\n";
`logger -t xcat $msg`;
$error++;
}
# get the xCAT credentials from the server
&getcreds;
my $sedcmd = "sed -e 's/host=.*|xcatadmin/host=$servnode|xcatadmin/' /xcatpost/etc/xcat/cfgloc > /etc/xcat/cfgloc";
if (&runcmd($sedcmd)!= 0) {
$msg = "$::sdate servicenode: Could not copy cfgloc file.\n";
`logger -t xcat $msg`;
$error++;
}
# start xcatd
if (&runcmd("/opt/xcat/sbin/xcatd &") != 0) {
$msg = "$::sdate servicenode: Could not start xcatd.\n";
`logger -t xcat $msg`;
$error++;
}
# TODO - add xcatd as system service???
# mkssys -s xcatd -p /opt/xcat/sbin/xcatd -u 0 -K
# add xcatd to /etc/inittab???
$mkitab_cmd = 'mkitab "xcatd:2:once:/opt/xcat/sbin/xcatd > /dev/console 2>&1"';
# $mkitab_cmd = 'mkitab "xcatd:2:once:/usr/bin/startsrc -s xcatd > /dev/console 2>&1"';
my $mkitab_cmd = 'mkitab "xcatd:2:once:/opt/xcat/sbin/xcatd > /dev/console 2>&1"';
if (&runcmd($mkitab_cmd) != 0) {
$msg = "$::sdate servicenode: Could not add xcatd to /etc/inittab.\n";
`logger -t xcat $msg`;
$error++;
# error might just mean that the entry is already there!
# $msg = "$::sdate servicenode: Could not add xcatd to /etc/inittab.\n";
# `logger -t xcat $msg`;
}
# do nim master setup - master fileset already installed
if (&runcmd("nim_master_setup -a mk_resource=no") != 0) {
$msg = "$::sdate servicenode: Could not run nim_master_setup.\n";
`logger -t xcat $msg`;
$error++;
}
if ($error > 0) {
return $error;
}
#
# TODO - can configure NIM to use SSL - "nimconfig -c"
# !!!!! can't do diskless nodes w/ nimsh & SSL enabled!!!!
#
return 0;
}
#####################################################
#
# getcreds
# Get xCAT credentials and DB cfgloc file
#
#####################################################
sub getcreds
{
my $response=&getresponse("xcat_client_cred");
if (defined ($response) ) {
my $fd;
my $filename = "/.xcat/client-cred.pem";
&runcmd("mkdir -p /.xcat");
&runcmd("chmod 700 /.xcat > /dev/null 2>&1");
open($fd, '>',$filename);
print $fd $response;
close($fd);
# set the permissions
my $cmd = "chmod 600 $filename > /dev/null 2>&1";
&runcmd($cmd);
}
else {
$msg = "$::sdate servicenode: Could not get client-cred.pem file.\n";
`logger -t xcat $msg`;
}
my $response=&getresponse("xcat_server_cred");
if (defined ($response) ) {
my $fd;
my $filename = "/etc/xcat/cert/server-cred.pem";
&runcmd("mkdir -p /etc/xcat/cert");
open($fd, '>',$filename);
print $fd $response;
close($fd);
# set the permissions
my $cmd = "chmod 600 /etc/xcat/cert/* > /dev/null 2>&1";
&runcmd($cmd);
}
else {
$msg = "$::sdate servicenode: Could not get server-cred.pem file.\n";
`logger -t xcat $msg`;
}
my $response=&getresponse("xcat_cfgloc");
if (defined ($response) ) {
# need to change entry to use the name of the server as
# know by this node
my ($begin, $tmp) = split(';', $response);
my ($tmp2, $end, $end2) = split('\|', $tmp);
my ($tmp3, $oldserv) = split('=', $tmp2);
my $newstr = "$begin;$tmp3=$::servnode|$end|$end2";
my $fd;
my $filename = "/etc/xcat/cfgloc";
&runcmd("mkdir -p /etc/xcat");
open($fd, '>',$filename);
print $fd $newstr;
close($fd);
# set the permissions
my $cmd = "chmod 600 $filename > /dev/null 2>&1";
&runcmd($cmd);
}
else {
$msg = "$::sdate servicenode: Could not get cfgloc file.\n";
`logger -t xcat $msg`;
}
return 0;
}
#####################################################
#
# getresponse
# Request info from xcatd on the management node
#
# - uses SSL socket on port 3001 to connect to MN xcatd
# to make the request for info
#
#####################################################
sub getresponse
{
my ($req) = @_;
my $port = "3001";
# open listener connection to wait for check from management node
my $lpid = &openlistener();
# open a socket to request credentials
my $sock = IO::Socket::SSL->new(
PeerAddr => $::servnode,
PeerPort => $port,
Proto => 'tcp',
);
unless ($sock) {
my $msg = "servicenode: Cannot connect to host \'$::servnode\'\n";
`logger -t xcat $msg`;
print $msg;
return undef;
}
# request must be in XML format
print $sock "<xcatrequest>\n";
print $sock " <command>getcredentials</command>\n";
print $sock " <arg>$req</arg>\n";
print $sock " <callback_port>300</callback_port>\n";
print $sock "</xcatrequest>\n";
#TODO - do we have to try again after waiting for a bit????
my $response='';
my $line;
while (defined ($line = <$sock>)) {
# skip xml tags
next if ($line =~ /^\s*</);
# once we get to serverdone we have the whole response
if ($line =~ m/<\/serverdone>/) {
last:
}
$response .= $line;
}
close ($sock);
#print "resp = \'$response\'\n";
kill 2, $lpid;
if ($response) {
return $response;
}
return undef;
}
#####################################################
#
# openlistener
# - fork a child process to respond to a check from the MN
#
#####################################################
sub openlistener
{
my $node = $ENV{'NODE'};
# fork a child process to open a socket to listen for communication
# from the server
my $pid = xCAT::Utils->xfork;
unless (defined $pid) {
# fork failed
$msg = "servicenode: Could not fork process.\n";
`logger -t xcat $msg`;
#print $msg;
return undef;
}
if ($pid != 0) {
# This is the parent process, just return
return $pid;
}
my $listener = IO::Socket::INET->new(
LocalPort => '300',
Proto => 'tcp',
Listen => '64',
Reuse => 1
);
unless ($listener) {
my $msg = "servicenode: Cannot open socket on \'$node\'\n";
`logger -t xcat $msg`;
print $msg;
exit 1;
}
# xcatd sends a quick req to see if we are really asking
# for info - this listener checks for the req and says ok
my $client;
while ($client = $listener->accept()) {
# $client is the new connection
my $text=<$client>;
# see if we got "CREDOKBYYOU?"
if ($text =~ /CREDOKBYYOU?/) {
print $client "CREDOKBYME";
close($client);
close($listener);
exit 0;
}
close($client);
}
close($client);
close($listener);
exit 0;
}

107
xCAT/postscripts/xcataixpost
View File

@@ -20,7 +20,7 @@ if (!-d $logdir) {
}
$::sdate = `/bin/date`;
chomp $sdate;
chomp $::sdate;
my $logfile = $logdir . "/xcat.log";
# this log should not contain much so it might be ok to let it grow?
@@ -28,27 +28,41 @@ my $logfile = $logdir . "/xcat.log";
open(LOGFILE,">>",$logfile);
$::LOG_FILE = \*LOGFILE;
# get hostname
$::shorthost = `hostname -s`;
chomp $::shorthost;
# get the name of my service node/NIM master from the /etc/niminfo file
if (-f "/etc/niminfo") {
$cmd = "cat /etc/niminfo | grep 'NIM_MASTER_HOSTNAME'";
&runcmd($cmd);
my $SNline = $::outref;
my $servnode;
if (-f "/etc/xcatinfo") {
# if this file exists assume it has the correct server name
my $cmd = "cat /etc/xcatinfo | grep 'XCATSERVER'";
&runcmd($cmd);
my $SNline = $::outref;
my $junk;
($junk, $servnode) = split(/=/, $SNline);
$servnode =~ s/^\s*//;
chomp $servnode;
($junk, $servnode) = split(/=/, $SNline);
} else {
print "$::sdate xcataixpost: Could not find /etc/niminfo file.\n";
print $::LOG_FILE "$::sdate xcataixpost: Could not find /etc/niminfo file.\n";
close($::LOG_FILE);
exit 1;
# get the name of my service node/NIM master from the /etc/niminfo file
if (-f "/etc/niminfo") {
$cmd = "cat /etc/niminfo | grep 'NIM_MASTER_HOSTNAME'";
&runcmd($cmd);
my $SNline = $::outref;
my $junk;
($junk, $servnode) = split(/=/, $SNline);
# save the servnode from niminfo in xcatinfo
my $xcatinfo="/etc/xcatinfo";
open(XCATINFO,">",$xcatinfo);
print XCATINFO "XCATSERVER=$servnode\n";
close(XCATINFO);
} else {
print "$::sdate xcataixpost: Could not find /etc/niminfo file.\n";
print $::LOG_FILE "$::sdate xcataixpost: Could not find /etc/niminfo file.\n";
close($::LOG_FILE);
exit 1;
}
}
$servnode =~ s/^\s*//;
chomp $servnode;
# create the xcatpost dir
my $cmd = "mkdir -p /xcatpost";
@@ -59,28 +73,37 @@ if (&runcmd($cmd) != 0) {
exit 1;
}
# save the name of the xCAT server in case the /etc/niminfo file
# gets overwritten
my $xcatinfo="/etc/xcatinfo";
open(XCATINFO,">",$xcatinfo);
print XCATINFO "XCATSERVER=$servnode\n";
close(XCATINFO);
# get the contents of the /install/postscripts dir on the server
my $rcpcmd;
if ((@ARGV==0) || ($ARGV[0] != 2)) {
$rcpcmd= "rcp -r $servnode:/install/postscripts/* /xcatpost";
} else {
#when argv[1]=2, there is only one postscript file, user wants only download it to save time
$rcpcmd= "rcp $servnode:/install/postscripts/$ARGV[1] /xcatpost";
# - mount dir from server and copy files
my $mcmd = "mkdir -p /xcatmnt; mount $servnode:/install/postscripts /xcatmnt";
if (&runcmd($mcmd) != 0) {
print "$::sdate xcataixpost: Could not mount /install/postscripts from $servnode.\n";
print $::LOG_FILE "$::sdate xcataixpost: Could not mount /install/postscripts from $servnode.\n";
close($::LOG_FILE);
exit 1;
}
if (&runcmd($rcpcmd) != 0) {
print "$::sdate xcataixpost: Could not rcp file from $servnode.\n";
print $::LOG_FILE "$::sdate xcataixpost: Could not rcp file from $servnode.\n";
close($::LOG_FILE);
exit 1;
if ((@ARGV==0) || ($ARGV[0] != 2)) {
my $cpcmd = "cp -r /xcatmnt /xcatpost >/dev/null 2>&1";
} else {
# when argv[1]=2, there is only one postscript file,
# user wants only download it to save time
$cpcmd= "cp /xcatmnt/postscripts/$ARGV[1] /xcatpost >/dev/null 2>&1";
}
if (&runcmd($cpcmd) != 0) {
print "$::sdate xcataixpost: Could not copy postscripts to /xcatpost.\n";
print $::LOG_FILE "$::sdate xcataixpost: Could not copy postscripts to /xcatpost.\n";
close($::LOG_FILE);
exit 1;
}
my $ucmd = "umount /xcatmnt; rmdir /xcatmnt";
if (&runcmd($ucmd) != 0) {
print "$::sdate xcataixpost: Could not unmount /install.\n";
print $::LOG_FILE "$::sdate xcataixpost: Could not unmount /install/postscripts.\n";
close($::LOG_FILE);
exit 1;
}
# request the xCAT postscript for this particular node
@@ -129,7 +152,6 @@ if (-f $scriptname)
print $::LOG_FILE "$::sdate xcataixpost: Could not find post script for $::shorthost.\n";
}
if (@ARGV<1) {
if (&updateflag($nodesetstat) != 0) {
print "$::sdate xcataixpost: Failed to update the xCAT server.\n";
@@ -140,6 +162,15 @@ if (@ARGV<1) {
print "returned";
}
# Set the local password - if provided
my $rpd = $ENV{'ROOTPW'};
if ($rpd) {
my $pwcmd = qq~echo "root:$rpd" | /bin/chpasswd -c >/dev/null 2>&1~;
if (&runcmd($pwcmd) != 0) {
$msg = "$::sdate xcataixpost: Could not set password.\n";
`logger -t xcat $msg`;
}
}
close($::LOG_FILE);
@@ -170,6 +201,7 @@ sub getmypost {
if (!open(POSTSCRIPT, ">$scriptname") ) {
print "$::sdate xcataixpost: Could not open $scriptname.\n";
print $::LOG_FILE "$::sdate xcataixpost: Could not open $scriptname.\n";
close $remote;
return 1;
}
@@ -180,6 +212,7 @@ sub getmypost {
next;
}
print POSTSCRIPT "$line\n";
#print "xcataixpost: line = \'$line\'\n";
}
close(POSTSCRIPT);
close $remote;
@@ -237,8 +270,8 @@ sub runcmd
$rc = $? >> 8;
if ($rc > 0)
{
print "$::sdate xcataixpost: $::outref\n";
print $::LOG_FILE "$::sdate xcataixpost: $::outref\n";
# print "$::sdate xcataixpost: $::outref\n";
# print $::LOG_FILE "$::sdate xcataixpost: $::outref\n";
}
}
return $rc;