bin/xmlrpc-list_payby

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Frontier::Client;
   5 use Data::Dumper;
   6
   7 my( $email, $password ) = @ARGV;
   8 die "Usage: xmlrpc-list_payby email password\n"
   9   unless $email && length($password);
  10
  11 my $uri = new URI 'http://localhost:8080/';
  12
  13 my $server = new Frontier::Client ( 'url' => $uri );
  14
  15 my $login_result = $server->call(
  16   'FS.ClientAPI_XMLRPC.login',
  17     'email'    => $email,
  18     'password' => $password,
  19 );
  20 die $login_result->{'error'}."\n" if $login_result->{'error'};
  21
  22 my $list_result = $server->call(
  23   'FS.ClientAPI_XMLRPC.list_payby',
  24     'session_id'   => $login_result->{'session_id'},
  25 );
  26 die $list_result->{'error'}."\n" if $list_result->{'error'};
  27
  28 print Dumper($list_result);
  29
  30 1;