#!/usr/local/bin/perl
#------------------------------------------------------------------------------
# HTTP EnvironmentParameter Viewer (utf-8)
# v0.2.1(2006-7-23)
#
# atelier-blue 利都(rito)
# http://www.atelier-blue.com/
#------------------------------------------------------------------------------
&header('HTTP環境変数表示','./standard.css');
print '
作成:「Atelier Blue アトリエブルー」
';
print "HTTP環境変数表示
\n" ;
print "HTTPの環境変数を表示します。
\n" ;
print "";
&env_print("REMOTE_HOST","自分のホスト名");
&env_print("REMOTE_ADDR","自分のIPアドレス");
&env_print("HTTP_REFERER","直前まで見ていたページ");
&env_print("HTTP_USER_AGENT" ,"ブラウザや環境等の情報");
&env_print("HTTP_ACCEPT" ,"自分が受け付けるMIMEタイプ");
&env_print("HTTP_ACCEPT_LANGUAGE","自分が受け入れる言語の種類" );
&env_print("HTTP_ACCEPT_ENCODING","自分が受け入れ可能な
ファイルのエンコード方式" );
&env_print("HTTP_HOST" ,"自分がアクセスしている
ホスト情報(ホスト名:ポート)");
&env_print("HTTP_CONNECTION" ,"httpの接続方式");
print "
";
print "ソースコードはこちらにあります。役に立たないでしょうがどうぞ。ソースコード
";
print "CSS付きのzipファイルはこちら。zipファイル
";
print '';
print '作成:「Atelier Blue アトリエブルー」
';
&footer;
exit;
#----------------------------------------------------------------------#
#HTMLヘッダー書き出し
# 引数:HTMLのタイトル,headの拡張中身
# 返り値:特になし
# 呼び出し例:&header_plus('MyPage','') ;
#----------------------------------------------------------------------#
sub header_plus {
#引数としてHTMLのタイトルとheadの拡張中身を受け取る
my($html_title,$html_custom_head) = @_ ;
print "Content-Type: text/html; charset=utf-8\n\n" ;
print "\n" ;
print "\n" ;
print "\n" ;
print "\n" ;
print "$html_title\n" ;
print "$html_custom_head\n" ;
print "\n" ;
print "\n" ;
}
#----------------------------------------------------------------------#
#HTMLヘッダー書き出し
# 引数:HTMLのタイトル,スタイルシートのパス
# 返り値:特になし
# 呼び出し例:&header('MyPage','./css.css') ;
#----------------------------------------------------------------------#
sub header {
#引数としてHTMLのタイトルとBODYタグを受け取る
my($html_title,$css_path) = @_ ;
print "Content-Type: text/html; charset=utf-8\n\n" ;
print "\n" ;
print "\n" ;
print "\n" ;
print "\n" ;
print "$html_title\n" ;
if($css_path ne ""){
print "\n" ;
}
print "\n" ;
print "\n" ;
}
#----------------------------------------------------------------------#
#HTMLフッター書き出し
# 引数:特になし
# 返り値:特になし
# 呼び出し例:&footer ;
#----------------------------------------------------------------------#
sub footer {
print "\n";
}
#----------------------------------------------------------------------#
#HTTP環境変数をテーブルの1行形式で書き出し
# 引数:HTTP環境変数の名前,説明
# 返り値:特になし
# 呼び出し例:&env_print('REMOTE_HOST',"説明") ;
#----------------------------------------------------------------------#
sub env_print {
print "$_[0]";
if($_[1] ne ""){
print " $_[1]";
}
print " | ";
if($ENV{$_[0]} eq ""){
print "(none)";
}else{
print "$ENV{$_[0]}";
}
print " |
";
}
__END__