From 290a98b4cabf46b266dcc26dd700016117b75fee Mon Sep 17 00:00:00 2001
From: Nigel Kukard <nkukard@lbsd.net>
Date: Fri, 24 Jul 2009 16:44:51 +0000
Subject: [PATCH] * Better header support
---
SOAP/Transport/HTTPng.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/SOAP/Transport/HTTPng.pm b/SOAP/Transport/HTTPng.pm
index c3e027d..96b98b2 100644
--- a/SOAP/Transport/HTTPng.pm
+++ b/SOAP/Transport/HTTPng.pm
@@ -449,11 +449,16 @@ sub send_response
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) {
--
GitLab