summaryrefslogtreecommitdiff
path: root/fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl
diff options
context:
space:
mode:
Diffstat (limited to 'fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl')
-rwxr-xr-xfs_selfservice/perl/xmlrpc_local-phonenum_balance.pl22
1 files changed, 0 insertions, 22 deletions
diff --git a/fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl b/fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl
deleted file mode 100755
index 8cbb5b0f0..000000000
--- a/fs_selfservice/perl/xmlrpc_local-phonenum_balance.pl
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/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;