Perl编写的三级域名转向程序

$domain=$ENV{‘SERVER_NAME’}; if ($domain eq “blog.muyu.org”) { $url=”http://youzi.cc/muyu/blog/“; } print “Content-type:text/html\n\n”; print qq( 〖html〗 〖head〗 〖title〗木鱼在线〖/title〗 〖meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″〗 〖/head〗 〖frameset cols=”0,*” frameborder=”NO” border=”0″ framespacing=”0″〗 〖frame scrolling=”NO” noresize〗 〖frame src=$url〗 〖/frameset〗 〖/html〗);