7 my( $email, $password, $new_email ) = @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 $passwd_result = $server->call(
21 'FS.ClientAPI_XMLRPC.edit_contact',
22 'session_id' => $login_result->{'session_id'},
23 'emailaddress' => $new_email,
25 die $passwd_result->{'error'}."\n" if $passwd_result->{'error'};
27 warn "Email changed.\n";