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