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