sub arashi_check{

my @kinshi_word = (
	'clinic.chu.jp',
	'cocorohappy.blog33.fc2.com',
	'googlle.jp',
	'phlog.net',
	'ctba.inspidered.com',
	's2.muryo-de.etowns.net/~marma/',
	'kokoronet.org',
	'bbs69.net',
	'heavens-gift.st',
	'csx.jp/~happy_site/',
	"≪規約同意済み≫\n≪厳しいアドバイス",
	'ditionn_juo102_aa@yahoo.co.jp',
	'site.ne.jp',
	'ninja.page.ne.jp',
	'yuta_kakasi_002',
	'サニー女性探偵社',
	'sunny-tantei.com',
	'hibiki1919',
	'pochat.tv',
	'illegal.jp',
	'melonjuice.fc2web.com',
	'karadanayami.blog22.fc2.com',
	'450.jp',
	'night-0423.com',
	'deai-ciao.net',
	'a-x@hotmail',
	'kakiko.com',
	's-v@hotmail',
	'erica24.fc2web.com',
	'yuriyuriyurika@hotmail',
	'aandn.jp',
	'A&N総合調査事務所',
	'12012.com',
	'venus@s8.x-beat.com',
	'venusnet.pimp.fc2.com',
	'e-city.tv',
	'jewel-business.com',
	'married2',
	'erox.tv',
	'.cx',
	'人妻交際クラブ',
	'女性登録会員',
	'artemisweb.jp',
	'女性紹介所ランキング',
	'freexy.net',
	'erox.tv',
	'日本呪術研究呪鬼会',
	'urami.net',
	'wagamama.muvc.net',
	'homomo.net',
	'cfyhcyfg',
	'lovers.cx',
	'藤澤竜哉',
	'f-tatsuya.e-yazawa',
	'080-5594-6375',
	'excellent.s1.freexy.net',
	'h-excellent.cx',
	'lgene.asianfreehost.com',
	'perfections.cx',
	'kikiki.jp',
	'mistres.cx',
	'e_flashlight',
	'breh.com/welovejeans',
	'hayami0924jiro',
	'はやみじろう',
	'ガハハハハ',
	'無駄　無駄　無駄',
	'無駄 無駄 無駄',
	'地獄へ堕ちろ',
	'地獄へ落ちろ',
	'地獄へおちろ',
	'じごくへおちろ',
	'インポ野郎',
	'フェタチオ',
	'チン●を誰か舐め舐め',
	'チン○を誰か舐め舐め',
	'おいっ！ありんこ',
	'おいっ！四つ葉',
	'おいっ！ともとも',
	'おいっ！チコリー',
	'孕ませてやる',
	'淫乱四つ葉',
	'淫乱ともとも',
	'淫乱ありんこ',
	'淫乱チコリー',
	'包茎管理人',
	'○漏れ日最高',
	'木漏れ日最高',
	'○そっぷ様',
	'いそっぷ様',
	'荒れが足りなくてごめんなさい',
	'チン○をぶち込む',
	'四つ葉ちゃんの、お○こ',
	'四つ葉ちゃんの、おっぱい',
	'四つ葉の下の口',
	'ありんこの下の口',
	'ともともの下の口',
	'チコリーの下の口',
	'ここの管理人は能なし',
	'極悪管理人',
	'極悪、管理人',
	'極悪　管理人',
	'極悪 管理人',
	'極悪な管理人',
	'管理人は極悪',
	'管理人は、極悪',
	'すぐ消す極悪',
	'屑ども',
	'屑の管理人',
	'クズの管理人',
	'屑管理人',
	'クズ管理人',
	'屑の粘着野郎',
	'糞の管理人',
	'クソの管理人',
	'糞管理人',
	'クソ管理人',
	'管理人がせこい事',
	'この糞サイト',
	'このクソサイト',
	'この屑サイト',
	'このクズサイト',
	'社会の糞',
	'ﾌﾟﾌﾟ無駄無駄',
	'ププ無駄無駄',
	'free2.sytes.net/cgi-bin/komo/ansq.cgi',
	'beatum.jp',
	'hikikomo2.cool.ne.jp',
	'我々は何度でも復活する',
	'木漏れ日は何度でも復活する',
	'チコリー死ね',
	'四つ葉死ね',
	'ともとも死ね',
	'ありんこ死ね',
	'不眠の番人死ね',
	'警察庁死ね',
	'（＾∀＾）馬鹿',
	'管理人がダウンするまでは戦うぜ',
	'閉鎖するまで荒ら',
	'好い国作ろう鎌倉幕府',
	'四つ葉って',
	'チコリーって',
	'ありんこって',
	'不眠の番人って',
	'ともともって',
);

	my $text = shift;
	foreach my $tmp (@kinshi_word){
		if(0 <= (index $text, $tmp)){
			&arashi_syori($text);
		}
	}

my @kinshi_name = (
	'底辺モノ',
	'底辺ﾓﾉ',
	'底辺者',
	'底辺もの',
	'teihenmono',
	'TEIHENMONO',
	'ていへんもの',
	'テイヘンモノ',
	'ﾃｲﾍﾝﾓﾉ',
	'極鳥',
	'nishi',
	'夏の太陽',
	'プロの荒らし屋',
	'藤澤竜哉',
);

	foreach $tmp (@kinshi_name){
		if($::FORM{'name'} eq $tmp){
			&arashi_syori;
		}
	}
}


