diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 10:01:15 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 10:01:15 +0800 |
| commit | 5b62fe7940c7d0aa9aab787a71c875a64f71c1ed (patch) | |
| tree | 95c1e78f84c5d9a4eb3a827b6340e9751c738e0d /pttpi | |
| parent | 3fcf1a4b3f9bc01239ee4a192a3e7b0600301fab (diff) | |
| download | pttbbs-5b62fe7940c7d0aa9aab787a71c875a64f71c1ed.tar pttbbs-5b62fe7940c7d0aa9aab787a71c875a64f71c1ed.tar.gz pttbbs-5b62fe7940c7d0aa9aab787a71c875a64f71c1ed.tar.bz2 pttbbs-5b62fe7940c7d0aa9aab787a71c875a64f71c1ed.tar.lz pttbbs-5b62fe7940c7d0aa9aab787a71c875a64f71c1ed.tar.xz pttbbs-5b62fe7940c7d0aa9aab787a71c875a64f71c1ed.tar.zst pttbbs-5b62fe7940c7d0aa9aab787a71c875a64f71c1ed.zip | |
add board.getNarticle.pl
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@873 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'pttpi')
| -rw-r--r-- | pttpi/cgi/t/board.getNarticle.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/pttpi/cgi/t/board.getNarticle.pl b/pttpi/cgi/t/board.getNarticle.pl new file mode 100644 index 00000000..a5fb56a1 --- /dev/null +++ b/pttpi/cgi/t/board.getNarticle.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl +# $Id: board.getNarticle.pl,v 1.1 2003/05/19 02:01:15 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('board.getNarticle', $bid); + +print Dumper($result); |