fix quotations, RT#21103
[freeside.git] / bin / xmlrpc-customer_status.pl
1 #!/usr/bin/perl
2 #
3 # xmlrpc-customer_status.pl username password custnum
4
5 use strict;
6 use Frontier::Client;
7 use Data::Dumper;
8
9 my( $u, $p, $custnum ) = ( @ARGV );
10 my $userinfo = $u.':'.$p;
11
12 my $uri = new URI 'http://localhost/freeside/misc/xmlrpc.cgi';
13 $uri->userinfo( $userinfo );
14
15 my $server = new Frontier::Client ( 'url' => $uri );
16
17 my $result = $server->call('Maestro.customer_status', $custnum );
18
19 #die $result->{'error'} if $result->{'error'};
20
21 print Dumper($result);
22
23 1;