#!/usr/local/bin/perl # 各種環境変数の表示 # id=env.cgi # update=97.12.17 # HTML出力 print "Content-type: text/html\n\n"; print < ＣＧＩで利用できる環境変数

ここのＣＧＩで使用している環境変数　12/17


EOM print ''."\n"; print '●ＲＥＭＯＴＥ＿ＨＯＳＴ'."\n"; print ''."\n"; print '
クライアントのホスト名が入ります。つまりページを見ている人が接続しているサーバーの名前が入ります。正しく設定されない場合もあります。
'."\n"; print '$ENV{\'REMOTE_HOST\'}='.$ENV{'REMOTE_HOST'}."\n"; print '
'; if ($ENV{'REMOTE_HOST'} =~ /kumagaya.or.jp/) { print "同じプロバイバーですね、今後ともよろしくお願いします。" } else { print "そちらのプロバイダーはどうですか、ここもいいですよ" } print '

'; print ''."\n"; print '●ＨＴＴＰ＿ＵＳＥＲ＿ＡＧＥＮＴ'."\n"; print ''."\n"; print '
ブラウザの情報、ブラウザのプログラム名、バージョン等が入ります。
'."\n"; print '
'; print '$ENV{\'HTTP_USER_AGENT\'}='.$ENV{'HTTP_USER_AGENT'}."\n"; print '

'; print ''."\n"; print '●ＨＴＴＰ＿ＲＥＦＥＲＥＲ'."\n"; print ''."\n"; print '
ＣＧＩスクリプトやＨＴＭＬファイルを呼び出したページのＵＲＬ（１つ前のページのＵＲＬ）が入ります。この情報を送らないブラウザもあります。
'."\n"; print '$ENV{\'HTTP_REFERER\'}='.$ENV{'HTTP_REFERER'}."\n"; print '
'; print "\n"; ################ end of script ###################