#!/usr/local/bin/perl

;#-----------------------------------------------------
;# 簡易マルチＢＢＳ - MiniBBS-kit <FreeSoft>
;#  for UNIX/Perl4/Perl5/POST/SJIS (c)www.rescue.ne.jp
;#-----------------------------------------------------

# [設置例] < >内はパーミッション値(推奨値ではない)  (*)印..空のファイルを用意
#
# |-- jcode.pl <644>		日本語コード変換ライブラリ  v2.0以上を使うこと
# |-- minibbs.cgi <755>		実行プログラム  プログラム名.cgi (プログラム名は任意の半角英数字) ex. bbs.cgi board.cgi 0001.cgi
# |-- log.message.cgi <666>	メッセージファイル(*)  ログ名.message.cgi (ログ名は任意の半角英数字) ex. bbs.message.cgi board.message.cgi 0001.message.cgi
# |-- log.delete.cgi <666>	削除管理ファイル(*)  ログ名.delete.cgi (ログ名は任意の半角英数字) ex. bbs.delete.cgi board.delete.cgi 0001.delete.cgi
# |-- password.cgi <666>	管理者パスワードファイル(*)
#
#  ※ 実行プログラムは１つ設置しておけば、ログを複数用意するだけで、複数の掲示板が運用できる.
#  ※ jperlまたはそれがパッチされているperlで動作させる場合は、jcode.pl(v2.0)は正常に動作しません.
#
# [呼び出し方法]
#
# http://設置した場所/プログラム名.cgi?log=ログ名
# 上記構成の場合 → http://設置した場所/minibbs.cgi?log=log
#
# [過去ログの利用方法]
#
# # http://設置した場所/ログモードにしたプログラム名.cgi?log=ログ名
# ログ(読出し専用)モード専用のプログラムを別に用意する
# 呼び出し例 → pastlog.cgi?log=log
#
#  ※ ログモード用に実行プログラムを１つ設置しておけば、複数のログを運用できる.
#
# [主な使い方]
#
# ・メッセージファイルの記録上限サイズを超えると、そのログには記録できない.
# ・メッセージファイルをメモリ上に展開するので、上限サイズはあまり大きな数字にしないこと.
# ・上限を超えたファイルは過去ログ化させ、新ログを用意する.
# ・ただし、管理者パスワードを「パスワード」欄に入力すれば、上限を超えていても記録できる.
# ・削除する場合に記入するパスワード欄に管理者パスワードを入力すれば、任意の記事の削除ができる.
# ・削除した記事の番号は、削除管理ファイルに記録され、そこに記録された番号は一覧に表示されない. (論理削除)
# ・従って、削除したい記事データがメッセージファイルから物理的に削除されているわけではない.
# ・削除管理ファイルから番号を削除すれば、その番号の記事は一覧に表れる.


#---------------------------------------------------------------------------------------
# ↓以下初期設定
#---------------------------------------------------------------------------------------


#●
#---------------------------------------------------------------------------------------
# 名称     | Setup
# Version  | 1.00
# 処理名   | 初期設定
#
$log = 0;					#●ログモード(読出し専用)に 1:する 0:しない

$bye = 'http://ホームページなどのＵＲＬ/';	#●画面の「終了」リンク先(URL)
$title_bar = '簡易ＢＢＳ';			#●ブラウザのタイトルバーの名称
$body = '<body bgcolor=#FFFFFF text=#000000>';	#●画面の色や背景の設定 (HTML書式)

require './jcode.pl';				#●日本語コード変換ライブラリ(パス値) .. 2.0以上のバージョンのもの
$pwd_file = './password.cgi';			#●管理者用パスワードファイル(パス値)

$log_dir = "./";				#●各ログファイル(メッセージファイルと削除管理ファイル)を設置する場所(パス値) .. 同じ場所なら"./"
$ext = "cgi";					#●各ログファイルの拡張子 .. 直接アクセスできないようにＣＧＩを装える拡張子

$maxsize = 30000;				#●メッセージファイルの記録上限サイズ(byte) .. あまり大きくしないこと
$viewhost = 1;					#●リモートホスト名を表示 1:する 0:しない
$page = 10;					#●１画面に一覧する記事件数
$cellcolor = "#ffeedd";				#●タイトル背景バーの色
$subject_color = "#333333";			#●タイトルの文字色
$info_color = "#555555";			#●付随情報(時刻,名前,ホスト名)の文字色

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);	#●時刻取得
@wday_array = ('日','月','火','水','木','金','土');				#●曜日名の表現

$path = '/';					#●クッキーを扱う範囲

# ※ クッキーパスの指定の仕方
# もしあなたのホームページが http://www.foo.bar/~user/ なら、$path = '/~user/'; と設定しましょう.
# もしあなたのホームページが http://www.foo.bar/ なら、$path = '/'; と設定しましょう.
# 詳しいことは http://www.netscape.com/newsref/std/cookie_spec.html のpathの項目をご覧ください.

&Main();
exit;

#End_of_Setup


#---------------------------------------------------------------------------------------
# ↓以下サブルーチン(順番は関係しない)
#---------------------------------------------------------------------------------------

