fix browsing of unnamed discounds
[freeside.git] / 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