diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 10:02:52 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 10:02:52 +0800 |
commit | 42524365455d965c51342414b796f1b397cf7361 (patch) | |
tree | d16fdac3575b39b2bd48b34d791cbd2ce7e497dd | |
parent | 9a0d22610b299b1695bf9f6d7c84f6b7f578610b (diff) | |
download | pttbbs-42524365455d965c51342414b796f1b397cf7361.tar pttbbs-42524365455d965c51342414b796f1b397cf7361.tar.gz pttbbs-42524365455d965c51342414b796f1b397cf7361.tar.bz2 pttbbs-42524365455d965c51342414b796f1b397cf7361.tar.lz pttbbs-42524365455d965c51342414b796f1b397cf7361.tar.xz pttbbs-42524365455d965c51342414b796f1b397cf7361.tar.zst pttbbs-42524365455d965c51342414b796f1b397cf7361.zip |
add class.list.pl
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@874 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rw-r--r-- | pttbbs/pttpi/cgi/t/class.list.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/pttbbs/pttpi/cgi/t/class.list.pl b/pttbbs/pttpi/cgi/t/class.list.pl new file mode 100644 index 00000000..9e10932b --- /dev/null +++ b/pttbbs/pttpi/cgi/t/class.list.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl +# $Id: class.list.pl,v 1.1 2003/05/19 02:02:52 in2 Exp $ +use Frontier::Client; +use Frontier::RPC2; +use MIME::Base64; +use Data::Dumper; +do 'host.pl'; + +$bid = $ARGV[0] || 0; + +$server = Frontier::Client->new(url => $server_url); +$result = $server->call('class.list', $bid); + +print Dumper($result); |