diff options
Diffstat (limited to 'fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl')
-rwxr-xr-x | fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl b/fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl new file mode 100755 index 0000000..8cbb5b0 --- /dev/null +++ b/fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; + +my $phonenum = shift @ARGV; + +my $server = new Frontier::Client ( + url => 'http://localhost:8080/selfservice/xmlrpc.cgi', +); + +my $result = $server->call('FS.ClientAPI_XMLRPC.phonenum_balance', + 'phonenum' => $server->string($phonenum), # '3615588197', +); + +#print Dumper($result); +die $result->{'error'} if $result->{'error'}; + +warn Dumper($result); + +1; |