diff options
Diffstat (limited to 'eg/xmlrpc-example.pl')
-rwxr-xr-x | eg/xmlrpc-example.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/eg/xmlrpc-example.pl b/eg/xmlrpc-example.pl new file mode 100755 index 000000000..7a2a0a6f0 --- /dev/null +++ b/eg/xmlrpc-example.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl + +use strict; +use Frontier::Client; +use Data::Dumper; + +my $server = new Frontier::Client ( + url => 'http://user:pass@freesidehost/misc/xmlrpc.cgi', +); + +#my $method = 'cust_main.smart_search'; +#my @args = (search => '1'); + +my $method = 'Record.qsearch'; +my @args = (cust_main => { }); + +my $result = $server->call($method, @args); + +if (ref($result) eq 'ARRAY') { + print "Result:\n"; + print Dumper(@$result); +} + |