8 my $server = new Frontier::Client (
9 url => 'http://localhost:8080/selfservice/xmlrpc.cgi',
12 my $login = $server->call('FS.ClientAPI_XMLRPC.login', {
14 'domain' => 'example1.com',
15 'password' => 'RUPUQC8H',
18 die $login->{'error'} if $login->{'error'};
20 my $session_id = $login->{'session_id'};
22 my $faker = new Data::Faker;
24 my $result = $server->call('FS.ClientAPI_XMLRPC.order_pkg', {
25 'session_id' => $session_id,
27 'username' => $faker->username,
28 'password' => '123456',
31 #print Dumper($result);
32 die $result->{'error'} if $result->{'error'};