$title

#!/usr/local/bin/perl ###################################################################### # # env.cgi Web環境変数の表示（i-mode対応） # Copyright (C) 2001-2002 Kiyoteru Onishi # URL http://www.kiyoproject.com/ ;; $rcsid = q$Id: env.cgi,v 1.0.5 2002/09/08 22:30:00 kiyo Exp $; # ###################################################################### # # ■使用許諾 # 本ソフトウェアはフリーソフトです。個人使用、業務使用に関わらず、以下 # の条件を満たす限りにおいてソースの改良、および再配布してかまいません。 # # 1. 上記著作権表示、下記免責事項を必ず含めてください。 # # 2. 再配布は、入手したファイルを全て含めた形で行ってください。 # # 3. 変更バージョンは、変更バージョンであることを明示してください。 # # 4. 変更を行った者は、それが誰であるかを明示し、変更日を明確にして # ください。 # # 本ソフトウェアは KIYO Project によって"現状のまま"提供されるものと # します。通常そなえるべき品質をそなえているとの保証も、特定の目的に # 適合するとの保証を含め、いかなる保証もなされません。本ソフトウェア # 使用による、損害発生の原因いかんを問わず、KIYO Project は責任を一切 # 負いません。 # # ■ファイル配置 # public_html -- cgi-bin # | # |-- env.cgi # # ■パーミッション # -------------------------------------------------- # ファイル名アクセス権 # -------------------------------------------------- # cgi-bin 755（ディレクトリ） # env.cgi 755（プログラム） # -------------------------------------------------- # ################################################################ ############## # 環境設定 # ############## # タイトル $title = '環境変数表示'; # タイトルカラー $t_color = '#ffffff'; # 文字コード設定 $charset = 'Shift_JIS'; # 表示縁取り線のサイズ $border = 3; $bground = ''; # 壁紙 $bgcolor = '#000000'; # 背景色 $text = '#ffffff'; # 文字色 $link = '#ffffff'; # 未読リンク色 $vlink = '#ff0000'; # 既読リンク色 $alink = '#ff0000'; # リンククリック時色 ############## # 設定終了 # ############## # ブラウザの種類 $agent = $ENV{'HTTP_USER_AGENT'}; # iモードならtrue、他はfalse $imode = ($agent =~ /^DoCoMo/); # バージョン情報 $version = $rcsid =~ /,v ([\d.]+)/ ? $1 : 'unkown'; # HTMLの表示 print <<"_HTML_"; # _HTML_までのデータを出力 Content-type: text/html _HTML_ if ($charset ne "") { print qq|\n|; } print qq|$title\n|; print qq|\n|; if (!$imode) { print qq|\n|; print qq|\n|; print qq|

\n|; print qq|$title\n|; print qq| Ver $version

\n|; print qq|\n|; } else { print qq|$title\n|; print qq|
\n|; } # 環境変数の表示 # 取得できる環境変数を全て表示する while (($a, $b) = each %ENV) { if ($a eq 'REMOTE_HOST') { $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($host eq "" || $host eq $addr) { $b = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr; } } # 他人に知られるとマズイ内容なので＊で隠蔽 # 表示したい場合は下4行をコメントにする if ($a eq 'DOCUMENT_ROOT') { $b = '**************'; } if ($a eq 'PATH') { $b = '**************'; } if ($a eq 'SCRIPT_FILENAME') { $b = '**************'; } if ($a eq 'SERVER_ADMIN') { $b = '**************'; } if (!$imode) { print "\n"; } else { print "$a=$b
\n"; } } if (!$imode) { print qq|
$a $b

\n|; print qq|

\n|; } else { print qq|\n|; # 著作権表示 <削除改変禁止> print qq|Copyright(C)
2002
\n|; # 著作権表示 <削除改変禁止> print qq|KIYO Project\n|; print qq|\n|; } print qq|\n|;