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

#!/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]);