diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-08-25 15:06:19 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-08-25 15:06:19 -0700 |
commit | cbfeb5f6b7490f78361318ce6290bfb442dbfcbe (patch) | |
tree | e6409692bc2376649eeda94344f0a7f578a75428 /bin/xmlrpc-advertising_sources-list.pl | |
parent | 8ffd7de981603a189cd0ea62ca948eaf3f66ca49 (diff) | |
parent | 5b5eb87bf66f1fac003a13dc2db48e8970c5c986 (diff) |
Merge branch 'master' of git.freeside.biz:/home/git/freeside
Diffstat (limited to 'bin/xmlrpc-advertising_sources-list.pl')
-rwxr-xr-x | bin/xmlrpc-advertising_sources-list.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/bin/xmlrpc-advertising_sources-list.pl b/bin/xmlrpc-advertising_sources-list.pl new file mode 100755 index 0000000..317a38b --- /dev/null +++ b/bin/xmlrpc-advertising_sources-list.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; + +my $uri = new URI 'http://localhost:8008/'; + +my $server = new Frontier::Client ( 'url' => $uri ); + +my $result = $server->call( + 'FS.API.list_advertising_sources', + 'secret' => 'MySecretCode', +); + +die $result->{'error'} if $result->{'error'}; + +print Dumper($result); + +print "\nAll Done\n"; + +exit;
\ No newline at end of file |