bin/xmlrpc-list_contacts

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