sub arashi_syori{
	### 環境情報の取得
	my $text = shift;
	my $remote_addr = $ENV{'REMOTE_ADDR'}; 
	my $remote_host = $ENV{'REMOTE_HOST'}; 
	if($remote_host eq '' or $remote_host eq $remote_addr){ 
		$remote_host = gethostbyaddr(pack('C4',split(/\./,$remote_addr)),2); 
		if($remote_host eq ''){ $remote_host = $remote_addr; }
	}
	my $ht_path = ();
	if( -e "../.htaccess"){ $ht_path = '../.htaccess'; }
	elsif( -e "../../.htaccess"){ $ht_path = '../../.htaccess'; }
	open DATA, ">>$ht_path";
	print DATA "\# $tmp\n";
	print DATA "deny from $remote_host\n";
	close DATA;

	### 時間の取得
	my @mYOUBI = qw/Sun Mon Tue Wed Thu Fri Sut/;
	my ($nSEC,$nMIN,$nHOUR,$nDAY,$nMON,$nYEAR,$nWDAY) = (localtime)[0,1,2,3,4,5,6];
	$nYEAR += 1900;
	$nMON += 1;
	if($nMON  < 10){ $nMON  = "0$nMON"; }
	if($nDAY  < 10){ $nDAY  = "0$nDAY"; }
	if($nHOUR < 10){ $nHOUR = "0$nHOUR"; }
	if($nMIN  < 10){ $nMIN  = "0$nMIN"; }
	my $sCURRENT_TIME = sprintf("%04d\/%02d\/%02d(%s)%02d\:%02d" ,$nYEAR,$nMON,$nDAY,$mYOUBI[$nWDAY],$nHOUR,$nMIN);

	#-- メール送る
	my $sHTTP_REFERER = $ENV{'HTTP_REFERER'};
	$sHTTP_REFERER =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	open MAIL, "|/usr/sbin/sendmail -t";
	print MAIL "$mail_header";
	print MAIL "from: f_burning\@open-heart\.sakura\.ne\.jp\n";
	print MAIL "To: f_burning\@open-heart\.sakura\.ne\.jp\n";
	print MAIL "Subject: arashi word\n";
	print MAIL "\n";
	print MAIL "$sHTTP_REFERER\n\n";
	print MAIL "$sCURRENT_TIME\n$remote_host\n$remote_addr\n$agent\n$ENV{'HTTP_CACHE_CONTROL'}\n$ENV{'HTTP_CACHE_INFO'}\n$ENV{'HTTP_CLIENT_IP'}\n$ENV{'HTTP_FORWARDED'}\n$ENV{'HTTP_IF_MODIFIED_SINCE'}\n$ENV{'HTTP_PROXY_CONNECTION'}\n$ENV{'HTTP_SP_HOST'}\n$ENV{'HTTP_TE'}\n$ENV{'HTTP_VIA'}\n$ENV{'HTTP_X_FORWARDED_FOR'}\n$ENV{'HTTP_X_LOCKING'}\n$ENV{'HTTP_XONNECTION'}\n$ENV{'HTTP_XROXY_CONNECTION'}\n$text\n";
	close MAIL;

	$LOCATION = 'http://bbs.kokoronoiyashi.net/onegai.html';
	print "Location: $LOCATION\n\n";
	exit;
}

1;