4 # perl xmlrpc-customer_package-status.pl <pkgnum>
11 my $uri = new URI 'http://localhost:8008/';
13 my $server = new Frontier::Client ( 'url' => $uri );
15 my $result = $server->call(
16 'FS.API.package_status',
17 'secret' => 'MySecretCode',
21 die $result->{'error'} if $result->{'error'};
23 print $result->{status};