httemplate/misc/xmlrpc.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

<% $response_xml %>\
<%init>

my $request_xml = $cgi->param('POSTDATA');

#warn $request_xml;

my $fsxmlrpc = new FS::XMLRPC;
my ($error, $response_xml) = $fsxmlrpc->serve($request_xml);

#warn $error;

http_header('Content-Type' => 'text/xml',
            'Content-Length' => length($response_xml));

</%init>