maestro cust status as reqeusted, RT#8712

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

diff --git a/httemplate/misc/xmlrpc.cgi b/httemplate/misc/xmlrpc.cgi
index 1d0383f..14bf9ef 100644 (file)
--- 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>