From 2a241d4e6430053c03d5e418231f74ee8a1b32db Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sun, 16 Sep 2012 03:56:55 +0000
Subject: [PATCH] When doing close session, if the reply packet is dropped on
 the network, session may no longer be closeable.  Send a close session and
 hope for the best, do not hold up things waiting for something that shall
 never come

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13819 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/IPMI.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/xCAT-server/lib/perl/xCAT/IPMI.pm b/xCAT-server/lib/perl/xCAT/IPMI.pm
index e86a60481..329c19916 100644
--- a/xCAT-server/lib/perl/xCAT/IPMI.pm
+++ b/xCAT-server/lib/perl/xCAT/IPMI.pm
@@ -159,6 +159,7 @@ sub logout {
         if ( $self->{onlogout}) { $self->{onlogout}->("SUCCESS",$self->{onlogout_args}); }
         return;
     }
+    $self->{noretry}=1;
     $self->subcmd(netfn=>0x6,command=>0x3c,data=>$self->{sessionid},callback=>\&logged_out,callback_args=>$self);
 }
 sub logged_out {
@@ -429,6 +430,7 @@ sub timedout {
     my $self = shift;
     $self->{nowait}=1;
     $self->{timeout} = $self->{timeout}*2;
+    if ($self->{noretry}) { return; }
     if ($self->{timeout} > 7) { #giveup, really
         $self->{timeout}=$initialtimeout;
         my $rsp={};