-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
2008-04-21 15:28:28 +00:00 · 2008-04-21 15:28:28 +00:00 · b622d3ee7c
commit b622d3ee7c
parent c6edb78635
1 changed files with 1 additions and 0 deletions
--- 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;