httemplate/misc/xmlrpc.cgi

   1 <% $response_xml %>\
   2 <%init>
   3
   4 my $request_xml = $cgi->param('POSTDATA');
   5
   6 #warn $request_xml;
   7
   8 my $fsxmlrpc = new FS::XMLRPC;
   9 my ($error, $response_xml) = $fsxmlrpc->serve($request_xml);
  10
  11 #warn $error;
  12
  13 http_header('Content-Type' => 'text/xml',
  14             'Content-Length' => length($response_xml));
  15
  16 </%init>