Skip to content
Snippets Groups Projects
Commit 290a98b4 authored by Nigel Kukard's avatar Nigel Kukard
Browse files

* Better header support

parent 042a23a5
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
SOAP/Transport/HTTPng.pm
+ 6
− 1
View file @ 290a98b4
...@@ -449,11 +449,16 @@ sub send_response ...@@ -449,11 +449,16 @@ sub send_response
if (!ref $res) { if (!ref $res) {
$res ||= RC_OK; $res ||= RC_OK;
$res = HTTP::Response->new($res, @_); $res = HTTP::Response->new($res, @_);
# Make sure anything we have, has no soapserver header
} else {
$res->remove_header('soapserver');
} }
# Set SoapServer header # Set SoapServer header
if ($self->{'daemon'}->{'_product_tokens'}) { 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 $content = $res->content;
my $chunked; my $chunked;
unless ($self->antique_client) { unless ($self->antique_client) {
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment