#!/usr/bin/perl @domain = split(/\./,$ENV{HTTP_HOST}); if (( scalar(@domain) > 2) && ( $ENV{HTTP_HOST} !~ /^www\./ ) || $ENV{SERVER_PORT} == "443" ) { #print "Content-type: text/html\n\n"; #print "
This is a sub domain"; #print "Status: 404 Moved Permanantly\n"; #print "Status: 404 Not Found\n"; print "Location: /404.html\n\n"; } else { #print "Location:http://searchportal.information.com/?a_id=47368&domainname=referer_detect"; #print "Status: 302 Found\n"; #print "Location: http://searchportal.information.com/?a_id=47368&domainname=" . $ENV{HTTP_HOST} . "\n\n"; print "Content-type: text/html\n\n"; print qq^ ^; } exit;