fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Frontier::Client;
   5 use Data::Dumper;
   6
   7 my $phonenum = shift @ARGV;
   8
   9 my $server = new Frontier::Client (
  10         url => 'http://localhost:8080/selfservice/xmlrpc.cgi',
  11 );
  12
  13 my $result = $server->call('FS.ClientAPI_XMLRPC.phonenum_balance',
  14   'phonenum' => $server->string($phonenum), # '3615588197',
  15 );
  16
  17 #print Dumper($result);
  18 die $result->{'error'} if $result->{'error'};
  19
  20 warn Dumper($result);
  21
  22 1;