#!/usr/bin/perl
##################################################################
# Program : env.cgi(Perl)
# Date_written : 1999,11,01
# Author : 良寛
##################################################################
print "Content-type: text/html\n\n";
print "\n";
print "
環境変数\n";
print "\n";
print "HTTP_ACCEPT = [ $ENV{'HTTP_ACCEPT'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したマシンのブラウザが直接表示できる
# Content-typeの一覧
# ------------------------------------------------------------
print "HTTP_ACCEPT_LANGUAGE = [ $ENV{'HTTP_ACCEPT_LANGUAGE'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したマシンのブラウザが理解できる各国語
# ------------------------------------------------------------
print "HTTP_REFERER = [ $ENV{'HTTP_REFERER'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したリンク元のURL
# ------------------------------------------------------------
print "HTTP_USER_AGENT = [ $ENV{'HTTP_USER_AGENT'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したマシンのブラウザ名、バージョン
# ------------------------------------------------------------
print "REMOTE_ADDR = [ $ENV{'REMOTE_ADDR'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したマシンのIPアドレス。ダイアルアップ
# 接続の場合、その時接続されているプロバイダ側のサーバ名
# ------------------------------------------------------------
print "REMOTE_HOST = [ $ENV{'REMOTE_HOST'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したマシンのホスト名。ダイアルアップ接続
# の場合、その時接続されているプロバイダ側のサーバ名
# ------------------------------------------------------------
print "SCRIPT_FILENAME = [ $ENV{'SCRIPT_FILENAME'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したスクリプトの名前
# ルートディレクトリからのフルパスが得られます。
# ------------------------------------------------------------
print "SCRIPT_NAME = [ $ENV{'SCRIPT_NAME'} ]
\n";
# ------------------------------------------------------------
# プログラムを呼び出したスクリプトの名前
# SERVER_NAMEと組み合わせて使います。
# ------------------------------------------------------------
print "SERVER_NAME = [ $ENV{'SERVER_NAME'} ]
\n";
# ------------------------------------------------------------
# サーバのホスト名
# ------------------------------------------------------------
print "SERVER_PORT = [ $ENV{'SERVER_PORT'} ]
\n";
# ------------------------------------------------------------
# サーバのポート番号
# ------------------------------------------------------------
print "SERVER_PROTOCOL = [ $ENV{'SERVER_PROTOCOL'} ]
\n";
# ------------------------------------------------------------
# サーバプロトコルの名前およびバージョン
# ------------------------------------------------------------
print "SERVER_SOFTWARE = [ $ENV{'SERVER_SOFTWARE'} ]
\n";
# ------------------------------------------------------------
# Apacheのバージョン
# ------------------------------------------------------------
print "GATEWAY_INTERFACE = [ $ENV{'GATEWAY_INTERFACE'} ]
\n";
# ------------------------------------------------------------
# サーバが実行しているCGIのバージョン
# ------------------------------------------------------------
print "TZ = [ $ENV{'TZ'} ]
\n";
# ------------------------------------------------------------
# サーバにセットされているタイムゾーン(地方時間帯)
# ------------------------------------------------------------
print "\n";
print "\n";