同一虚拟主机使用两个域名

#!/usr/bin/perl -w
$domain=$ENV{‘SERVER_NAME’};
if ($domain eq “www.ywsy.net”) { $url=”ywsy.html”; }
if ($domain eq “www.acsy.com”) { $url=”acsy.html”; }
print “Content-type:text/html\n\n”;
print qq(
[html]
[head]
[meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″]
[meta http-equiv=”refresh” content=”0;url=./$url”]
[title]域名转发[/title]
[/head]
[body]
[/body]
[/html]);