pttbbs/pttpi/cgi/t/board.getBid.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl
# $Id$
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);