fs_selfservice/perl/xmlrpc-phonenum_balance.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl

use strict;
use Frontier::Client;
use Data::Dumper;

my $phonenum = shift @ARGV;

my $server = new Frontier::Client (
        url => 'http://localhost/selfservice/xmlrpc.cgi',
);

my $result = $server->call('FS.SelfService.XMLRPC.phonenum_balance',
  'phonenum' => $server->string($phonenum), # '3615588197',
);

#print Dumper($result);
die $result->{'error'} if $result->{'error'};

warn Dumper($result);

1;