「えぶねっとちゃんねる」記載スレッド  (現在は存在しません)

　（ 備考 ）Ver 1.06　を元に記述されていました。

mibbs.cgiの255行目

（if ($name eq "") { $name = "$nanashi"; }）

の部分を以下のように改造すると、「名前が書いていないときの「名前欄」」を
pref.cgiか管理者画面で「名無し禁止」という名前に設定しておくと、その板が
名無し禁止モードになります。

# 255行:名無し禁止機能追加
#                       if ($name eq "") { $name = "$nanashi"; }
                        if ($name eq "") {
                              if (($nanashi eq '名無し禁止') && ($pwd ne $master_pass)) {
                        &error("名無し投稿はできません。必ず名前を入力してください","no");
                              } else {
                                        $name = "$nanashi";
                                }
                        }

# ここまで

mibbs.cgiの912行目あたりの部分を変更
# 912行:リモートホスト埋め込み機能追加

$dat_c="./$folder/$folder _$thre_no c . $extension";
$dat_c=~ s/\s//g;
if (open(LOG,$dat_c)){
        @c1st = <LOG>;
        close(LOG);
}
if(@c1st){
        foreach $datac (@c1st) {
                chop($datac);
                ($mark_no,$r_host,$c_date) = split(/<>/,$datac);
                if($no eq $mark_no){
                        $host_a = $r_host
                }
        }
}
$threadres_a=(<<"EOF");
<dt>$no: 名前：<font color="$name_col"><b>$name<!-- $host_a --></b></font>
<font size="2">投稿日：$date</font><dd>$msg $space3
EOF
}

#$threadres_a=(<<"EOF");
#<dt>$no: 名前：<font color="$name_col"><b>$name</b></font>
#<font size="2">投稿日：$date</font><dd>$msg $space3
#EOF
#}

# ここまで

mibbs.cgiの中で

■準備として下記部分を修正 sub threadres_a {　の中の

	$msg = "$aaa\<br>＜省略されました＞　<a href=\"$url_a$script?mode=point
		&fol=$folder&tn=$thre_no&rs=$no&re=$no&rf=no&al=on\"
		 target=\"\_new\">[全文を見る]<\/a>";

　　　　　　　　　　　　　　　　▼変更

	$msg = "$aaa\</font><br>＜省略されました＞　<a href=
		\"$url_a$script?mode=point&fol=$folder&tn=$thre_no&rs=$no&re=$no
		&rf=no&al=on\" target=\"\_new\">[全文を見る]<\/a>";

■書き込み追加部分（引用符処理部分） sub threadres_a {　の中の

　　　　　$threadres_a=(<<"EOF");

　　の直前に下記のようにソースを追加する

#################追加部分############################################
	$msg_x="";
	$msg_l="";
	$msg_x="";
	@msg_l=split(/<br>/,$msg);
	foreach $msg_l (@msg_l) {
		$msg_l =~ s/^>(.*)/\<font color\=\"#b222222\"\>>$1\<\/font\>/g;
		$msg_l =~ s/^＞(.*)/\<font color\=\"#b222222\"\>＞$1\<\/font\>/g;
		$msg_l ="$msg_l<br>\n";
$msg_x =(<<"EOF");
$msg_x$msg_l
EOF
	}
	$msg=$msg_x;
#####################################################################

$threadres_a=(<<"EOF");
<dt>$no: 名前：<font color="$name_col"><b>$name</b></font>
<font size="2">投稿日：$date</font><dd>$msg $space3
EOF
}

headline.cgiのsub meke_list中で
if ($nolog <= $thre_to) {　の直後に

#################追加部分############################################
	$nowtime = time;
	$ftime = (stat($dat_a))[9];
	$filetime1 = $ftime +( 1*24*60*60 );
	$filetime2 = $ftime +( 7*24*60*60 );
	if ($nowtime < $filetime1 ){
		print "<font color=\"red\">★</font>";
	}elsif ($nowtime < $filetime2 ){
		print "<font color=\"blue\">★</font>";
	}
#####################################################################

・mibbs.cgi、mente.cgi、board.cgi、pref.cgiの４つをリネーム。
・リネームした部分はpref.cgiと各cgi冒頭のrequire文の対応部分を訂正。
・boad.cgi文はオリジナルをＤＬしてきて、権限を与えたい部分以外は削除
　（そうするとリストにその板しか現れなくなります）

で、mente.cgiは、は1016行目あたりの

■　<a href=\"$url_sf$mente?mo=mk_fm&pwd=$pwd\">新規掲示板の作成</a>

の部分は削除しておいた方が後々混乱無いと思います。
　　（※余分な引数部分・特にディレクトリ引数は、使えないようにする。）

他のスレッド操作などの機能の削除もhtmlタグの知識があれば修正可能かと思います。
（それぞれリンクの文字を検索して判断してください）