imWHOIS は「IPアドレス」または「ドメイン名」から所属組織を調査します。
「Socketモジュール」または「WHOISコマンド」が利用可能なサーバで動作します。
# =================
# 利用規定
# =================
# http://www.cgi-club.com/im/regulation.html に拠る.
# =================
# 使用上の注意
# =================
# im_whois.cgiの使用に際し、以下の点条件を守ること.
# ・レスポンスが悪いサーバでの使用は避けること.
# ・改造する場合はローカル環境で充分なデバグを行った後に使用すること.
# ・得られた情報を特定個人・団体に対応させる形で公開しないこと.
# ・各NICのwhoisデータベース利用規定を厳守すること.
# 注) whoisサーバに対応するNICのホームページアドレスは
# tld.list(テキストデータ)に記載されています.
# im_whois.cgiの出力はJPNIC日本語出力に合わせJISコードとなっている.
# ブラウザの文字コードは必ずJISコードに設定すること.
# 注) JISコード以外の2バイト文字を出力するWHOISサーバのデータは文字化けする.
# 注) ソースはSJISなので日本語表示をさせる改造は文字コードに注意すること.
# =================
# 設置方法
# =================
# ダウンロードした圧縮ファイルを解凍する.
# 注) 編集可能なファイルは全てテキストエディタで開くことが可能である.
# 注) 編集可能したファイルは元の文字コードで保存すること.
# 拡張子'cgi'のファイルのインタプリンタ行を自分のサーバに合わせる.
# 注) インタプリンタ行とは #!/usr/local/bin/perl と書かれた行である.
# im_whois.confのユーザ変数を必要に応じて編集する.
# 注) 設置に自信がない場合は一切編集しないで次のステップに進むこと.
# 注) コメントを参考にしてスペルミスに注意して編集すること.
# 各ファイルを以下に示すレイアウトでWebサーバに配置する.
#
# cgi-bin [DIR/755]
# ├ lib [DIR/755]
# │ ├ pwhosi.pl [ASCCI/604]
# │ ├ tld.list [ASCCI/604]
# │ └ rirs.list [ASCCI/604]
# └ imWHOIS [DIR/755]
# ├ im_whois.cgi [ASCCI/705]+
# ├ im_whois.conf [ASCCI/604]*
# └ im_whois_check.cgi [ASCCI/705]+
#
# 注) im_whois.confは必ずim_whois.cgiと同じディレクトリに配置すること.
# 注) *ファイルはユーザが環境に合わせ編集するファイルである.
# 注) +ファイルはインタプリンタ行の確認・編集が必要なファイルである.
# 注) [ ]内は [転送モード/パーミッション]を示す.
# 注) パーミッション設定はサーバ管理者の指示を優先すること.
# 注) cgi-binディレクトリ は Perlスクリプトが実行可能であること.
# 注) im_whois_check.cgiは設置検査用スクリプトで必須ではない.
# ブラウザからim_whois_check.cgiをリクエストし設置状態を検査する.
# 注) 問題がないと表示されれば設置完了である.
# =================
# 使用方法
# =================
# ブラウザからim_whois.cgiをリクエストする.
# 入力フォームが表示されるので [IP or Doami]欄に半角文字で
# IPアドレスかドメイン名を入力し[Check]ボタンを押す.
# 注) IPアドレスは 255以下の数値を'.'で区切り4セット並べて記述.
# 注) ドメイン名はサーバ名を含まない'英数字','-','_','.'で記述.
# 注) whoisサーバを強制変更したい場合は[WHOIS Server]リストボックスから選択.
# サーバから応答があり入力データに対する情報が表示される.
# =================
# ユーザ変数
# =================
# 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 = '';
# whoisコマンドのフォーマット(whoisコマンド使用時のみ有効)
# 0で whois domain@whoisserver (Linux)形式
# 1で whois -h whoisserver domain (UNIX)形式
$wformat = 0;
# 時間表示オフセット値(秒数で指定)
$tm_offset = 0;
# リンク元制限(設定したURL下のリンクでないと利用できなくなる)
# 注) ''とした場合は設置サーバからのリンクを受け入れる.
# 注) *は正規表現の.*と同じである.
# 注) わからない場合は 'http://*'とし、第三者にpwhoisの存在を教えないこと.
# 例) $allow_referer = 'http://servername/~myid/*'; # 自サイトから受入
# $allow_referer = 'http://*'; # 全リンク受け入れ
$allow_referer = '';
# =================
# ファイル互換表
# =================
# 下表のバージョン番号の組み合わせ以外は動作を確認していない.
# 注) x印はセキュリティ上の問題があるため使用しないこと.
# 注) *印は機能面で致命的な問題があるため使用しないこと.
# +------------+-------------+------------------+---------+--------+---------+
# |im_whois.cgi|im_whois.conf|im_whois_check.cgi|pwhois.pl|tld.list|rirs.list|
# +------------+-------------+------------------+---------+--------+---------+
# |1.05 |1.01 |1.00 |1.03 |1.00 |1.00 |
# +------------+-------------+------------------+---------+--------+---------+
# |1.04 |1.00 |1.00 |1.03 |1.00 |1.00 |
# | | | |1.02 | | |
# +------------+-------------+------------------+---------+--------+---------+
# |1.03 | | | | | |
# +------------+-------------+------------------+---------+--------+---------+
# |1.02 | | | | | |
# +------------+-------------+------------------+---------+--------+---------+
# |1.01 x | | | | | |
# +------------+-------------+------------------+---------+--------+---------+
# |1.00 x | | | | | |
# +------------+-------------+------------------+---------+--------+---------+
# =================
# 個別ダウンロード
# =================
# ファイル互換表に記載された最新バージョンである.
#
im_whois.cgi
im_whois.conf
im_whois_check.cgi
pwhois.pl
rirs.list
tld.list