backoffice API: add location_info, RT#22830

[freeside.git] / httemplate / misc / xmlrpc.cgi

diff --git a/httemplate/misc/xmlrpc.cgi b/httemplate/misc/xmlrpc.cgi
index 53ef8fb..14bf9ef 100644 (file)
--- a/httemplate/misc/xmlrpc.cgi
+++ b/httemplate/misc/xmlrpc.cgi
@@ -1,17 +1,16 @@
-<%
+<% $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>