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 %
  18