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

Offer '-o' to force powerdown on failed suspend attempt, '-r' to force reset

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@11830 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2012-03-12 21:06:07 +00:00
parent 70d0d7a9c9
commit 65e98ce27d
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
xCAT-server/lib/xcat/plugins/ipmi.pm
View File

@ -1248,11 +1248,20 @@ sub power_with_context {
}
} elsif ($subcommand eq "suspend") {
my $waitforsuspend;
my $failtopowerdown;
my $failtoreset;
if ($sessdata->{powerstatus} eq "off") {
xCAT::SvrUtils::sendmsg([1,"System is off, cannot be suspended"],$callback,$sessdata->{node},%allerrornodes);
return;
}
if (@{$sessdata->{extraargs}} > 1) {
@ARGV=@{$sessdata->{extraargs}};
use Getopt::Long;
unless(GetOptions(
'w:i' => \$waitforsuspend
'w:i' => \$waitforsuspend,
'o' => \$failtopowerdown,
'r' => \$failtoreset,
)) {
xCAT::SvrUtils::sendmsg([1,"Error parsing arguments"],$callback,$sessdata->{node},%allerrornodes);
return;
@ -1262,6 +1271,8 @@ sub power_with_context {
if ($waitforsuspend == 0) { $waitforsuspend=30; }
$sessdata->{waitforsuspend}=time()+$waitforsuspend;
}
$sessdata->{failtopowerdown}=$failtopowerdown;
$sessdata->{failtoreset}=$failtoreset;
$sessdata->{ipmisession}->subcmd(netfn=>0x3a,command=>0x1d,data=>[0,3],callback=>\&power_response,callback_args=>$sessdata);
return;
} elsif ($subcommand eq "wake") {
@ -1308,7 +1319,18 @@ sub power_wait_for_suspend {
if ($sessdata->{acpistate} eq "suspend") {
xCAT::SvrUtils::sendmsg("suspend",$callback,$sessdata->{node},%allerrornodes);
} elsif ($sessdata->{waitforsuspend} <= time()) {
xCAT::SvrUtils::sendmsg([1,"Failed to enter suspend state"],$callback,$sessdata->{node},%allerrornodes);
delete $sessdata->{waitforsuspend};
if ($sessdata->{failtopowerdown}) {
$sessdata->{subcommand}='off',
xCAT::SvrUtils::sendmsg([1,"Failed to enter suspend state, forcing off"],$callback,$sessdata->{node},%allerrornodes);
power($sessdata);
} elsif ($sessdata->{failtoreset}) {
$sessdata->{subcommand}='reset',
xCAT::SvrUtils::sendmsg([1,"Failed to enter suspend state, forcing reset"],$callback,$sessdata->{node},%allerrornodes);
power($sessdata);
} else {
xCAT::SvrUtils::sendmsg([1,"Failed to enter suspend state"],$callback,$sessdata->{node},%allerrornodes);
}
} else {
$sessdata->{ipmisession}->subcmd(netfn=>0x3a,command=>0x1d,delayxmit=>5,data=>[1],callback=>\&power_wait_for_suspend,callback_args=>$sessdata);
}