freeside/httemplate/misc xmlrpc.cgi,NONE,1.1

[Kristian Hoffmann]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory pouncequick:/tmp/cvs-serv22333/httemplate/misc

Added Files:
	xmlrpc.cgi 
Log Message:
Initial version of the xmlrpc interface for freeside.


--- NEW FILE: xmlrpc.cgi ---
<%

  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;

%>