?# このファイルは、「imWHOIS（高性能メタwhois）のデータ自動更新と改造方法」
# http://whois.sakaguch.com/SetImWhois.html
# で紹介していますimWHOISの改造部分のみを抽出したファイルです。
# imWHOISを改造したCGIファイルの再配布は、行なっておりませんので、
# 使用者ご自身で改造を行なって下さい。

# 2003年1月2日 作成：鷹の巣 
# 2004年3月4日 改版1　外部問い合わせに応じないwhoisサーバー対策


# 2004.03.04 外部問い合わせに応じないwhoisサーバー対策
# 例．不良whoisサーバー＝whois.enom.com、代替whoisサーバー＝whois.networksolutions.com
%rep_list = (
		"whois.enom.com","whois.networksolutions.com",
		"","",
		"",""
		);



	# 改造開始 2003.01.02
	# $nic = &pwhois'tld2nic($ipd,$conf'tld_list) if !$nic && $ipd;
	# $out = &pwhois'out($ipd,$nic,$conf'whois,$conf'wformat) if $nic && $ipd;

	if ( !$nic && $ipd ) {
		# ドメイン名検索の場合
		$nic = &pwhois'tld2nic($ipd,$conf'tld_list);
		if ($nic && $ipd) {
			$out = &pwhois'out($ipd,$nic,$conf'whois,$conf'wformat);
			if ( $out =~ /Whois Server:(.+)\n/i ) {
				$nic = $1;
				$nic =~ s/\s//; # 空白削除
				if ( $rep_list{$nic} ne "" ) { $nic = $rep_list{$nic}; }	# 2004.03.04 外部問い合わせに応じないwhoisサーバー対策
				$out = &pwhois'out($ipd,$nic,$conf'whois,$conf'wformat);
			}
		}
	} else {
		# IPアドレス検索の場合
		if ( $nic && $ipd ) {
			if (( $nic eq 'whois.apnic.net' ) && ( !$fd{'nic'} )) {
				# アジア/太平洋圏のwhoisデータベースの場合、まずJPNICを検索して見る
				$nicj = 'whois.nic.ad.jp';
				$out = &pwhois'out($ipd,$nicj,$conf'whois,$conf'wformat);
				if ( $out =~ /No match!!/i ) {
					$FlagJPNIC = 0;
				} else {
					$FlagJPNIC = 1;$nic = $nicj;
				}
			}
			$out = &pwhois'out($ipd,$nic,$conf'whois,$conf'wformat) if !$FlagJPNIC;
		}
	}
	# 改造終了 2003.12.29




		$out =~ s/\r\n/\n/g;			# infoドメイン検索時の不要改行削除 2004.01.29




	<option value="" selected>自動
	<option value="whois.nic.ad.jp">whois.nic.ad.jp:　　日本国
	<option value="whois.internic.net">whois.internic.net:国際(IPアドレスの検索不可)
	<option value="whois.apnic.net">whois.apnic.net:　　アジア/太平洋圏
	<option value="whois.arin.net">whois.arin.net:　　 北米とサブサハラ・アフリカ
	<option value="whois.lacnic.net">whois.lacnic.net:　南米とカリブ海の島
	<option value="whois.ripe.net">whois.ripe.net:欧州、中東、中央アジア、赤道以北のアフリカ