自鯖を見る

#!/usr/local/bin/perl ################################################################################ ### ### ### このスクリプトを、ご使用頂いた方にお願いです。(居ないと思いますが。^^;) ### ### ### ### ・コメント枠と枠内は削除・消去・変更・改造など、しないで下さい。 ### ### あと「ヘッダー部分」と「フッター部分」と「削除・変更禁止」箇所以外は ### ### 変更や改造など、ご自由ですが ### ### どうか、スクリプトを暴走させない範囲でお願い致します。 ### ### ### ### ・使用（変更・改造・その他）された際の、誤動作・暴走・損害・事故など ### ### 如何なる事態が起きても、ムンバさんは責任を負えません。 ### ### ### ### ・使用方法は常に変更する可能性がありますので ### ### 詳細はムンバさんのページ内にて、ご確認下さい。 ### ### ### ### ムンバさんのページ http://www6.airnet.ne.jp/rinoa/ ### ### ### ### 更新日：2008/8/12 ### ### by：ムンバさん ### ### ### ################################################################################ ############################## ### 外部ファイルの読み込み ### ############################## # require './jcode.pl'; ############################## ### サブルーチンの呼び出し ### ############################## # &decode;#デコード処理 &header;#ヘッダー呼び出し print <<"jisaba_miru"; $address jisaba_miru &footer; exit; # ########################## ### ↓以下サブルーチン ### ########################## # ############ # ヘッダー # ############ # sub header { print "content-type:text/html\n\n"; print < 自鯖を見る HEADER } ############ # フッター # ############ # sub footer { print <

ムンバさんのページ
by：ムンバさん

FOOTER } ################ # デコード処理 # ################ sub decode{ my $method = $ENV{'REQUEST_METHOD'}; my $buffer_length = $ENV{'CONTENT_LENGTH'}; if($method eq 'POST'){ read(STDIN,$buffer,$buffer_length); } else{ $buffer = $ENV{'QUERY_STRING'}; } my @data = split(/&/,$buffer); foreach $line(@data){ my ($name,$value) = split(/=/,$line); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); $value =~ s/&/&/g; $value =~ s//>/g; $value =~ s/<>/<>/g; $value =~ s/\r\n/
/g; $value =~ s/\r/
/g; $value =~ s/\n/
/g; $FORM{$name} = $value; } $address = $FORM{address}; }