From 8352acdab2f6ad062bed555db162e542648fbff1 Mon Sep 17 00:00:00 2001
From: Jarrod Johnson <jbjohnso@us.ibm.com>
Date: Fri, 27 Jun 2014 11:50:06 -0400
Subject: [PATCH] Modify strategy in case where login succeeds but set priv
 does not

Previously it would go all the way back.  Instead, go back just one step.
---
 xCAT-server/lib/perl/xCAT/IPMI.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/IPMI.pm b/xCAT-server/lib/perl/xCAT/IPMI.pm
index 0ba86f067..8b281fed8 100644
--- a/xCAT-server/lib/perl/xCAT/IPMI.pm
+++ b/xCAT-server/lib/perl/xCAT/IPMI.pm
@@ -323,9 +323,7 @@ sub admin_level_set {
     my $code = $rsp->{code};
     if (($code == 0x80 or $code == 0x81) and $self->{privlevel} == 4) {
             $self->{privlevel} = 3;
-            $self->{logged}=1;
-            $self->logout();
-            $self->relog();
+            $self->subcmd(netfn=>0x6,command=>0x3b,data=>[$self->{privlevel}],callback=>\&admin_level_set,callback_args=>$self);
             return;
     }