From 1b755d9d4862fe848c031abe9967aca0b086e6b0 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 16 Apr 2012 18:39:07 +0000
Subject: [PATCH] More updates for XML handling

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

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index 6d5200ac7..cde4c945e 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -929,6 +929,11 @@ sub build_response {
 ##########################################
 sub handle_response {
   my $rsp = shift;
+  if ($ENV{'XCATSHOWXML'}) {
+    my  $xmlrec=XMLout($rsp,RootName=>'xcatresponse',NoAttr=>1,KeyAttr=>[]);
+    print "$xmlrec\n";
+   return;
+  }
 #print "in handle_response\n";
   # Handle errors
   if ($rsp->{errorcode}) {