phoenix2004 wrote:
我是7/29寄回的,...(恕刪)
www.apple.com.tw 不太穩
有時會出現
#!/usr/local/bin/perl
# \/www\/htdocs\/ # The real docroot of the redirect server
$path = $ENV{'REQUEST_URI'};
$| = 1;
$0 = "asiared";
require "./init";
#if ($path =~ /\/$/){
#$path = join("",$path,"index.html");
#}
$host = $ENV{'HTTP_HOST'};
$destURI = @matrix{$host};
$location = join("",$destURI,$path);
$location = $destURI if(@frontdoor{$host} eq "front");
$location = "http://www.apple.com/" if ($destURI eq "");
$htm = "<HTML><HEAD><TITLE>Found</TITLE></HEAD><BODY>\n
Found
This document has moved to a new location.\nPlease update your documents and hotlists accordingly. ";$end = "\n<!--httphost $ENV{'HTTP_HOST'}\nURI $ENV{'REQUEST_URI'}\n qs $QS\nenv $ENV{'QUERY_STRING'}-->\n</BODY></HTML>";
print <<"EOF"
HTTP/1.0 301 Found
Server: Apache/1.3.26 (Darwin)
Date: Tue Jun 1 12:48:03 PDT 1999 PDT
Location: $location
Content-type: text/html
EOF
;
$html = join("",$htm,$location,$end);
print 'Content-length: ' . length($html) . "\n\n";
print $html;
exit(0);

人間五十年、下天の内をくらぶれば、夢幻のごとくなり一度生を得て成せぬ者はあるべき か