diff options
author | Jonathan Prykop <jonathan@freeside.biz> | 2016-08-31 21:49:04 -0500 |
---|---|---|
committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-08-31 22:05:20 -0500 |
commit | c02f0c21ed0fc1d3982135a909c380fa7bb634d4 (patch) | |
tree | 36aba8bbf2191f71dc5b11ee9614e108a886851b /bin/xmlrpc-customer_recurring | |
parent | 979fd02b54579a289e62fcc93ef24490425f815a (diff) |
71890: SelfService API: Return monthly recurring fee
Diffstat (limited to 'bin/xmlrpc-customer_recurring')
-rwxr-xr-x | bin/xmlrpc-customer_recurring | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/bin/xmlrpc-customer_recurring b/bin/xmlrpc-customer_recurring new file mode 100755 index 0000000..18dd3e8 --- /dev/null +++ b/bin/xmlrpc-customer_recurring @@ -0,0 +1,30 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; + +my( $email, $password ) = @ARGV; +die "Usage: xmlrpc-customer_recurring email password\n" + unless $email && length($password); + +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.customer_recurring', + 'session_id' => $login_result->{'session_id'}, +); +die $list_result->{'error'}."\n" if $list_result->{'error'}; + +print Dumper($list_result); + +1; |