\n"; print "[トップにもどる]\n"; print "[掲示板の使い方]\n"; print "[ワード検索]\n"; # 過去ログのリンク部を表示 if ($pastkey) { print "[過去ログ]\n"; } print <<"EOM"; [記事削除] [管理用]
\n"; if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; } # 記事数を取得 $end_data = @new - 1; $page_end = $page + ($pagelog - 1); if ($page_end >= $end_data) { $page_end = $end_data; } foreach ($page .. $page_end) { ($number,$k,$date,$name,$email,$sbj, $comment,$url,$host,$pwd,$color,$icon) = split(/<>/, $new[$_]); if ($email) { $name = "$name"; } if (!$sbj) { $sbj = "Untitled"; } # URL表示 if ($url && $home_icon) { $url = "
\n";
print "\n";
print "\n";
print "\n";
print "
\n"; $flag=1; } print "\n"; $ri =~ s/\n//g; if ($ri ne "") { print "\n"; } else { print "\n"; } if ($rsub eq "") { $rsub = "Untitled"; } print "
|
\n"; } print "\n"; # 改頁処理 $next_line = $page_end + 1; $back_line = $page - $pagelog; # 前頁処理 if ($back_line >= 0) { print "\n"; } # 次頁処理 if ($page_end ne "$end_data") { print "\n"; } print "
\n";
&footer;
exit;
}
## --- ログ書き込み処理
sub regist {
# 他サイトからのアクセスを排除
if ($base_url ne ".") {
$ref_url = $ENV{'HTTP_REFERER'};
$ref_url =~ s/\?(.|\n)*//ig;
$ref_url =~ s/\%7E/\~/ig;
if ($ref_url && $ref_url !~ $base_url) {
&error("不正なアクセスです。",'NOLOCK');
}
}
# 名前とコメントは必須
if ($name eq "") { &error("名前が入力されていません。",'NOLOCK'); }
if ($comment eq "") { &error("コメントが入力されていません。",'NOLOCK'); }
if ($email && $email !~ /(.*)\@(.*)\.(.*)/) {
&error("Ｅメールの入力内容が正しくありません。",'NOLOCK');
}
# 管理アイコンのチェック
if ($my_icon && $icon eq "$my_gif") {
if ($pwd ne "$pass") { &error("管理用アイコンは管理者専用です。",'NOLOCK'); }
}
# ホスト名を取得
&get_host;
# 時間を取得
&get_time;
# クッキーを発行
&set_cookie;
# ファイルロック
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
# ログを開く
open(IN,"$logfile") || &error("Can't open $logfile");
@lines =
\n"; print "
| \n";
$flag=0;
foreach $line (@lines) {
local($num,$k,$date,$name,$email,$sub,$com) = split(/<>/, $line);
# 親記事を出力
if ($k eq "" && $FORM{'resno'} eq "$num") {
$resub = $sub;
$flag=1;
print "【親記事】 \n";
print "$sub\n";
print "投稿者：$name\n";
print "投稿日：$date $com \n"; # レス記事を @res に格納 } elsif ($k ne "" && $FORM{'resno'} eq "$k") { push(@res,$line); } } # レス記事を表示 if (@res) { # 記事を逆順に @res = reverse(@res); $flag = 0; foreach $line (@res) { local($num,$k,$date,$name,$email,$sub,$com) = split(/<>/,$line); if ($flag == 0) { $flag=1; print " 【レス記事】 \n"; } print " $sub\n"; print "投稿者：$name - \n"; print "$date \n"; } } # タイトル名 if ($resub eq "") { $resub = "Untitled"; } if ($resub !=~ /^Re\:/) { $resub = "Re\: $resub"; } print <<"EOM"; |
\n";
&footer;
exit;
}
## --- フォームからのデータ処理
sub form_decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます。",'NOLOCK'); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# 文字コード変換
&jcode'convert(*value,'sjis');
# タグ処理
if ($tagkey == 0) {
$value =~ s//\>\;/g;
$value =~ s/\"/\"\;/g;
} else {
$value =~ s///g;
$value =~ s/<>/<\;>\;/g;
}
# 一括削除用
if ($name eq 'del') { push(@delete,$value); }
$FORM{$name} = $value;
}
$name = $FORM{'name'};
$comment = $FORM{'comment'};
$comment =~ s/\r\n/
/g;
$comment =~ s/\r|\n/
/g;
$email = $FORM{'email'};
$url = $FORM{'url'};
$url =~ s/^http\:\/\///;
$mode = $FORM{'mode'};
$subj = $FORM{'subj'};
$pwd = $FORM{'pwd'};
$icon = $FORM{'icon'};
$color = $FORM{'color'};
}
## --- 掲示板の使い方メッセージ
sub howto {
if ($tagkey == 0) { $tag_msg = "投稿内容には、タグは一切使用できません。\n"; }
else { $tag_msg = "コメント欄には、タグ使用をすることができます。\n"; }
&header;
print <<"HTML";
[掲示板にもどる]
| 掲示板の利用上の注意 |
|---|
|
HTML &footer; exit; } ## --- ワード検索サブルーチン sub find { &header; print <<"HTML"; [掲示板にもどる]
| ワード検索 |
|---|
|
検索結果：$count件
\n"; print "
- \n";
foreach $line (@new) {
($num,$k,$date,$name,$email,$sbj,$com,$url) = split(/<>/,$line);
if (!$sbj) { $sbj = "Untitled"; }
if ($email) { $name = "$name"; }
if ($url) { $url = "[HOME]"; }
if ($k) { $num = "$kへのレス"; }
# 結果を表示
print "
- [$num] $sbj\n";
print "投稿者：$name $url 投稿日：$date\n";
print "
$com
\n"; } print "
\n"; } &footer; exit; } ## --- ブラウザを判断しフォーム幅を調整 sub get_agent { # ブラウザ名を取得 $agent = $ENV{'HTTP_USER_AGENT'}; if ($agent =~ /MSIE 3/i) { $nam_wid = 30; $subj_wid = 40; $com_wid = 65; $url_wid = 48; $nam_wid2 = 20; } elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) { $nam_wid = 30; $subj_wid = 40; $com_wid = 65; $url_wid = 78; $nam_wid2 = 20; } else { $nam_wid = 20; $subj_wid = 25; $com_wid = 56; $url_wid = 50; $nam_wid2 = 10; } } ## --- クッキーの発行 sub set_cookie { # クッキーは60日間有効 ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 60*24*60*60); $yearg += 1900; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul', 'Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; $cook="name\:$name\,email\:$email\,url\:$url\,pwd\:$pwd\,icon\:$icon\,color\:$color"; print "Set-Cookie: YYBBS=$cook; expires=$date_gmt\n"; } ## --- クッキーを取得 sub get_cookie { @pairs = split(/\;/, $ENV{'HTTP_COOKIE'}); foreach $pair (@pairs) { local($name, $value) = split(/\=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/\,/, $DUMMY{'YYBBS'}); foreach $pair (@pairs) { local($name, $value) = split(/\:/, $pair); $COOKIE{$name} = $value; } $c_name = $COOKIE{'name'}; $c_email = $COOKIE{'email'}; $c_url = $COOKIE{'url'}; $c_pwd = $COOKIE{'pwd'}; $c_icon = $COOKIE{'icon'}; $c_color = $COOKIE{'color'}; if ($FORM{'name'}) { $c_name = $FORM{'name'}; } if ($FORM{'email'}) { $c_email = $FORM{'email'}; } if ($FORM{'url'}) { $c_url = $url; } if ($FORM{'pwd'}) { $c_pwd = $FORM{'pwd'}; } if ($FORM{'icon'}) { $c_icon = $FORM{'icon'}; } if ($FORM{'color'}) { $c_color = $FORM{'color'}; } } ## --- エラー処理 sub error { if ($_[1] ne '0') { &header; } if (-e $lockfile && $_[1] eq "") { unlink($lockfile); } print "
ERROR !
\n"; print "$_[0]\n"; print "
| \n"; print "コメント削除画面 |
|---|
| \n";
if ($FORM{'action'} eq '') {
print "■投稿時に記入した「削除キー」により、記事を削除します。 \n"; } print "■削除したい記事のチェックボックスにチェックを入れ、下記フォームに「削除キー」を入力してください。 \n"; print "■親記事を削除する場合、そのレスメッセージも同時に消滅してしまうことになりますので、ご注意ください。 \n"; print " |
\n"; print "
\n"; print "\n"; # 改頁処理 $next_line = $page_end + 1; $back_line = $page - $pagelog; # 前頁処理 if ($back_line >= 0) { print "\n"; } # 次頁処理 if ($page_end ne "$end_data") { print "\n"; } print "\n";
&footer;
exit;
}
## --- 記事削除処理
sub usr_del {
if ($FORM{'del_key'} eq "") { &error("削除キーが入力モレです。",'NOLOCK'); }
if ($FORM{'del'} eq "") { &error("ラジオボタンの選択がありません。",'NOLOCK'); }
# ロック開始
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
# ログを読み込む
open(DB,"$logfile") || &error("Can't open $logfile");
@lines =
\(v2.5以前のログの場合は変換の必要があります\)<\/small>"); } shift(@lines); ## 削除処理 foreach $line (@lines) { $dflag=0; ($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line); foreach $del (@delete) { if ($del eq "$dt") { $dflag = 1; $del_num = $num; if ($k eq '') { $oyaflag=1; } } elsif ($oyaflag && $del_num eq "$k") { $dflag = 1; } } if ($dflag == 0) { push(@new,$line); } } # 親記事NOを付加 unshift(@new,$oya); ## ログを更新 ## open(DB,">$logfile") || &error("Can't write $logfile"); print DB @new; close(DB); # ロック解除 if (-e $lockfile) { unlink($lockfile); } # 削除画面にもどる &msg_del; } ## --- 管理者入室画面 sub admin { &header; print "
パスワードを入力してください。
\n"; print "\n";
&footer;
exit;
}
## --- 時間を取得
sub get_time {
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
$year = 1900 + $year;
$mon++;
if ($mon < 10) { $mon = "0$mon"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
# 日時のフォーマット
$date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec";
}
## --- カウンタ処理
sub counter {
# カウントファイルを読みこみ
open(NO,"$cntfile") || &error("Can't open $cntfile",'0');
$cnt =
\n";
}
## --- ロックファイル（symlink関数）
sub lock1 {
local($retry) = 5;
while (!symlink(".", $lockfile)) {
if (--$retry <= 0) { &error("LOCK is BUSY"); }
sleep(1);
}
}
## --- ロックファイル（open関数）
sub lock2 {
local($flag) = 0;
foreach (1 .. 5) {
if (-e $lockfile) { sleep(1); }
else {
open(LOCK,">$lockfile");
close(LOCK);
$flag = 1;
last;
}
}
if ($flag == 0) { &error("LOCK is BUSY"); }
}
## --- メール送信
sub mail_to {
$mail_subj = "$title に投稿がありました。";
&jcode'convert(*mail_subj,'jis');
&jcode'convert(*name,'jis');
&jcode'convert(*subj,'jis');
&jcode'convert(*comment,'jis');
$comment =~ s/\n";
# GIFカウンタ表示
if ($counter == 2) {
foreach (0 .. $#cnts) {
print " ![\"$cnts[$_]\"](\"$gif_path/$cnts[$_]\.gif\")
";
}
# テキストカウンタ表示
} else {
print "$cnt";
}
print "
/\n/g;
$comment =~ s/<//g;
if (open(MAIL,"| $sendmail $mailto")) {
print MAIL "X-Mailer: YYBBS MAILER\n";
print MAIL "To: $mailto\n";
# メールアドレスがない場合はダミーメールに置き換え
if ($email eq "") { $email = "nomail\@xxx.xxx"; }
print MAIL "From: $email\n";
print MAIL "Subject: $mail_subj\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-type: text/plain\n\n";
print MAIL "$mail_subj\n";
print MAIL "--------------------------------------------------------\n";
print MAIL "TIME : $date\n";
print MAIL "HOST : $host\n";
print MAIL "NAME : $name\n";
print MAIL "EMAIL: $email\n";
if ($url) { print MAIL "URL : http://$url\n"; }
if ($subj eq "") { $subj = "Untitled"; }
print MAIL "TITLE: $subj\n\n";
print MAIL "$comment\n";
print MAIL "--------------------------------------------------------\n";
close(MAIL);
}
}
## --- パスワード暗号処理
sub passwd_encode {
$now = time;
($p1, $p2) = unpack("C2", $now);
$wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
$nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
$ango = crypt($_[0], $nsalt);
}
## --- パスワード照合処理
sub passwd_decode {
if ($_[0] =~ /^\$1\$/) { $crptkey = 3; } # FreeBSDサーバ対応
else { $crptkey = 0; }
$check = "no";
if (crypt($plain_text, substr($_[0],$crptkey,2)) eq "$_[0]") {
$check = "yes";
}
}
## --- HTMLのヘッダー
sub header {
print "Content-type: text/html\n\n";
print "\n\n";
print "\n";
print "
\n"; print "
イメージ画像サンプル
\n"; print "現在登録されているイメージ画像は以下のとおりです。\n"; print "\n"; print "
\n"; foreach (0 .. $#icon1) { print "\n"; print "\n"; } print "
| $icon2[$_] |
|---|
$pcom$purl
HTML push(@htmls,"$html"); } @news = (); foreach $line (@past) { if ($line =~ //i) { last; } push (@news,$line); if ($line =~ //i) { push (@news,@htmls); } } push (@news,"\n\n"); # 過去ログを更新 open(OUT,">$pastfile") || &error("Can't write $pastfile"); print OUT @news; close(OUT); } ## --- 過去ログ次ファイル生成ルーチン sub next_log { # 次ファイルのためのカウントアップ $count++; # カウントファイル更新 open(NO,">$nofile") || &error("Can't write $nofile"); print NO "$count"; close(NO); $pastfile = "$past_dir\/$count\.html"; &new_log; } ## --- 新規過去ログファイル生成ルーチン sub new_log { $new_flag = 1; if ($backgif) { $bgkey = "background=\"$backgif\" bgcolor=$bgcolor"; } else { $bgkey = "bgcolor=$bgcolor"; } $past[0] = "
\n"; $past[2] = "<\!--HAJIME-->\n"; $past[3] = "<\!--OWARI-->\n"; $past[4] = "\n"; # 新規過去ログファイルを生成更新 open(OUT,">$pastfile") || &error("Can't write $pastfile"); print OUT @past; close(OUT); # パーミッションを666へ。 chmod(0666,"$pastfile"); }