diff options
author | ivan <ivan> | 2010-09-20 21:13:16 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-09-20 21:13:16 +0000 |
commit | 645f747ad9e9277e6095a5f1d62bf864df56c90f (patch) | |
tree | b11357b2969ae4878f6b69d0983bfb7f1a29fb68 /bin/xmlrpc-customer_status.pl | |
parent | da122d33411802d26d34033a1ca68cae29125259 (diff) |
Maestro.order_pkg API
Diffstat (limited to 'bin/xmlrpc-customer_status.pl')
-rwxr-xr-x | bin/xmlrpc-customer_status.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/bin/xmlrpc-customer_status.pl b/bin/xmlrpc-customer_status.pl new file mode 100755 index 000000000..3840b2089 --- /dev/null +++ b/bin/xmlrpc-customer_status.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl +# +# xmlrpc-customer_status.pl username password custnum + +use strict; +use Frontier::Client; +use Data::Dumper; + +my( $u, $p, $custnum ) = ( @ARGV ); +my $userinfo = $u.':'.$p; + +my $uri = new URI 'http://localhost/freeside/misc/xmlrpc.cgi'; +$uri->userinfo( $userinfo ); + +my $server = new Frontier::Client ( 'url' => $uri ); + +my $result = $server->call('Maestro.customer_status', $custnum ); + +#die $result->{'error'} if $result->{'error'}; + +print Dumper($result); + +1; |