bin/xmlrpc-customer_packages-list.pl

   1 #!/usr/bin/perl
   2
   3 ## example
   4 # perl xmlrpc-customer_packages-list.pl <custnum>
   5 ##
   6
   7 use strict;
   8 use Frontier::Client;
   9 use Data::Dumper;
  10
  11 my $uri = new URI 'http://localhost:8008/';
  12
  13 my $server = new Frontier::Client ( 'url' => $uri );
  14
  15 my $result = $server->call(
  16   'FS.API.list_customer_packages',
  17     'secret'  => 'MySecretCode',
  18     'custnum' => $ARGV[0],
  19 );
  20
  21 die $result->{'error'} if $result->{'error'};
  22
  23 my @packages = @{$result->{packages}};
  24
  25 print Dumper(@packages);
  26
  27 print "\n total: " . scalar @packages;
  28
  29 print "\nAll Done\n";
  30
  31 exit;