From b622d3ee7c2cbc2cf06a3cc48d33f44998378c47 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 21 Apr 2008 15:28:28 +0000
Subject: [PATCH] -Client side part of fix for bug 1822784

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1133 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/Client.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-xCAT-2.0/xCAT/Client.pm b/perl-xCAT-2.0/xCAT/Client.pm
index 62c72c64e..f7b5591eb 100644
--- a/perl-xCAT-2.0/xCAT/Client.pm
+++ b/perl-xCAT-2.0/xCAT/Client.pm
@@ -138,6 +138,7 @@ sub submit_request {
      }
   }
   my $msg=XMLout($request,RootName=>'xcatrequest',NoAttr=>1,KeyAttr=>[]);
+  $SIG{TERM} =  $SIG{INT} = sub { print $client XMLout({abortcommand=>1},RootName=>'xcatrequest',NoAttr=>1,KeyAttr=>[]); exit 0; };
   print $client $msg;
   my $response;
   my $rsp;