3 # xmlrpc-customer_status.pl username password custnum
9 my( $u, $p, $custnum ) = ( @ARGV );
10 my $userinfo = $u.':'.$p;
12 my $uri = new URI 'http://localhost/freeside/misc/xmlrpc.cgi';
13 $uri->userinfo( $userinfo );
15 my $server = new Frontier::Client ( 'url' => $uri );
17 my $result = $server->call('Maestro.customer_status', $custnum );
19 #die $result->{'error'} if $result->{'error'};
21 print Dumper($result);