eg/xmlrpc-example.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Frontier::Client;
   5 use Data::Dumper;
   6
   7 my $server = new Frontier::Client (
   8         url => 'http://user:pass@freesidehost/misc/xmlrpc.cgi',
   9 );
  10
  11 #my $method = 'cust_main.smart_search';
  12 #my @args = (search => '1');
  13
  14 my $method = 'Record.qsearch';
  15 my @args = (cust_main => { });
  16
  17 my $result = $server->call($method, @args);
  18
  19 if (ref($result) eq 'ARRAY') {
  20   print "Result:\n";
  21   print Dumper(@$result);
  22 }
  23