メルチャ♪氏の会議室で、個人宛メッセージを拒否する機能を追加する。
ただし登録を解除したり、存在しないIDを弾く機能とかはないので各自用意。
拒否リストを保存する変数として、$PL_VALUES[45]を利用している。

	sub REF_BBS		{require 'ebs_sub5.cgi';&REFUSE_BBS;}

	/^発言拒否$/ && do{
		my @REFUSE_LIST = split(/!/,$PL_VALUES[45]);
		push(@REFUSE_LIST,$FORM{'target'});
		my @REFUSE_LIST2 = join("!",@REFUSE_LIST);
		$PL_VALUES[45] = "@REFUSE_LIST2";
	last CUSTOM;};

	$sp.= "<input name=\"custom\" type=\"submit\" value=\"発言拒否\" $STYLE_B1 onClick=\"document.Ms.cmd.value='REF_BBS';\">";

	1;

sub REFUSE_BBS(){
	&LOCK;
		&DBM_CONVERT('P',"$FORM{pname}");
	&UNLOCK;
	&CUSTOM_HEADER('Main');
	&JScfm(checkRefuseBBS2,"発言拒否リスト（国家）に追加します。よろしいですか？");

	my @REFUSE_LIST = split(/!/,$PL_VALUES[45]);
	my $i=0;
	foreach(@REFUSE_LIST){
		$REFUSE_MEMBER .= "$REFUSE_LIST[$i]
\n";
		$i++;
	}

print <<"EOM";
	<TR><TD><input type="text" name="target"></TD></TR>
	<TR><TD><input name=\"Cmode\" type=submit value="発言拒否" $STYLE_B1 onClick="return checkRefuseBBS2()"></TD></TR>
	<TR><TH>現在の発言拒否者一覧</TH></TR>
	<TR><TD>$REFUSE_MEMBER</TD></TR>
	</FORM></TABLE>
EOM
	&FOOTER;
}

	@VS_VALUES = split(/\s/,$P{"$tokutei"});
	my @REFUSE_LIST = split(/!/,$VS_VALUES[45]);
	my $i=0;
	foreach(@REFUSE_LIST){
		if($REFUSE_LIST[$i] eq "$FORM{'pname'}"){
			$errcom = "あなたの発言は相手に拒否されています";&MAIN_PAGE;
		}
		$i++;
	}