[wiaflos-devel] awit-perl-toolkit external COMMIT - r7 - trunk/SOAP/Transport

[svn at linuxrulz.org]

Author: nkukard
Date: 2009-07-24 16:44:51 +0000 (Fri, 24 Jul 2009)
New Revision: 7

Modified:
   trunk/SOAP/Transport/HTTPng.pm
Log:
* Better header support


Modified: trunk/SOAP/Transport/HTTPng.pm
===================================================================
--- trunk/SOAP/Transport/HTTPng.pm	2009-07-15 08:01:02 UTC (rev 6)
+++ trunk/SOAP/Transport/HTTPng.pm	2009-07-24 16:44:51 UTC (rev 7)
@@ -449,11 +449,16 @@
 	if (!ref $res) {
 		$res ||= RC_OK;
 		$res = HTTP::Response->new($res, @_);
+	# Make sure anything we have, has no soapserver header
+	} else {
+		$res->remove_header('soapserver');
 	}
+
 	# Set SoapServer header
 	if ($self->{'daemon'}->{'_product_tokens'}) {
-		$res->headers->header('SoapServer',$self->{'daemon'}->{'_product_tokens'});
+		$res->headers->header('Server',$self->{'daemon'}->{'_product_tokens'});
 	}
+
 	my $content = $res->content;
 	my $chunked;
 	unless ($self->antique_client) {