summaryrefslogtreecommitdiff
path: root/httemplate/misc/xmlrpc.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/xmlrpc.cgi')
-rw-r--r--httemplate/misc/xmlrpc.cgi16
1 files changed, 16 insertions, 0 deletions
diff --git a/httemplate/misc/xmlrpc.cgi b/httemplate/misc/xmlrpc.cgi
new file mode 100644
index 0000000..14bf9ef
--- /dev/null
+++ b/httemplate/misc/xmlrpc.cgi
@@ -0,0 +1,16 @@
+<% $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>