From bebf2d2f32062ee9be971d861bac7904204e2951 Mon Sep 17 00:00:00 2001 From: xq2005 Date: Wed, 8 Feb 2012 05:55:13 +0000 Subject: [PATCH] restapi print header format error git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11509 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- xCAT-server/xCAT-wsapi/xcatws.cgi | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/xCAT-server/xCAT-wsapi/xcatws.cgi b/xCAT-server/xCAT-wsapi/xcatws.cgi index cfd876f39..a05e2f699 100755 --- a/xCAT-server/xCAT-wsapi/xcatws.cgi +++ b/xCAT-server/xCAT-wsapi/xcatws.cgi @@ -24,7 +24,7 @@ my $queryString = $ENV{'QUERY_STRING'}; my @path = split(/\//, $pathInfo); shift(@path); my $resource = $path[0]; -print $q->header('text/html'); +#print $q->header('text/html'); my $request = {clienttype =>'ws'}; #error status codes @@ -102,6 +102,7 @@ my %resources = (groups => \&groupsHandler, #if no resource was specified if($pathInfo =~ /^\/$/ || $pathInfo =~ /^$/){ + print $q->header('text/html'); print $q->p("This is the root page for the xCAT Rest Web Service. Available resources are:"); foreach (sort keys %resources){ print $q->p($_); @@ -1466,6 +1467,7 @@ sub wrapHtml { $baseUri .= "/"; } + print $q->header('text/html'); #print $q->p("dumping in wrapHtml ".Dumper(@response)); foreach my $data (@response){ if(@$data[0]->{error}){