#!/usr/bin/perl

$mainpage 	= "index.html";


%domains = (
		'www.seemafashions.com'	=> 'seema/',
		'www.narasimhan.com'	=> 'narasimhan/',
		'www.priestkrishnamurthy.com'	=> 'priestkrishnamurthy/',
		'www.shyamestates.com'	=> 'shyamestates/',
);

$server = lc($ENV{'HTTP_HOST'});if ($ENV{'HTTP_HOST'} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/){$t='/'}else{if ($server !~ /^www./){$server = 'www.' . $server;}}@domains = keys(%domains);foreach $domain(@domains){if ($domain eq $server){print "Location: http://${server}/$domains{$server}\n\n";$match="yes";last;exit}}unless ($match){print "Location: http://$server/$mainpage\n\n";exit}exit;