7 my( $email, $password ) = @ARGV;
9 my $uri = new URI 'http://localhost:8080/';
11 my $server = new Frontier::Client ( 'url' => $uri );
13 my $login_result = $server->call(
14 'FS.ClientAPI_XMLRPC.login',
16 'password' => $password,
18 die $login_result->{'error'}."\n" if $login_result->{'error'};
20 my $list_result = $server->call(
21 'FS.ClientAPI_XMLRPC.list_contacts',
22 'session_id' => $login_result->{'session_id'},
24 die $list_result->{'error'}."\n" if $list_result->{'error'};
26 print Dumper($list_result);