From b473a7be1bf6febac75215b4656de15d6a78ad10 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 5 Mar 2014 19:56:35 -0800 Subject: remove 13 year old legacy XML-RPC interface --- eg/xmlrpc-example.pl | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100755 eg/xmlrpc-example.pl (limited to 'eg/xmlrpc-example.pl') diff --git a/eg/xmlrpc-example.pl b/eg/xmlrpc-example.pl deleted file mode 100755 index 7a2a0a6f0..000000000 --- a/eg/xmlrpc-example.pl +++ /dev/null @@ -1,23 +0,0 @@ -#!/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); -} - -- cgit v1.2.1