httemplate/misc/xmlrpc.cgi

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