1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
<% 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; %>