bin/xmlrpc-customer_package-status.pl

   1 #!/usr/bin/perl
   2
   3 ## example
   4 # perl xmlrpc-customer_package-status.pl <pkgnum>
   5 ##
   6
   7 use strict;
   8 use Frontier::Client;
   9 use Data::Dumper;
  10
  11 my $uri = new URI 'http://localhost:8008/';
  12
  13 my $server = new Frontier::Client ( 'url' => $uri );
  14
  15 my $result = $server->call(
  16   'FS.API.package_status',
  17     'secret'  => 'MySecretCode',
  18     'pkgnum' => $ARGV[0],
  19 );
  20
  21 die $result->{'error'} if $result->{'error'};
  22
  23 print $result->{status};
  24
  25 print "\nAll Done\n";
  26
  27 exit;