summaryrefslogblamecommitdiffstats
path: root/pttpi/cgi/t/board.getBid.pl
blob: a628da4edfa7cdb660fd9fc2cce8cf46ac3b2e29 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
               
                                                          









                                                    
#!/usr/bin/perl
# $Id: board.getBid.pl,v 1.1 2003/05/19 01:57: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);