ぜろちゃんねるアシストスクリプト

406 ：名無しさん＠ぜろちゃんねる：04/03/12 21:06 ID:???

>>404
$ENV{'PATH_TRANSLATED'}の利用もいいと思う。
WinのApache 2.0.48だとhttp://を含んだPATH_TRANSLATEDは空で返ってくるな。

if ($ENV{'PATH_INFO'}){
if ($ENV{'PATH_TRANSLATED'} eq '') {
$url = $ENV{'PATH_INFO'};
} else {
$url = $ENV{'PATH_TRANSLATED'};
}
$url =~ s|\\|\/|g;
$url1 = $ENV{'DOCUMENT_ROOT'};
$url1 =~ s|\\|\/|g;
$url =~ s/$url1//;
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/||g;
$prot = "$1:/";
if ($prot eq ':/') { $prot = "http:/"; }
$url .= $ENV{'QUERY_STRING'}? "?$ENV{'QUERY_STRING'}": '';
$url = "$prot$url";
}else{
$url = $ENV{'QUERY_STRING'};
$url =~ tr/+/ /;
$url =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/ pack('H2', $1) /eg;
$url =~ s|(\w+)?:\/\/||g;
$prot = "$1://";
if ($prot eq '://') { $prot = "http://"; }
$url = "$prot$url";
}