last update 2005.05.14
公開CGI　適当にどうぞ〜。
＜公開CGI＞
AsciiArtHeadlineで使用しているCGIを、参考のために公開します。
同一サービスを開設するもよし、類似機能実装の参考にするもよし。
ご要望あらば他の機能も公開します。お気軽にご相談ください。
でも大したものじゃないので、アテにしすぎないでね。

☆利用規約
・コードがヘボいからといって叩かないでください。
・このソースから知りえた情報でAsciiArtHeadlineを攻撃しないでください。

☆著作免責
・ソースに付したコメントと実装が乖離している場合があります（実装が正です）。
・Webから拾ってきたサンプルソースを流用している部分があります。
　各々元作者の配布条件に従ってください。
・モラログ（新）ビデオ棚の作成した部分は好き放題に改変していただいてかまいません（著作権放棄）。
・参考のため現状ソースを公開するものです。モラログ＠（新）ビデオ棚は改善義務を負いません。
・利用に際して発生する全ての問題に対してモラログ＠（新）ビデオ棚は責任を負いません。


■「 あのAAきぼんぬDB 」（AAの登録、検索、閲覧）
ソースコード(aadb050514.lzh)（PerlのCGI）
　・表示不具合（１行AAが表示できないことがある）の処置
　・投稿プレビュー機能の追加
旧ソースコード(aadb050104.lzh)（PerlのCGI）
　・表示不具合（１行AAが省略表示できないことがある）の処置
　・管理者による削除の機能を追加。DBパスワードを入力するとレコードを削除できます。
旧ソースコード(aadb041016.lzh)（PerlのCGI）
　・公開初版
以下に「あのAAきぼんぬDB」を動作させるための要件を記します。

★必要環境
・サーバ上でPerlのCGIが動作すること
・サーバ上でmySQLが動作すること

★準備
(1) DBを構築する
　mySQLで扱えるように、以下のDBを作成してください。

テーブル名 aa
Field　　　　　　Type　　　　Null　　　Key　　　　Extra
　　id　　　　　　bint　　　　　　　　　　PRI　　　　auto_increment
　　name　　　　tinytext　　YES
　　aa　　　　　　text　　　　YES
　　abstract　　text　　　　 YES
　　author　　　tinytext　　 YES

↓Createコマンド実行するならこんな感じ？
CREATE TABLE aa (
id bigint NOT NULL auto_increment,
name tinytext ,
aa text ,
abstract text ,
author tinytext ,
PRIMARY KEY (id)
);

(2) フォルダ構成
ファイルの置き方は以下のとうりです。
パーミッションは、想像して適当に設定してください。
cgi、plに実行権を与えることを忘れなければそれでいいような気がします。
+ cgi-bin
　　+ aadb　　　　あのAAきぼんぬDB
　　+ img　　　　　画像類
　　+ data　　　　 （使ってないので要りません）

検索TOPページのURLは以下になります。
cgi-bin/aadb/select_form.cgi

Perlのパスは以下です。必要があれば全Perlソースファイルを変更してください。
#! /usr/local/bin/perl

★変更すべき点
変更すべき個所には「★★」（星ふたつ）を入れてあります。
grepをかけてカスタマイズしてください。
+ aadb
　- aadb.pl　　　　　　　なし
　- aadbcommon.pl　　DB情報（重要）、サイト情報
　- delete.cgi　　　　　 なし
　- edit.cgi　　　　　　　なし
　- edit_form.cgi　　　　なし
　- select.cgi　　　　　　なし
　- select_form.cgi　　 検索TOPページ

☆サポート
質問・要望・指摘等々は （新）モナー童話集掲示板 内の
「「あのAAきぼんぬＤＢ」訂正依頼」 もしくは
「過去ログ保存サイトの管理人が集うスレ」 あたりへどうぞ。