- 閉店してしまったら開店できなくする -

※このプログラムを追加したことによって発生した損失は補償いたしかねます


・手順１（_config.cgiの編集）
ファイルが書かれているところに次の行を追加


$IP_BLOCK_FILE		= 'blockiplist';


・手順２（new.cgiの編集）
１０行目付近のエラー処理が並んでいるところに次を追加


	my $ipblockfile=GetPath($IP_BLOCK_FILE);
	open(IN,$ipblockfile);
	read(IN,my $listbuf,-s $ipblockfile);
	close (IN);
	my @ipblocklist=split(/,/,$listbuf);

	my $myip = GetTrueIP();
	foreach(@ipblocklist) {
	OutError('あなたは現在登録制限されています。') if($_ eq $myip);
	}


・手順３（new.cgiの編集）
１３０行目付近の
PushLog(1,0,$Q{sname}."が新装開店しました。") if !$DEFINE_FUNCNEW || !$DEFINE_FUNCNEW_NOLOG;
の直後に次を追加


	my $ipblockfile=GetPath($IP_BLOCK_FILE);

	open(IN,$ipblockfile);
	read(IN,my $listbuf,-s $ipblockfile);
	close (IN);
	my @ipblocklist=split(/,/,$listbuf);

	my $myip = GetTrueIP();
	my $blockipflug=0;
	foreach(@ipblocklist) {
		$blockipflug=1 if($_ eq $myip);
	}
	push @ipblocklist,"$myip" if(!$blockipflug);
	open(OUT,"> $ipblockfile");
	foreach(@ipblocklist) {
		print OUT "$_,";
	}
	close (OUT);


・手順４（main.cgiの編集）[※荒らし対策を超強化したいときだけ]
（他のPCで登録された場合にでもアクセス制限をする処理です）
{※登録したパソコン以外で遊んでしまうと登録したパソコンでは入れなくなります}
３行目付近の、Turn() の直前に次を追加


	my $ipblockfile=GetPath($IP_BLOCK_FILE);
	open(IN,$ipblockfile);
	read(IN,my $listbuf,-s $ipblockfile);
	close (IN);
	my @ipblocklist=split(/,/,$listbuf);

	my $myip = GetTrueIP();
	foreach(@ipblocklist) {
	OutError('あなたは現在アクセス制限されています。') if(!GetIPList(GetTrueIP()) && $_ eq $myip);
	}


星おしまい星


P.S.
ブロックIPのリストファイルは、
dataディレクトリ内に blockiplist.cgi という名前で保存され、
IPは , で区切られて保存されていきます。


（わかり易い例）
IP,IP,IP,…,IP,IP,

（詳しい例）
192.168.0.1,192.168.0.2,192.168.0.3,…,192.168.0.9,192.168.0.10,


製作者(http://www.bizinesu.com)