diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 09:57:22 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 09:57:22 +0800 |
| commit | 656030670a6868af4e2b00b620711534f188dac9 (patch) | |
| tree | f252f493bed22131a3f0e8a957ed4ece175913e2 /pttpi/cgi/t/board.getBid.pl | |
| parent | a24fc3b4104f6bb1faf5482f4ed2c7517fc19e13 (diff) | |
| download | pttbbs-656030670a6868af4e2b00b620711534f188dac9.tar pttbbs-656030670a6868af4e2b00b620711534f188dac9.tar.gz pttbbs-656030670a6868af4e2b00b620711534f188dac9.tar.bz2 pttbbs-656030670a6868af4e2b00b620711534f188dac9.tar.lz pttbbs-656030670a6868af4e2b00b620711534f188dac9.tar.xz pttbbs-656030670a6868af4e2b00b620711534f188dac9.tar.zst pttbbs-656030670a6868af4e2b00b620711534f188dac9.zip | |
rename 1.board.getBid.pl board.getBid.pl
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@871 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'pttpi/cgi/t/board.getBid.pl')
| -rw-r--r-- | pttpi/cgi/t/board.getBid.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/pttpi/cgi/t/board.getBid.pl b/pttpi/cgi/t/board.getBid.pl new file mode 100644 index 00000000..a628da4e --- /dev/null +++ b/pttpi/cgi/t/board.getBid.pl @@ -0,0 +1,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); |