diff options
author | Christopher Burger <burgerc@freeside.biz> | 2017-11-15 14:04:22 -0500 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2017-11-29 11:00:22 -0500 |
commit | bfb12f9c65c192993a7fb82e00bfbe10da149da7 (patch) | |
tree | 74077eb8cb220d809eab16b9fb46d23e6f4be65d /bin/xmlrpc-customer_package-status.pl | |
parent | 09898d8b692668f6d668624de1e112595a32ec6d (diff) |
RT# 29295 - added package_list and package_status to backend API. Also added two new test files in bin to test new apis
Diffstat (limited to 'bin/xmlrpc-customer_package-status.pl')
-rw-r--r-- | bin/xmlrpc-customer_package-status.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/bin/xmlrpc-customer_package-status.pl b/bin/xmlrpc-customer_package-status.pl new file mode 100644 index 000000000..589c42af4 --- /dev/null +++ b/bin/xmlrpc-customer_package-status.pl @@ -0,0 +1,27 @@ +#!/usr/bin/perl + +## example +# perl xmlrpc-customer_package-status.pl <pkgnum> +## + +use strict; +use Frontier::Client; +use Data::Dumper; + +my $uri = new URI 'http://localhost:8008/'; + +my $server = new Frontier::Client ( 'url' => $uri ); + +my $result = $server->call( + 'FS.API.package_status', + 'secret' => 'MySecretCode', + 'pkgnum' => $ARGV[0], +); + +die $result->{'error'} if $result->{'error'}; + +print $result->{status}; + +print "\nAll Done\n"; + +exit;
\ No newline at end of file |