[freeside-commits] branch FREESIDE_3_BRANCH updated. c3b8267c100ff48f67e625a5842be74a41ec5da4

[Ivan]

The branch, FREESIDE_3_BRANCH has been updated
       via  c3b8267c100ff48f67e625a5842be74a41ec5da4 (commit)
      from  16c302199c7544f6842978d3a97d154e7a9e225f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c3b8267c100ff48f67e625a5842be74a41ec5da4
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Wed Mar 5 16:13:52 2014 -0800

    add back-office xmlrpc api and daemon, RT#27958

diff --git a/FS/FS/XMLRPC_Lite.pm b/FS/FS/XMLRPC_Lite.pm
new file mode 100644
index 0000000..9d3059d
--- /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;
+
+ at 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 0000000..8086a8d
--- /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;

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/XMLRPC_Lite.pm                               |   17 +++++++++++++++++
 ...cd-phonenum_balance.pl => xmlrpc-customer_info} |    8 ++++++--
 2 files changed, 23 insertions(+), 2 deletions(-)
 create mode 100644 FS/FS/XMLRPC_Lite.pm
 copy bin/{xmlrpcd-phonenum_balance.pl => xmlrpc-customer_info} (55%)