From d9649d434ba0955cd079d70e885b9f33f5ad85b5 Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Wed, 2 Mar 2005 21:00:59 +0000
Subject: Initial version of the xmlrpc interface for freeside.

---
 httemplate/misc/xmlrpc.cgi | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 httemplate/misc/xmlrpc.cgi

(limited to 'httemplate/misc/xmlrpc.cgi')

diff --git a/httemplate/misc/xmlrpc.cgi b/httemplate/misc/xmlrpc.cgi
new file mode 100644
index 000000000..53ef8fb80
--- /dev/null
+++ b/httemplate/misc/xmlrpc.cgi
@@ -0,0 +1,17 @@
+<%
+
+  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;
+
+%>
-- 
cgit v1.2.1