#!/usr/local/bin/perl
## -------------------------------------------------------------------
## COM BOARD v4.0
## (c)1997-1999 KENT WEB (1999/10/31)
## E-MAIL webmaster@kent-web.com
## HomePage http://www.kent-web.com/
$ver = 'COMBBS v4.0'; # バージョン情報（修正不要）
## ---[注意事項ほか]--------------------------------------------------
## 1. このスクリプトはフリーソフトです。このスクリプトを使用したいか
## なる損害に対して作者は一切の責任を負いません。
## 2. 設置に関する質問はサポート掲示板にお願いいたします。メールによる
## 質問にはお答えできません。
## -------------------------------------------------------------------
#============#
# 設定項目 #
#============#
# jcode.plが同一ディレクトリにある場合
require('jcode.pl');
# タイトル
$title = "スキー部掲示板";
# タイトルの色
$t_color = "#008080";
# タイトルの大きさ（ポイント数：スタイルシート適用）
$t_point = '18pt';
# タイトル文字のフォントタイプ
$t_face = "ＭＳ Ｐゴシック";
# 背景色、文字色など
$backgif = ""; # 壁紙 (http://から記述)
$bgcolor = "#F5F5F5"; # 背景色
$text = "#000000"; # 文字色を指定
$link = "#0000FF"; # リンク色を指定（未訪問）
$vlink = "#800080"; # リンク色を指定（既訪問）
$alink = "#FF0000"; # リンク色を指定（訪問中）
# 戻り先のURL (index.htmlなど)
$homepage = 'http://www6.freeweb.ne.jp/sports/oumski/';
# 最大記事数
$max = 100;
# パスワード(英数字で指定)
$pass = '2tgp3yn';
# 横割フレーム (0=no 1=yes)
$yoko_frame = 0;
# 投稿項目に「題名」を使う (0=no 1=yes)
$sbjkey = 1;
# 投稿項目に「ＵＲＬ」を使う (0=no 1=yes)
$urlkey = 0;
# タグの許可 (0=no 1=yes)
$tagkey = 0;
# スクリプトファイル名
$script = "combbs.cgi";
# ログファイル名（フルパスで記述する場合は / から始まるパス）
$logfile = "./combbs.log";
# 記事 [タイトル] の色
$sbj_color = "#006400";
# methodの形式 (POST/GET)
$method = 'POST';
# １ページ当たりの記事表示数
$pagelog = 10;
# ロック有無 (0=no 1=symlink 2=open)
$lockkey = 0;
# ロックファイル名
$lockfile = "./combbs.lock";
# URL自動リンク機能 (0=no 1=yes)
$autolink = 1;
# 投稿があるとメール通知する(0=no 1=yes) : sendmail必須
$mailing = 0;
# メール通知先 (メール通知する時)
$mailto = '';
# sendmailパス（メール通知する時）
$sendmail = '';
# タイトルに画像を使用する場合（画像ファイルをhttp://から記述）
$t_gif = "";
$t_g_w = 150; # タイトル画像の横幅
$t_g_h = 50; # 〃 縦幅
#=============
# 設定完了
#=============
## bodyタグを定義
if ($backgif) {
$body = "";
} else {
$body = "";
}
## --- COM BOARDのメイン処理
&get_form;
if (!$buffer) {
if ($yoko_frame) { &y_frame; }
else { &t_frame; }
}
else {
&decode;
if ($mode eq "admin") { &admin1; }
if ($mode eq "del") { &admin2; }
if ($mode eq "form") { &form; }
if ($mode eq "msg") { ®ist; }
if ($mode eq "howto") { &howto; }
if ($mode eq "find") { &find; }
if ($mode eq "enter") { &enter; }
if ($mode eq "msg_del") { &msg_del; }
}
&html_log;
## --- HTMLのヘッダー
sub header {
print "Content-type: text/html\n\n";
print <<"EOM";
$title
EOM
}
## --- 縦割フレーム出力
sub t_frame {
&header;
print <<"HTML";
HTML
exit;
}
## --- 横割フレーム出力
sub y_frame {
&header;
print <<"HTML";
HTML
exit;
}
## --- 投稿フォーム
sub form {
# クッキーを取得
&get_cookie;
$nam_wid = 16;
$com_wid = 33;
$url_wid = 27;
# ブラウザ情報を取得
$agent = $ENV{'HTTP_USER_AGENT'};
# MSIE3 の場合フォーム長を調整
if ($agent =~ /MSIE 3/i) {
$nam_wid = 25;
$com_wid = 50;
$url_wid = 48;
# MSIE4 の場合フォーム長を調整
} elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) {
$nam_wid = 25;
$com_wid = 34;
$url_wid = 48;
}
# HTMLを出力
print "Content-type: text/html\n\n";
print <<"HTML";
$title
$body
\n";
print "\n";
}
print "\n";
exit;
}
## --- 記事表示部
sub html_log {
open(IN,"$logfile") || &error("Can't open $logfile");
@lines = ;
close(IN);
&header;
print "$body\n\n";
# タイトル部
if ($t_gif) {
print "![](\"$t_gif\")
\n";
}
else {
print "";
print "$title\n";
}
print "
[もどる]\n";
print "[掲示板の使い方]\n";
print "[ワード検索]\n";
print "[管理用]\n";
print "
\n";
if ($FORM{'page'} eq '') { $page = 0; }
else { $page = $FORM{'page'}; }
# 記事数を取得
$end_data = @lines - 1;
$page_end = $page + ($pagelog - 1);
if ($page_end >= $end_data) { $page_end = $end_data; }
foreach ($page .. $page_end) {
local($num,$date,$name,$email,$sub,
$com,$url,$host) = split(/<>/, $lines[$_]);
if ($email) { $name="$name"; }
# 題名を使用する場合
if ($sbjkey) {
if (!$sub) { $sub = "無題"; }
print "[$num] $sub\n";
print "投稿者：$name\n";
print "投稿日：$date\n";
# 題名を使用しない場合
} else {
print "[$num] $name\n";
print " - ($date)\n";
}
# 自動リンク
if ($autolink) { &auto_link($com); }
if ($url) {
$url = "http://$url";
print "$com$url
\n";
} else {
print "$com
\n";
}
}
print "\n";
# 改頁処理
$next_line = $page_end + 1;
if ($page_end ne $end_data) {
print " | \n";
}
print " |
\n";
# 著作権を表示（削除禁止）
print "\n";
print "- Com Board -\n";
print "\n";
print "