diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 09:52:05 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 09:52:05 +0800 |
commit | 95fce7fddf6e3d16bc1c07b464976fdfed981366 (patch) | |
tree | dbca63e1272d24d9655ab6b38310590768bf45fd /pttpi/cgi/t/1.board.getBid.pl | |
parent | 0b54f94516ef2b1fcb18233daa9ce488b100ee43 (diff) | |
download | pttbbs-95fce7fddf6e3d16bc1c07b464976fdfed981366.tar pttbbs-95fce7fddf6e3d16bc1c07b464976fdfed981366.tar.gz pttbbs-95fce7fddf6e3d16bc1c07b464976fdfed981366.tar.bz2 pttbbs-95fce7fddf6e3d16bc1c07b464976fdfed981366.tar.lz pttbbs-95fce7fddf6e3d16bc1c07b464976fdfed981366.tar.xz pttbbs-95fce7fddf6e3d16bc1c07b464976fdfed981366.tar.zst pttbbs-95fce7fddf6e3d16bc1c07b464976fdfed981366.zip |
*** empty log message ***
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@869 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'pttpi/cgi/t/1.board.getBid.pl')
-rw-r--r-- | pttpi/cgi/t/1.board.getBid.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/pttpi/cgi/t/1.board.getBid.pl b/pttpi/cgi/t/1.board.getBid.pl new file mode 100644 index 00000000..04be5b89 --- /dev/null +++ b/pttpi/cgi/t/1.board.getBid.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl +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); |