summaryrefslogtreecommitdiffstats
path: root/not-maintained/pttpi/cgi/t
diff options
context:
space:
mode:
authorpiaip <piaip@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2009-10-06 11:51:56 +0800
committerpiaip <piaip@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2009-10-06 11:51:56 +0800
commitc5e1a71ebe811f3f1f505a07332af612581dc4df (patch)
tree97d31f47bf35e5e13407af942af00ca66feb5c7a /not-maintained/pttpi/cgi/t
parentf1a1d28128b14e6fb891ece172940ebca408527a (diff)
downloadpttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.gz
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.bz2
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.lz
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.xz
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.zst
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.zip
* move 'not-maintained' to branch directory
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@4904 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'not-maintained/pttpi/cgi/t')
-rw-r--r--not-maintained/pttpi/cgi/t/.cvsignore1
-rw-r--r--not-maintained/pttpi/cgi/t/article.list.pl16
-rw-r--r--not-maintained/pttpi/cgi/t/article.readfn.pl15
-rw-r--r--not-maintained/pttpi/cgi/t/board.getBid.pl12
-rw-r--r--not-maintained/pttpi/cgi/t/board.getBrdInfo.pl15
-rw-r--r--not-maintained/pttpi/cgi/t/board.getNarticle.pl14
-rw-r--r--not-maintained/pttpi/cgi/t/class.list.pl14
-rw-r--r--not-maintained/pttpi/cgi/t/host.pl.sample2
8 files changed, 0 insertions, 89 deletions
diff --git a/not-maintained/pttpi/cgi/t/.cvsignore b/not-maintained/pttpi/cgi/t/.cvsignore
deleted file mode 100644
index 9f20a79c..00000000
--- a/not-maintained/pttpi/cgi/t/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-host.pl
diff --git a/not-maintained/pttpi/cgi/t/article.list.pl b/not-maintained/pttpi/cgi/t/article.list.pl
deleted file mode 100644
index 27370aa1..00000000
--- a/not-maintained/pttpi/cgi/t/article.list.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/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
deleted file mode 100644
index e2d0bc27..00000000
--- a/not-maintained/pttpi/cgi/t/article.readfn.pl
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/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
deleted file mode 100644
index a628da4e..00000000
--- a/not-maintained/pttpi/cgi/t/board.getBid.pl
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/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
deleted file mode 100644
index 7870e386..00000000
--- a/not-maintained/pttpi/cgi/t/board.getBrdInfo.pl
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/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
deleted file mode 100644
index a5fb56a1..00000000
--- a/not-maintained/pttpi/cgi/t/board.getNarticle.pl
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/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
deleted file mode 100644
index 9e10932b..00000000
--- a/not-maintained/pttpi/cgi/t/class.list.pl
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/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
deleted file mode 100644
index 72669230..00000000
--- a/not-maintained/pttpi/cgi/t/host.pl.sample
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/usr/bin/perl
-$server_url = 'http://host_to_pttpi/path_to_pttpi/pttpi.cgi'