blob: 9d3059d69c3a8bd1a747a0e8d56452fedfed9616 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
package FS::XMLRPC_Lite;
use XMLRPC::Lite;
use XMLRPC::Transport::HTTP;
#XXX submit patch to SOAP::Lite
package XMLRPC::Transport::HTTP::Server;
@XMLRPC::Transport::HTTP::Server::ISA = qw(SOAP::Transport::HTTP::Server);
sub initialize; *initialize = \&XMLRPC::Server::initialize;
sub make_fault; *make_fault = \&XMLRPC::Transport::HTTP::CGI::make_fault;
sub make_response; *make_response = \&XMLRPC::Transport::HTTP::CGI::make_response;
1;
|