httemplate/misc/xmlrpc.cgi


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

%
%
%  my $request_xml = $cgi->param('POSTDATA');
%
%  #$r->log_error($request_xml);
%
%  my $fsxmlrpc = new FS::XMLRPC;
%  my ($error, $response_xml) = $fsxmlrpc->serve($request_xml);
%  
%  #$r->log_error($error) if $error;
%
%  http_header('Content-Type' => 'text/xml',
%              'Content-Length' => length($response_xml));
%
%  print $response_xml;
%
%