diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2004-03-15 15:30:22 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2004-03-15 15:30:22 +0800 |
commit | 296b7e0fc429ac208ba2d0395785bbebae703d6d (patch) | |
tree | 363ac4b21246d1b3854668aafe6f056789dbc9fa /not-maintained/pttpi/cgi/t | |
parent | f524f23b8d79849e99390679bcb194857ec1368f (diff) | |
download | pttbbs-296b7e0fc429ac208ba2d0395785bbebae703d6d.tar pttbbs-296b7e0fc429ac208ba2d0395785bbebae703d6d.tar.gz pttbbs-296b7e0fc429ac208ba2d0395785bbebae703d6d.tar.bz2 pttbbs-296b7e0fc429ac208ba2d0395785bbebae703d6d.tar.lz pttbbs-296b7e0fc429ac208ba2d0395785bbebae703d6d.tar.xz pttbbs-296b7e0fc429ac208ba2d0395785bbebae703d6d.tar.zst pttbbs-296b7e0fc429ac208ba2d0395785bbebae703d6d.zip |
no longer maintained
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@1595 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'not-maintained/pttpi/cgi/t')
-rw-r--r-- | not-maintained/pttpi/cgi/t/.cvsignore | 1 | ||||
-rw-r--r-- | not-maintained/pttpi/cgi/t/article.list.pl | 16 | ||||
-rw-r--r-- | not-maintained/pttpi/cgi/t/article.readfn.pl | 15 | ||||
-rw-r--r-- | not-maintained/pttpi/cgi/t/board.getBid.pl | 12 | ||||
-rw-r--r-- | not-maintained/pttpi/cgi/t/board.getBrdInfo.pl | 15 | ||||
-rw-r--r-- | not-maintained/pttpi/cgi/t/board.getNarticle.pl | 14 | ||||
-rw-r--r-- | not-maintained/pttpi/cgi/t/class.list.pl | 14 | ||||
-rw-r--r-- | not-maintained/pttpi/cgi/t/host.pl.sample | 2 |
8 files changed, 89 insertions, 0 deletions
diff --git a/not-maintained/pttpi/cgi/t/.cvsignore b/not-maintained/pttpi/cgi/t/.cvsignore new file mode 100644 index 00000000..9f20a79c --- /dev/null +++ b/not-maintained/pttpi/cgi/t/.cvsignore @@ -0,0 +1 @@ +host.pl diff --git a/not-maintained/pttpi/cgi/t/article.list.pl b/not-maintained/pttpi/cgi/t/article.list.pl new file mode 100644 index 00000000..27370aa1 --- /dev/null +++ b/not-maintained/pttpi/cgi/t/article.list.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl +# $Id: article.list.pl,v 1.1 2003/05/19 02:04:14 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('article.list', + $bid, # bid + 0); # from # article + +print Dumper($result); diff --git a/not-maintained/pttpi/cgi/t/article.readfn.pl b/not-maintained/pttpi/cgi/t/article.readfn.pl new file mode 100644 index 00000000..e2d0bc27 --- /dev/null +++ b/not-maintained/pttpi/cgi/t/article.readfn.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl +# $Id: article.readfn.pl,v 1.1 2003/05/19 02:06:34 in2 Exp $ +use Frontier::Client; +use Frontier::RPC2; +use MIME::Base64; +use Data::Dumper; +do 'host.pl'; + +$bid = $ARGV[0] || 0; +$fn = $ARGV[1] || 'M.1047292518.A.48E'; + +$server = Frontier::Client->new(url => $server_url); +$result = $server->call('article.readfn', $bid, $fn); + +print decode_base64($result->{content}->value()); diff --git a/not-maintained/pttpi/cgi/t/board.getBid.pl b/not-maintained/pttpi/cgi/t/board.getBid.pl new file mode 100644 index 00000000..a628da4e --- /dev/null +++ b/not-maintained/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); diff --git a/not-maintained/pttpi/cgi/t/board.getBrdInfo.pl b/not-maintained/pttpi/cgi/t/board.getBrdInfo.pl new file mode 100644 index 00000000..7870e386 --- /dev/null +++ b/not-maintained/pttpi/cgi/t/board.getBrdInfo.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl +# $Id: board.getBrdInfo.pl,v 1.1 2003/05/19 01:58:27 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.getBrdInfo', $bid); + +print Dumper($result); +print decode_base64($result->{title}->value()); diff --git a/not-maintained/pttpi/cgi/t/board.getNarticle.pl b/not-maintained/pttpi/cgi/t/board.getNarticle.pl new file mode 100644 index 00000000..a5fb56a1 --- /dev/null +++ b/not-maintained/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); diff --git a/not-maintained/pttpi/cgi/t/class.list.pl b/not-maintained/pttpi/cgi/t/class.list.pl new file mode 100644 index 00000000..9e10932b --- /dev/null +++ b/not-maintained/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); diff --git a/not-maintained/pttpi/cgi/t/host.pl.sample b/not-maintained/pttpi/cgi/t/host.pl.sample new file mode 100644 index 00000000..72669230 --- /dev/null +++ b/not-maintained/pttpi/cgi/t/host.pl.sample @@ -0,0 +1,2 @@ +#!/usr/bin/perl +$server_url = 'http://host_to_pttpi/path_to_pttpi/pttpi.cgi' |