X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fxmlrpc.cgi;h=14bf9ef921952593a251692b87e07594852ab9bc;hp=1d0383f2a16b983f38fcc70793e5553992333d7d;hb=2dccc0bab4f744c2fcc21f966f5033de7a687a7d;hpb=5e05724a635a22776f1b973f5d7e77989da4e048

diff --git a/httemplate/misc/xmlrpc.cgi b/httemplate/misc/xmlrpc.cgi
index 1d0383f2a..14bf9ef92 100644
--- a/httemplate/misc/xmlrpc.cgi
+++ b/httemplate/misc/xmlrpc.cgi
@@ -1,18 +1,16 @@
-%
-%
-%  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>