一段判断来访域名的asp代码，有高手能将他转成php的吗？

以下是ASP代码：

Dim domains(4)
domains(1)="www.1111.cn"
domains(2)="www.2222.cn"
domains(3)="www.3333.cn"
domains(4)="www.4444.com"

Dim authed
Dim domain
authed=false
domain=LCase(Request.ServerVariables("SERVER_NAME"))
For i=1 To 4
  If InStr(domain,domains(i))<>0 Then
   authed=True
   Exit For
  End If
Next
If Not authed Then
  Response.Redirect("http://www.5555.com")
End If


请高手将他写成PHP，谢谢！！

中国楼盘网-最有发展潜力的网站-诚聘技术精英
中国楼盘网招聘技术精英

1800-3000的薪水+食宿+年终奖+股权（看能力和人品而分配）
工作地点长沙,优先已经在长沙，或者湖南人在外地，回长沙发展的精英
联系电话：0731-7586666  戴跃  请先发您的建立  592952888@qq.com

程序员要求：
1、计算机专业或者相关专业学历优先；   
2、精通ASP+SQLSERVER的开发，能独立承担商业动态网站前后台程序的设计与开发工作，能完成较复杂的网站功能。
2、熟练ASP.NE开发
4、会基本的一些美工技能，请放心，我们不会要求一个程序员有多高的美工技能
5、有良好的学习能力、沟通能力和领悟能力   
6、有良好的团队合作意识，耐心、诚恳，有强烈的责任心和积极主动的工作态度。  
7、经验不足的，公司可以培养，但是要有学习精神.另外希望应聘者有在公司长期发展的意愿

美工要求：
1)精通DreamWeaver,Photoshop,Flash,Fireworks等工具，有自己独立制作的作品；
　 2)熟练运用Html, CSS,DIV编写网页，熟练使用DIV+CSS布局；
　 3)1年以上网页设计与美工工作经验，能独立完成静态网站设计与制作；
　 4)对电子商务类网站的界面及用户交互设计有一定的经验和理解；
　 5)思维活跃、富有创意;
　 6)动手能力强、工作效率高；
　 7)工作积极主动，富有主人翁精神，愿通过努力工作与公司共同成长

www.LouPan.com    中国楼盘网，网络天下楼盘