blob: 576e9a05dc634f9b03b6dbb78e37ea8b2e2842f6 (
plain) (
tree)
|
|
#!/usr/bin/perl
# $Id: 1.board.getBid.pl,v 1.2 2003/05/19 01:52:22 in2 Exp $
use Frontier::Client;
use Data::Dumper;
do 'host.pl';
$brdname = $ARGV[0] || 'SYSOP';
$server = Frontier::Client->new(url => $server_url);
$result = $server->call('board.getBid', $brdname);
print "board.getBid($brdname) from $server_url:\n";
print Dumper($result);
|