#!/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__