projects
/
freeside.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fix MIME::Entity usage for perl 5.18+, RT#77890
[freeside.git]
/
httemplate
/
misc
/
xmlrpc.cgi
1
<% $response_xml %>\
2
<%init>
3
4
my $request_xml = $cgi->param('POSTDATA');
5
6
#warn $request_xml;
7
8
my $fsxmlrpc = new FS::XMLRPC;
9
my ($error, $response_xml) = $fsxmlrpc->serve($request_xml);
10
11
#warn $error;
12
13
http_header('Content-Type' => 'text/xml',
14
'Content-Length' => length($response_xml));
15
16
</%init>