diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-07-21 19:16:20 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-07-21 19:16:20 -0700 |
commit | a634ad8132ac08e2ce1f4c43019bfb104a8456c1 (patch) | |
tree | f2d1b8151c6c851c718c4593772ba486db3d62cd /bin | |
parent | dba9cc11f7ad2337506e40ed2aa6bc9e890cc977 (diff) |
self-service API list_contacts doc, RT#37372
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/xmlrpc-list_contacts | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/bin/xmlrpc-list_contacts b/bin/xmlrpc-list_contacts new file mode 100755 index 0000000..ffe2a31 --- /dev/null +++ b/bin/xmlrpc-list_contacts @@ -0,0 +1,28 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; + +my( $email, $password ) = @ARGV; + +my $uri = new URI 'http://localhost:8080/'; + +my $server = new Frontier::Client ( 'url' => $uri ); + +my $login_result = $server->call( + 'FS.ClientAPI_XMLRPC.login', + 'email' => $email, + 'password' => $password, +); +die $login_result->{'error'}."\n" if $login_result->{'error'}; + +my $list_result = $server->call( + 'FS.ClientAPI_XMLRPC.list_contacts', + 'session_id' => $login_result->{'session_id'}, +); +die $list_result->{'error'}."\n" if $list_result->{'error'}; + +print Dumper($list_result); + +1; |