imWHOISの設置方法（インターネット用CGI）

□解凍して出来たディレクトリ（フォルダ）の配置例□
D:\www\cgi-bin\whois\imWHOIS\im_whois.cgi
                    |       \im_whois.conf
                    |       \im_whois_check.cgi
                    \lib    \pwhosi.pl
                            \rirs.list
                            \tld.list

□WWWサーバーのURL□
http://www.example.com/cgi/whois/imWHOIS/im_whois.cgi
http://www.example.com/cgi/whois/imWHOIS/im_whois_check.cgi

./im_whois.cgi
        上記ファイルの実行権(x)が与えられていません <--- Windowsサーバーの場合は、これが出ても正常。

設置検査の結果、以上の問題点が見つかりました
各ファイルのレイアウト、パーミッション、ユーザ変数を確認し
問題点を修正した後に再びこのスクリプトで検査して下さい

# =================
# ユーザ変数
# =================

# pwhois.plの相対パス（im_whois.cgi基準）
        $pwhois_pl = '../lib/pwhois.pl';

# tld.listの相対パス（im_whois.cgi基準）
        $tld_list = '../lib/tld.list';

# rirs.listの相対パス（im_whois.cgi基準）
        $rirs_list = '../lib/rirs.list';

# whoisコマンドの絶対パス（Socket利用の場合は ''）
        $whois = '';  # <--- Windowsサーバーの場合は、Socketを利用するので、そのまま。

# whoisコマンドのフォーマット(whoisコマンド使用時のみ有効)
# 0で whois -h whoisserver domain (UNIX)形式
# 1で whois domain@whoisserver (Linux)形式
        $wformat = 0; # <--- Windowsサーバーの場合は、Socketを利用するので、そのまま。

# 時間表示オフセット値（秒数で指定）
        $tm_offset = 0;

# リンク元制限（設定したURL下のリンクでないと利用できなくなる）
# 注) ''とした場合は設置サーバからのリンクを受け入れる．
# 注) *は正規表現の.*と同じである．
# 注) わからない場合は 'http://*'とし、第三者にpwhoisの存在を教えないこと．
# 例) $allow_referer = 'http://servername/~myid/*';  # 自サイトから受入
#     $allow_referer = 'http://*';                   # 全リンク受け入れ
#     $allow_referer = '';                           <--- このままでは利用出来ない。
      $allow_referer = 'http://*'; #　　　　　　　　 <--- とりあえず、設置確認を優先にして、LAN内で利用する様に設定。

・・・後略・・・

・・・前略・・・

sub out{
        local($ipd,$nic,$out) = ($_[0],$_[1],$_[2]);
        if($ipd && $nic){
                &printWhois($ipd,$nic);
                print "\n$out\n</pre>\n";
        } elsif($nic){ # TLD LIST
        print $out;
        } else{
                &printHelp;
        print "\n$out\n</pre>\n";
        }
        print "\n<p style=\"text-align:right\"><a href=\"http://www.cgi-club.com/\">CGI倶楽部 imWHOIS</a></p>";
        print "\n</body>\n</html>\n";
}

・・・後略・・・

□解凍して出来たディレクトリ（フォルダ）の配置例（変更前）□
D:\www\cgi-bin\whois\imWHOIS\im_whois.cgi
                    |       \im_whois.conf
                    |       \im_whois_check.cgi
                    \lib    \pwhosi.pl
                            \rirs.list
                            \tld.list

□解凍して出来たディレクトリ（フォルダ）の配置例（変更後）□
D:\www\cgi-bin\whois\im_whois.cgi
      |             \im_whois.conf.cgi <--- WWWサーバーを通じて設定ファイルが見れないようにファイル名を変更する。※1
      |             \im_whois_check.cgi<--- このファイルは不要なので、削除するかファイル名を変更する。
      \cgi-lib\whois\pwhosi.pl         <--- ライブラリのディレクトリをWWWサーバーの実行パスの外に移動する。※2
                    \rirs.list
                    \tld.list

□WWWサーバーのURL□
http://www.example.com/cgi/whois/im_whois.cgi
http://www.example.com/cgi/whois/im_whois_check.cgi <--- これは、WWWサーバーから実行できなくする。

#!/usr/local/bin/perl
# ===========================================================================
# im_whois.cgi ver1.05
#   Copyright (C) 2000-2001 pika@cgi-club.com
#   IPv4アドレス・ドメイン名から所属組織を調査するスクリプト
# ===========================================================================
#local $SIG{__WARN__}=sub{&printMime;print "<pre>$_[0]</pre>\n";};
# =================
# 設置方法・使用方法
# =================

# im_whois.confを参照のこと．

# =================
# ユーザ変数
# =================

# im_whois.confの相対パス
	$im_whois_conf = './im_whois.conf.cgi'; # <--- 設定ファイル名を変更したのに伴う変更。※1


・・・後略・・・

# =================
# ユーザ変数
# =================

# pwhois.plの相対パス（im_whois.cgi基準）
        $pwhois_pl = '../../cgi-lib/whois/pwhois.pl'; # <--- ライブラリのディレクトリを移動したのに伴う変更。※2

# tld.listの相対パス（im_whois.cgi基準）
        $tld_list = '../../cgi-lib/whois/tld.list';   # <--- ライブラリのディレクトリを移動したのに伴う変更。※2

# rirs.listの相対パス（im_whois.cgi基準）
        $rirs_list = '../../cgi-lib/whois/rirs.list'; # <--- ライブラリのディレクトリを移動したのに伴う変更。※2

# whoisコマンドの絶対パス（Socket利用の場合は ''）
        $whois = '';

# whoisコマンドのフォーマット(whoisコマンド使用時のみ有効)
# 0で whois -h whoisserver domain (UNIX)形式
# 1で whois domain@whoisserver (Linux)形式
        $wformat = 0;

# 時間表示オフセット値（秒数で指定）
        $tm_offset = 0;

# リンク元制限（設定したURL下のリンクでないと利用できなくなる）
# 注) ''とした場合は設置サーバからのリンクを受け入れる．
# 注) *は正規表現の.*と同じである．
# 注) わからない場合は 'http://*'とし、第三者にpwhoisの存在を教えないこと．
# 例) $allow_referer = 'http://servername/~myid/*';  # 自サイトから受入
#     $allow_referer = 'http://*';                   # 全リンク受け入れ
#     $allow_referer = '';                        　   <--- このままでは利用出来ない。
      $allow_referer = 'http://www.example.com/*';　 # <--- インターネットWWWサーバーに公開する場合に自サイトから受け入れとする。

・・・後略・・・

<!-- imWHOIS -->
<form method="post" action="http://www.example.com/cgi/whois/im_whois.cgi">
<p>
<a href="http://www.cgi-club.com/"><strong>CGI倶楽部 imWHOIS</strong></a>
　　<small>IPアドレスかドメイン名を入力→</small>
<input type="text" name="ipd" size="30" value="" tabindex="30" accesskey="T" />
<input type="hidden" name="nic" value="" />
<input type="submit" name="x" value="検索" tabindex="31" accesskey="S" />
</p>
</form>