| みんなの伝言板 |
始めて来た方は、できるだけ「紳士＆淑女録」で自己紹介を書いてください｡ \n";
print " ";
print "$msg_mid1\n";
print "$msg_mid2\n";
print "$msg_mid3 \n";
#--- 記録記事の出力 ----------------------------------#
@lines = reverse(@lines);
if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }
$page_end = $page + $def - 1;
if ($page_end > $#lines) { $page_end = $#lines; }
print "
';
$msg_top2 = 'そうする事で、ほかの人が｢今度来たのはどんな人だ？｣
';
$msg_top3 = 'って言うのが分かっていいかなと思うのでお願いします。
';
#◇投稿フォームの下位置に表示する文字列
$msg_mid1 = '■投稿時には、この記事を削除する時に利用する削除キーを設定してください.
';
$msg_mid2 = '■一度設定して投稿すれば一定期間同じ削除キーが保存されます.
';
$msg_mid3 = '■入力欄に記憶された内容を消去するには、[書き直し]→[書き込む]を順番に押します.';
#◇最下部に表示する文字列
$msg_btm1 = '■削除は、[削除]欄をチェックして、投稿時に設定した削除キーをすぐ上の欄に入力してボタンを押します.
';
$msg_btm2 = '■削除キーが合致しない記事は削除されません.
';
$msg_btm3 = '■削除キー欄にマスターキー(管理者のみ)を入力すると任意の記事の削除が可能です.';
#◆$reloadで設定した設置ＵＲＬ以外のフォームからの投稿を禁止する処置 する:1 しない:0
# 悪戯の防止用ですが、利用サーバやブラウザによっては正規投稿もできなくなる場合もあります.
$ref_axs = 1;
#◆１記事の最大記録サイズ(bytes) 0で無制限
$max_size = 5000;
#◆１画面に表示する記事件数
$def = 30;
#◆書き込み件数の最大登録数の設定です。この件数を超えると、古いものから削除されていきます.
# ページ処理機能が付きましたので、この件数を大きくしても一度に表示される記事数は限定されます.
# 記録されたファイルの巨大化を防止する為に、ある程度の件数で自動削除されるようにします.
# サーバ負荷を考慮して、あまり大きくしないことが重要です.
$max = '300';
#◆日本語コード変換ライブラリのパスの設定
# minibbs.cgiと同じ場所に設置する場合はこのままでよい.
require './jcode.pl';
#◆海外サーバ等で時差が生じる場合は修正します
# 海外時間に＋９時間する場合 = localtime(time + 9*60*60);
# 海外時間に−９時間する場合 = localtime(time - 9*60*60);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
#◆クッキーの消化設定
# 最終書き込みから 30日後 30*24*60*60
# 1日後 24*60*60
# 10時間後 10*60*60
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);
#◆入力形式の設定 標準入力:1(post) その他:0(get)
# 投稿ボタンを押して Method not implemented.. 等というエラーが出る場合は get で試すこと
# getの場合は文字制限がありますので長い文章等は途中で切れる可能性があります.
# さらに、getの場合は不要な悪戯を受けてしまう環境になりますので、注意してください.
# POST:1 GET:0
$method = 1;
#◆内容が書き込まれる記録ファイルの名前（注意！パスの設定ではない）
$file = 'data.cgi';
#◆データディレクトリのパスの設定（処理の都合上 / で閉じない）
$tmp_dir = './data';
###########################################################################################
#
# ・記録ファイルには処理の都合上特殊コードが記録されますので、直接編集はできません。
# ・スクリプトの中身を書き替える場合は、perlやCGIやHTMLなどのそれなりの知識が必要です。
#
###########################################################################################
@wday_array = ('日','月','火','水','木','金','土');
$date_now = sprintf("%01d月%01d日(%s)%02d時%02d分",$mon +1,$mday,$wday_array[$wday],$hour,$min);
$date_num = sprintf("%02d%02d%02d%02d%02d",$mon +1,$mday,$hour,$min,$sec); # <-変更禁止
&lock0;
if ($method eq '1' && $ENV{'QUERY_STRING'} ne '') { &error('エラー','不正利用の可能性があります.'); }
if ($method eq '1') { $method = 'post'; read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $method = 'get'; $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$buffer);
@pairs = (grep(/^action=/,@pairs),grep(!/^action=/,@pairs));
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
&jcode'convert(*value,'sjis');
if ($value =~ /(.*)\"\,\"(.*)/) { &error('記入ミス','記録できない文字の並び「","」があります.'); }
if ($tag) {
foreach (@kyohi) {
if (/^$/) { next; }
if ($value =~ /$_/i) { &error('記入ミス','記録できないタグ記述があります.'); }
}
}
else { $value =~ s//>/g; }
if ($s_mail && $name eq 'value') {
$mail_value = $value;
if ($mail_value =~ /\r\n/) { $mail_value =~ s/\r\n/\n/g; }
if ($mail_value =~ /\r/) { $mail_value =~ s/\r/\n/g; }
}
if ($FORM{'action'} eq 'regist') {
if ($value =~ /\r\n/) { $value =~ s/\r\n/\r/g; }
if ($value =~ /\n/) { $value =~ s/\n/\r/g; }
if ($FORM{'how'} eq '1') { $value =~ s/\r/
\r/g; }
}
if ($name eq 'name' || $name eq 'email') { $value =~ s/\;//g; $value =~ s/\://g; $value =~ s/\,//g; }
if ($name eq 'target') { push(@RM,$value); }
else { $FORM{$name} = $value; }
}
if ($FORM{'action'} eq 'password') { &encode; }
$cookies = $ENV{'HTTP_COOKIE'};
@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/,/,$DUMMY{$reload});
foreach $pair (@pairs) {
($name, $value) = split(/:/, $pair);
$COOKIE{$name} = $value;
}
if ($FORM{'admin'} eq 'change') { &password; exit; }
if ($FORM{'action'} eq 'remove') { &remove; }
elsif ($FORM{'action'} eq 'regist') { ®ist; }
if (!open(DB,"$tmp_dir\/$file")) { &error('設定ミス',"$file が設定された場所にありません."); }
@lines = $title
\n";
print "$msg_top1\n";
print "$msg_top2\n";
print "$msg_top3