fs_selfservice/perl/xmlrpc_local-order_pkg.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Frontier::Client;
   5 use Data::Dumper;
   6 use Data::Faker;
   7
   8 my $server = new Frontier::Client (
   9         url => 'http://localhost:8080/selfservice/xmlrpc.cgi',
  10 );
  11
  12 my $login = $server->call('FS.ClientAPI_XMLRPC.login', {
  13   'username' => 'yokn',
  14   'domain'   => 'example1.com',
  15   'password' => 'RUPUQC8H',
  16 } );
  17
  18 die $login->{'error'} if $login->{'error'};
  19
  20 my $session_id = $login->{'session_id'};
  21
  22 my $faker = new Data::Faker;
  23
  24 my $result = $server->call('FS.ClientAPI_XMLRPC.order_pkg', {
  25   'session_id' => $session_id,
  26   'pkgpart'    => 3,
  27   'username'   => $faker->username,
  28   'password'   => '123456',
  29 });
  30
  31 #print Dumper($result);
  32 die $result->{'error'} if $result->{'error'};
  33
  34 warn Dumper($result);
  35
  36 1;