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

Hitachi PMR fix - swapnfs is not available when paging resource is chaged.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10373 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sjing 2011-08-26 03:40:55 +00:00
parent dae397cf6a
commit 210befa753
1 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
xCAT/postscripts/xcataixpost
View File

@ -306,7 +306,9 @@ if (@ARGV<1) {
if ((!$?) && ($CNS =~ /\'0\'|\'N\'|\'n\'/)) { $update=0;} #only update is nonodestatus is not set in the site table
}
if ($update) {
if (&updateflag($nodesetstat) != 0) {
my $keywd="installstatus";
my $state="booted";
if (&updateflag($keywd, $state) != 0) {
print "$::sdate xcataixpost: Failed to update the xCAT server.\n";
print $::LOG_FILE "$::sdate xcataixpost: Failed to update the xCAT server..\n";
}
@ -349,6 +351,35 @@ if ($nodesetstat eq 'standalone') {
}
}
}
if ($nodesetstat eq 'diskless') {
# see if BASECUST_REMOVAL is set in /etc/niminfo
if (-f "/etc/niminfo") {
$cmd = "cat /etc/niminfo | grep 'BASECUST_REMOVAL'";
&runcmd($cmd);
my $line = $::outref;
my ($junk, $torm) = split(/=/, $line);
$cmd = "cat /etc/niminfo | grep 'NIM_HOSTNAME'";
&runcmd($cmd);
$line = $::outref;
my ($junkn, $hostn) = split(/=/, $line);
if ($torm) {
chomp $hostn;
$hostn =~ s/^\s*//;
# notify the xcatd on nim master to remove this value
# so that it will not be present in the subsequent reboots
my $keywd = "basecustremv";
if (&updateflag($keywd, $hostn) != 0) {
print "$::sdate xcataixpost: Failed to update the xCAT server.\n";
print $::LOG_FILE "$::sdate xcataixpost: Failed to update the xCAT server.\n";
}
}
}
}
$cleanupxcatpost = `grep "CLEANUPXCATPOST=" $scriptname|awk -F \= '{print \$2}'`;
if ((!$?) && ($cleanupxcatpost =~ /\'1\'|\'yes\'/i)) {
&runcmd("cd /; rm -rf /xcatpost/*");
@ -444,8 +475,8 @@ sub getmypost {
#
############################################################
sub updateflag {
my $nodesetstat=shift;
my $state="booted";
my $keywd=shift;
my $state=shift;
my $port = "3002";
my $servip = `host $servnode | awk '{print \$3}'`;
@ -470,7 +501,7 @@ sub updateflag {
while (defined ($line = <$remote>)) {
chomp $line;
if ($line eq "ready") {
print $remote "installstatus $state\n";
print $remote "$keywd $state\n";
} elsif ($line eq "done") {
last;
}