/usr/share/doc/libfrontier-rpc-perl/examples/states-client.pl is in libfrontier-rpc-perl 0.07b4-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | #
# Copyright (C) 1999 Ken MacLeod
# See the file COPYING for distribution terms.
#
# $Id: states-client.pl,v 1.1 1999/01/19 19:14:41 kmacleod Exp $
#
require 'dumpvar.pl'; # used to dump results
use Frontier::Client;
$url = 'http://betty.userland.com/RPC2';
# this client will accept a URL on the command line if it's given
if ($#ARGV > -1) {
$url = $ARGV[0];
}
$server = Frontier::Client->new( url => $url );
printf "Calling examples.getStateName\n";
$result = $server->call('examples.getStateName', 41);
dumpvar ('main', 'result');
printf "Calling examples.getStateList\n";
$result = $server->call('examples.getStateList',
[12, 28, 33, 39, 46]);
dumpvar ('main', 'result');
printf "Calling examples.getStateStruct\n";
$result = $server->call('examples.getStateStruct',
{ state1 => 18, state2 => 27, state3 => 48 });
dumpvar ('main', 'result');
|