アッhan!
改造計画
道具箱 フリー素材集 ネチケット 書籍紹介 リンク集 お勧め情報 更新記録 FAQ  
Top Download Support Manual ご利用規定 改造計画 Security 関連知識  
 このページは、ご利用者の方が投稿、又は、公開された改造方法を紹介しています。
 方法を投稿、又は、公開していただいた方々に心より感謝いたします。
 また、この内容を元に配布スクリプトも改良して行こうと考えてます。
改造公開サイトご紹介
 アッhan! BBS 改造計画 ( はなごよみ )
 A! han! TIPS ( Bad Communication )
  目次  
 1; @nifty 設置方法 (Ver 2.50から試験搭載)
 2; 名無しさん禁止措置 (Ver 2.50から搭載)
 3; リモートホストのHTMLソース埋め込み
 4; 引用符( > )に色を付けるには (Ver 2.00βg4から実験搭載)
 5; Headline で所定期限内の投稿にマークを付けるには (Ver 2.50から搭載−マークは一つ)
 6; 各掲示板別に削除権を作るには

  1;@nifty 設置方法  
 「えぶねっとちゃんねる」の HaZE!! さんにより詳しく紹介されています。

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

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

  2;名無しさん禁止モード  
カンちゃんにより紹介されました。(カンちゃんのページ)(投稿内容

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";
                                }
                        }
# ここまで
  3;リモートホストのHTMLソース埋め込み  
カンちゃんにより紹介されました。(カンちゃんのページ)(投稿内容

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
#}
# ここまで
  4;引用符( > )に色を付けるには  
bunbunにより紹介されました。(投稿内容

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
}

  5;Headline で所定期限内の投稿にマークを付けるには  
鈴木Sさん により紹介されました。(投稿内容

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>";
	}
#####################################################################
  6;各掲示板別に削除権を作るには  
通りすがりの者です。さん により紹介されました。(投稿内容

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

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

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

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

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

 

Copyright© 2001, bunbun . All right reserved.