\n"; $page_next = $page_end + 1; $i = $page + 1; $j = $page_end + 1; if ($page_end ne $f) { print "以上は、現在登録されている新着順$i番目から$j番目までの記事です。
\n"; print "
\n"; } else { print "以上は、現在登録されている新着順$i番目から$j番目までの記事です。"; print "これ以下の記事はありません。\n"; } #print "\n"; }
$FORM{'value'} =~ s/(https?|ftp|gopher|telnet|whois|news):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/$1:\/\/$2<\/a>/g;
print LOG " \n\n";
# ＵＲＬが記録されているデータにはリンクを付ける
if ($FORM{'page'} ne '') {
$page0 = $FORM{'page'};
$page0 =~ s/$cgiurl\?action=search1\&search=(.*)\&id=\d*/参考：$1/;
if ( $FORM{'page'} eq $page0 ) {
print LOG "$page0 \n";
} else {
print LOG "$page0 \n";
}
}
print LOG " \n";
# プロテクトキー生成
local ( $ptime ) = time + $tim * 60 * 60;
local ( $pkey ) = ( $ptime + $protect_a ) * $protect_b + $protect_c;
print " \n"; }
else { print "みつかりません \n";
# カウンタ
if ( $countlevel > 0 ){
print "$countdateから ";
&counter; print "$countplus（こわれにくさレベル$countlevel） \n";
print " \n";
print " \n";
$page_next = $page_end + 1;
$i = $page + 1; $j = $page_end + 1;
if ($page_end ne $accesses) {
print "以上は、現在登録されている新着順$i番目から$j番目までの記事です。 \n";
print " \n";
if ($FORM{search} eq '') {
$value =~ s/(https?|ftp|gopher|telnet|whois|news):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/$1:\/\/$2<\/a>/g;
}
print " \n\n";
if ($hpage ne '') { print "$hpage0 \n"; }
print "
\n$FORM{'value'}
";
eval 'flock (LOG, 8)';
close(LOG);
# if (!open(BD,">>./0000.txt")) {error(0); }
# print BD "$date_now\,$FORM{'subject'}\,$host\n";
# while ( ($a,$b) = each %ENV) {print BD "$a=$b\,";}
# print BD "\n";
# close(BD);
} else {
eval 'flock (LOG, 8)';
close(LOG);
}
# 記録処理後、再読み込みする
if ( $FORM{'follow'} ne "on" ) { &html; }
else {
print "Content-type: text/html\n\n";
print "かきこみ完了
\n";
exit;
}
# print "Location: $cgiurl" . '?' . "\n\n";
# exit;
}
# フォロー投稿サブルーチン（search1） ############################################
sub search1 {
#--- 入力フォーム画面 --------------------------------#
print "Content-type: text/html\n\n";
print "
\n";
$value =~ s/\r/\r> /g;
$value ="> $value";
$value =~ s/> > >.*?\r//g;
print "
";}
print "
\n";
exit;
}
# 投稿者名サーチ用サブルーチン（search2） ############################################
sub search2 {
print "Content-type: text/html\n\n";
print "
";}
print "
\n";
exit;
}
# スレッドサーチ用サブルーチン（search3） ############################################
sub search3 {
print "Content-type: text/html\n\n";
print "
";}
print "
\n";
exit;
}
# トップページ表示用サブルーチン（top） ############################################
sub top {
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
if ($FORM{'code'} ne '') { $bgc = $FORM{'bgcolor'}; }
$body = "";
if ($FORM{'code'} eq '') { $code = $title; }
if ($FORM{'search'} ne '') { $code = $FORM{'search'}; }
print "Content-type: text/html\n\n";
print "
\n";
print "
\n";
print "\n";
print "
自分の好きなテーマの掲示板を作れます。各掲示板は最後に投稿のあった日付けの順に\表\示されます。作成しても投稿がないと\表\示されません。掲示板や投稿の削除は一切できないので、全ての行動は自己責任で行ってください。
過去ログはここ。最新投稿一覧はここ。\n";
if ( $countlevel > 0 ){
print "$countdateから ";
&counter; print "$countplus（こわれにくさレベル$countlevel）\n";
}
#--- 記録記事の出力 ----------------------------------#
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
if (!open(DB,"$file")) { &error(0); }
@lines =
タイトル 記事登録件数 最終投稿日 \n";
$k = 0;
while ($k < $bbscount) {
$free = $bbs{$k};
print "$bbs{$k}
\n";
$k=$k+1;
}
print "
\n";
$k=$k+1;
}
print "\n";
$k = 0;
while ($k < $bbscount) {
print "$date{$k}
\n";
$k=$k+1;
}
print "
以上は、現在登録されている新着順$bbscount\個の掲示板です。記事は合計$logcount\件が保存されています。
\n";
print "\n";
exit;
}
# ログ読み用サブルーチン(logread)
###################################################
sub read{
if ($FORM{'code'} eq '') { $code = $title; }
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
$body = "";
if ($FORM{'code'} ne '') { $code = $FORM{'code'}; }
if ($FORM{'search'} ne '') { $code = $FORM{'search'}; }
if ($FORM{'def'} ne '') { $def = $FORM{'def'}; }
if ($def < $defmin) { $def = $defmin;}
$defnext = $def;
if ($defnext > $defmax) {$defnext = $defmax;}
print "Content-type: text/html\n\n";
print "
MiniBBS v7.5 REMIX 990620 is Free.
\n";
print "\n";
exit;
}
# 各投稿表示用サブルーチン #############################################################
sub disp {
$hpage0 =$hpage;
$hpage0 =~ s/$cgiurl\?action=search1\&search=(.*)\&id=\d*/参考：$1/;
$hpage0 =~ s/$cgiurf\?action=search1\&search=(.*)\&id=\d*/参考：$1/;
print "
MiniBBS v7.5 REMIX 990620 is Free.
";
print "$subject ";
if ($email ne '') { print "投稿者：$name\n"; }
else { print "投稿者：$name\n"; }
print " 投稿日：$date";
print " ■";
print " ★";
if (($himage ne'') && ($hpage ne'' )){ print " ◆\n"; }
if ($FORM{'code'} eq 'read') { print " $kode\n"; }
print "
\n";
}
# エラー処理サブルーチン ############################################################
sub error {
# &error(xx); で呼び出されたルーチンは、()内の数字が $error に代入される。
$error = $_[0];
if ($error eq "0") { $error_msg = '記録ファイルの入出力にエラーが発生しました。'; }
elsif ($error eq "2") { $error_msg = '内容が書かれていません。または記録禁止のタグが書かれています。'; }
elsif ($error eq "3") { $error_msg = 'メールアドレスが正しく入力されていません。'; }
elsif ($error eq "4") { $error_msg = 'メールアドレスは複数指定できません。'; }
elsif ($error eq "5") { $error_msg = '投稿内容が大きすぎます。'; }
elsif ($error eq "form") { $error_msg = "投稿画面のＵＲＬが$value
$cgiurl
" . '以外からの投稿はできません。'; }
elsif ($error eq "x") { $error_msg = "以下の情報が記録されました。けけ"; }
elsif ($error eq "xx") { $error_msg = "かわいそう"; }
elsif ($error eq 'xxx') { $error_msg = ' '; }
print "Content-type: text/html\n\n";
print "$error_msg
\n";
if ($error eq "x") {
while ( ($a,$b) = each %ENV) {
print "$a=$b
\n";
}
}
if ($error eq "xx") {
print "
\n";
}
print "\n";
exit;
}
# カウンター処理サブルーチン #########################################################
sub counter {
for( $i=0 ; $i < $countlevel ; $i++){
open(IN,"$countfile$i$countfiledat");
$count[$i] = \n";
print "
\n";
print "\n";
print "
\n";
print "\n";
print "
\n";
print "\n";
print "
\n";
print "\n";
print "
\n";
print "\n";
print "