$title

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "投稿者	\n"; print "
\n"; print "メール	\n"; print "
\n"; print "題　名	\n"; print "
\n"; print "内　容	\n"; print "自動スペース＆自動改行"; print "入力した通り
\n"; print "	\n"; print "
\n"; print "リンク	\n"; print "
\n"; print "	\n"; print " "; print "削除キー (記事削除時に使用)

\n"; print "

\n"; print "$msg_top1\n"; print "$msg_top2\n"; print "$msg_top3

\n"; print "

\n"; print "\n"; print "

\n"; print "

\n"; print "

\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 "

\n"; print "\n"; foreach ($page .. $page_end) { if ($lines[$_] =~ /^\"(\d+)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\",\"(.*)\"/) { $number = $1; $pwd = $2; $name = $3; $email = $4; $host = $5; $date = $6; $subject = $7; $value = $8; $url = $9; $how = $10; print "

\n"; print "
$subject
\n"; print "投稿日 $date "; if ($email) { print "投稿者 $name "; } else { print "投稿者 $name "; } print "削除
\n"; print "
\n"; if ($how == 1) { print "$value
\n"; } else { print "
$value
\n"; } if ($url) { print "$url
\n"; } print "
\n"; } } #--- 改ページ処理 ------------------------------------# $page_next = $page_end + 1; $i = $page + 1; $j = $page_end + 1; print "

\n"; print "\n"; print "\n"; if ($#lines >= 0) { if ($page_end ne $#lines) { print "\n"; print "\n"; print "\n"; print "\n"; } else { print "\n"; } } print "\n"; print "
削除キー "; print " 新着順 $i \- $j
新着順 $i \-> 最後最大記録件数 $max

\n\n"; print "\n"; print "\n"; print ""; print "\n"; print "

\n\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; print "

\n"; print "

$_[0]

$_[1]

\n"; print "\n"; exit; } sub remove { $target = join('|',@RM); if (crypt($FORM{'pwd'}, substr($password,$salt,2)) eq $password) { $admin = 1; } foreach $line (@lines) { if ($line =~ /^\"(\d+)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\",\"(.*)\"/) { $number = $1; $pwd = $2; if ($number =~ /$target/) { if (!$admin && crypt($FORM{'pwd'}, substr($pwd,$salt,2)) ne $pwd) { push(@NEW,$line);} } else { push(@NEW,$line); } } } if (!open(DB,">$file")) { &error('設定ミス',"$file へ書き込みできません. パーミッションを確認してください."); } print DB "MiniBBSv8\:$password\n"; print DB @NEW; close(DB); @lines = @NEW; } sub password { print "Content-type: text/html\n\n"; print "$title\n"; print "$body\n"; print "

マスターキーの設定/変更

\n"; } else { print "$message

\n"; } print "

\n"; print "\n"; } sub encode { if ($header eq 'MiniBBSv8') { if (crypt($FORM{'password_old'}, substr($password,$salt,2)) ne $password) { $message = '旧パスワードが認証されませんでした.'; &password; exit; }} else { if (!open(DB,"$file")) { &error('設定ミス',"$file が見つかりません. 設定を確認してください."); } @lines = ; close(DB); } if ($FORM{'pwd'} =~ /\W/ || $FORM{'pwd'} eq '') { $message = '新パスワードに英数字以外の文字が含まれているか空欄です.'; &password; exit; } if ($FORM{'pwd'} ne $FORM{'pwd2'}) { $message = '確認のために入力された新パスワードが一致しません.'; &password; exit; } &encode2($FORM{'pwd'}); if (!open(DB,">$file")) { &error('設定ミス',"$file へ書き込みできません. パーミッションを確認してください."); } print DB "MiniBBSv8\:$pwd\n"; print DB @lines; close(DB); &html; exit; } sub encode2 { $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]; if (!eval '$pwd = crypt($_[0], $nsalt);') { &error('エラー','暗号処理コマンドが使えませんので設置できません.'); } } sub e_mail { # 管理者に投稿をメールする if (!open(OUT,"| $sendmail $mailto")) { return; } print OUT "To: $mailto\n"; if ($FORM{'email'} ne '') { print OUT "From: $FORM{'email'}\n"; } else { print OUT "From: $mailto\n"; } $subject = "[$title] 新着情報"; &jis("Subject: $subject"); print OUT "$msg\n"; print OUT "Content-Transfer-Encoding: 7bit\n"; print OUT 'Content-Type: text/plain; charset=iso-2022-jp' . "\n\n\n"; &jis("投稿者: $FORM{'name'}"); print OUT "$msg\n"; &jis("Ｅメール: $FORM{'email'}"); print OUT "$msg\n"; &jis("題名: $FORM{'subject'}"); print OUT "$msg\n"; &jis("\n$mail_value"); print OUT "$msg\n\n"; &jis("ＵＲＬ記入欄: $FORM{'url'}"); print OUT "$msg\n"; close(OUT); } sub jis { $msg = $_[0]; &jcode'convert(*msg, 'jis'); } __END__