4 # perl xmlrpc-customer_packages-list.pl <custnum>
11 my $uri = new URI 'http://localhost:8008/';
13 my $server = new Frontier::Client ( 'url' => $uri );
15 my $result = $server->call(
16 'FS.API.list_customer_packages',
17 'secret' => 'MySecretCode',
18 'custnum' => $ARGV[0],
21 die $result->{'error'} if $result->{'error'};
23 my @packages = @{$result->{packages}};
25 print Dumper(@packages);
27 print "\n total: " . scalar @packages;