| Subject: | Tracing unavailable when SOAP::Lite is used as a server |
When SOAP::Lite is used as a server, SOAP::Trace is invoked much more
rarely then when S::L is used as a client. In particular, there are no
hooks to get to the request and response strings. The attached patch
adds the necessary SOAP::Trace::debug calls to
SOAP::Transport::HTTP::Server.
| Subject: | soap_server.patch |
*** C:/Documents and Settings/Peter Shangov/Desktop/HTTP.pm Wed Mar 25 18:31:43 2009
--- C:/strawberry/perl/site/lib/SOAP/Transport/HTTP.pm Wed Mar 25 18:25:37 2009
***************
*** 344,350 ****
sub handle {
my $self = shift->new;
!
if ($self->request->method eq 'POST') {
$self->action($self->request->header('SOAPAction') || undef);
}
--- 344,352 ----
sub handle {
my $self = shift->new;
!
! SOAP::Trace::debug($self->request->content);
!
if ($self->request->method eq 'POST') {
$self->action($self->request->header('SOAPAction') || undef);
}
***************
*** 397,402 ****
--- 399,406 ----
: $content
)
or return;
+
+ SOAP::Trace::debug($response);
$self->make_response($SOAP::Constants::HTTP_ON_SUCCESS_CODE, $response);
}