diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-03-05 16:13:52 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-03-05 16:13:52 -0800 |
commit | c3b8267c100ff48f67e625a5842be74a41ec5da4 (patch) | |
tree | dfa6d5a3265e019e993946324d43d4e50ab6f472 | |
parent | 16c302199c7544f6842978d3a97d154e7a9e225f (diff) |
add back-office xmlrpc api and daemon, RT#27958
-rw-r--r-- | FS/FS/XMLRPC_Lite.pm | 17 | ||||
-rwxr-xr-x | bin/xmlrpc-customer_info | 21 |
2 files changed, 38 insertions, 0 deletions
diff --git a/FS/FS/XMLRPC_Lite.pm b/FS/FS/XMLRPC_Lite.pm new file mode 100644 index 000000000..9d3059d69 --- /dev/null +++ b/FS/FS/XMLRPC_Lite.pm @@ -0,0 +1,17 @@ +package FS::XMLRPC_Lite; + +use XMLRPC::Lite; + +use XMLRPC::Transport::HTTP; + +#XXX submit patch to SOAP::Lite + +package XMLRPC::Transport::HTTP::Server; + +@XMLRPC::Transport::HTTP::Server::ISA = qw(SOAP::Transport::HTTP::Server); + +sub initialize; *initialize = \&XMLRPC::Server::initialize; +sub make_fault; *make_fault = \&XMLRPC::Transport::HTTP::CGI::make_fault; +sub make_response; *make_response = \&XMLRPC::Transport::HTTP::CGI::make_response; + +1; diff --git a/bin/xmlrpc-customer_info b/bin/xmlrpc-customer_info new file mode 100755 index 000000000..8086a8dc4 --- /dev/null +++ b/bin/xmlrpc-customer_info @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; + +my $uri = new URI 'http://localhost:8008/'; + +my $server = new Frontier::Client ( 'url' => $uri ); + +my $result = $server->call( + 'FS.API.customer_info', + 'secret' => 'sharingiscaring', + 'custnum' => 181318, +); + +#die $result->{'error'} if $result->{'error'}; + +print Dumper($result); + +1; |