[freeside-commits] freeside/fs_selfservice/perl xmlrpc_local-phonenum_balance.pl, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/perl
In directory wavetail.420.am:/tmp/cvs-serv4556/fs_selfservice/perl

Added Files:
	xmlrpc_local-phonenum_balance.pl 
Log Message:
start of a local XML-RPC server for ncic, RT#7780

--- NEW FILE: xmlrpc_local-phonenum_balance.pl ---
#!/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;