FS/FS/XMLRPC_Lite.pm

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