Hi All,
I'm having a weird problem using SOAP::Lite in one of my mod_perl
modules.
A snippet of my code is:
============================================================================
sub _dispatch {
my $self = shift;
my $proxy = "http://our.stats.server.com.au/soap/script.cgi";;
my $soap = SOAP::Lite->uri('NetChantStats')->proxy($proxy)->on_debug(sub{warn @_});
### ************************************************
my $result = $soap->getDetails("chris");
### ************************************************
if (! $result->fault) {
my $result_str = $result->result();
my $result_ref = eval $result_str;
#
#
#
if (! ref($result_ref)) { return $self->setError("Dispatch Error: $result_str"); }
else { return $result_ref; }
}
else {
my $error = join (', ', $result->faultcode, $result->faultstring);
return $self->setError($error);
}
}
============================================================================
The above code works perfectly on:
* On dev server in a standalone script
* On our dev server under: Apache/1.3.27 (Unix) mod_ssl/2.8.12 OpenSSL/0.9.6c
DAV/1.0.3 mod_perl/1.27
* Our live server as a standalong script
The code does not work on our live server under:
* Live Server: Apache/1.3.28 (Unix) mod_ssl/2.8.15 OpenSSL/0.9.6c DAV/1.0.3
mod_perl/1.28
===========================================================================
The code is acting "weird" on the live server on the line (only under mod_perl):
my $result = $soap->getDetails("chris");
If i "return" just before the above line, the return happens and i get a document
produced, but the line above just seems to make the server "disappear".
What i mean by "disappear" is that there is nothing in the access log however, the
error log
does contain the debugging information from the SOAP::Lite module (as i have the
on_debug method
printing stuff).
The server definitely does not "die" and produce a 500 server error, it literally just
disappears, almost as if a kill -9 was given to the relevant httpd thread as there is
nothing at all written to the access log...!!!
Has anyone come across a situation like the above? Any hints on how i can debug the
above would also
be greatly appreciated...
thanks,
simran.
--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
