Matisse Enzer wrote:
[...]sub handler { warn "Port: ", $_[0]->get_server_port; $server->configure(@_); $server->SUPER::handler(@_); }
and got the wrong result.
Hmm, is $_[0] an Apache::RequestRec object? If it's a method handler, should that be $_[1]?
Yeah, the first argument to handler() is an Apache::RequestRec
This code:
sub handler { warn "arg 0 is: ", ref $_[0]; warn "Port is: ", $_[0]->get_server_port; $server->configure(@_); $server->SUPER::handler(@_); }
produces this in error_log when called via port 9000:
arg 0 is: Apache::RequestRec at /usr/lib/perl5/site_perl/5.8.0/Apache/XMLRPC/Lite.pm line 23.
Port is: 80 at /usr/lib/perl5/site_perl/5.8.0/Apache/XMLRPC/Lite.pm line 24.
-- ------------------------------------------ Matisse Enzer Doodlelab Inc. 415-925-5294 ext. 212 (office) 415-225-6703 (mobile)