diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 10:06:34 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-19 10:06:34 +0800 |
| commit | fbd1043bb2d6df628397eb805b68cd4aec394d2d (patch) | |
| tree | 45ee1c84f4c7f70c56c6a840332b573436a6c49c | |
| parent | 2890899f5bce7fc5347873aa68194d78500f21d4 (diff) | |
| download | pttbbs-fbd1043bb2d6df628397eb805b68cd4aec394d2d.tar pttbbs-fbd1043bb2d6df628397eb805b68cd4aec394d2d.tar.gz pttbbs-fbd1043bb2d6df628397eb805b68cd4aec394d2d.tar.bz2 pttbbs-fbd1043bb2d6df628397eb805b68cd4aec394d2d.tar.lz pttbbs-fbd1043bb2d6df628397eb805b68cd4aec394d2d.tar.xz pttbbs-fbd1043bb2d6df628397eb805b68cd4aec394d2d.tar.zst pttbbs-fbd1043bb2d6df628397eb805b68cd4aec394d2d.zip | |
add article.readfn.pl
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@876 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | pttpi/cgi/t/article.readfn.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/pttpi/cgi/t/article.readfn.pl b/pttpi/cgi/t/article.readfn.pl new file mode 100644 index 00000000..e2d0bc27 --- /dev/null +++ b/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()); |