From 3b16ce18fecf57ebd5f16d5198d708502aac6c88 Mon Sep 17 00:00:00 2001 From: in2 Date: Mon, 19 May 2003 01:58:27 +0000 Subject: rename 2.getBrdInfo.pl board.getBrdInfo.pl git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@872 63ad8ddf-47c3-0310-b6dd-a9e9d9715204 --- pttbbs/pttpi/cgi/t/2.getBrdInfo.pl | 15 --------------- pttbbs/pttpi/cgi/t/board.getBrdInfo.pl | 15 +++++++++++++++ 2 files changed, 15 insertions(+), 15 deletions(-) delete mode 100644 pttbbs/pttpi/cgi/t/2.getBrdInfo.pl create mode 100644 pttbbs/pttpi/cgi/t/board.getBrdInfo.pl diff --git a/pttbbs/pttpi/cgi/t/2.getBrdInfo.pl b/pttbbs/pttpi/cgi/t/2.getBrdInfo.pl deleted file mode 100644 index a0ae95eb..00000000 --- a/pttbbs/pttpi/cgi/t/2.getBrdInfo.pl +++ /dev/null @@ -1,15 +0,0 @@ -#!/usr/bin/perl -# $Id: 2.getBrdInfo.pl,v 1.1 2003/05/19 01:52:05 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/pttbbs/pttpi/cgi/t/board.getBrdInfo.pl b/pttbbs/pttpi/cgi/t/board.getBrdInfo.pl new file mode 100644 index 00000000..7870e386 --- /dev/null +++ b/pttbbs/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()); -- cgit v1.2.3