#! /usr/bin/perl


# ------------------------
# DOMAIN SWITCH 
# (c) SB Brno On Line 2001
# ------------------------

	use CGI qw/:standard/;

#print "Content-Type: text/html; charset=windows-1250\n\n";

$domena3 =  lc $ENV{HTTP_HOST};

$domena2 = "www.";
$domena3 =~ s/$domena2//i;

$domena2 = ".brno-online.cz";
$domena3 =~ s/$domena2//i;

$domena2 = "brno-online.cz";
$domena3 =~ s/$domena2//i;

$prefix = $domena3;
$domena2 = "brno-online.cz";	#default zobrazovany alias hlavni domeny


if ( $domena3 eq "" ) {$domena3 = "bol/index.pl"; 	$prefix="www";}
if ( $domena3 eq "www" ) {$domena3 = "bol/index.pl"; $prefix="www";}
if ( $domena3 eq "dragonclub.cz" ) {$domena2 = "dragonclub.cz"; $domena3 = "shark/textpage.pl?sharkid=bdbc&sekce=home"; $prefix="www";}
if ( $domena3 eq "stools.dragonclub.cz" ) {$domena2 = "dragonclub.cz"; $domena3 = "stools/stools.pl?sharkid=bdbc"; $prefix="stools";}
#if ( $domena3 eq "fei-awards.spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "shark/textpage.pl?sharkid=fei&sekce=home&lang=en"; $prefix="fei-awards";}
if ( $domena3 eq "service-awards.spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "shark/textpage.pl?sharkid=sad&sekce=home&lang=cz"; $prefix="service-awards";}
if ( $domena3 eq "stools.fei-awards.spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "stools/stools.pl?sharkid=fei"; $prefix="www";}
if ( $domena3 eq "stools.spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "stools/stools.pl?sharkid=spin"; $prefix="www";}
if ( $domena3 eq "stools.spinhr.cz" ) {$domena2 = "spinhr.cz"; $domena3 = "stools/stools.pl?sharkid=sphr"; $prefix="www";}
if ( $domena3 eq "portal.spinhr.cz" ) {$domena2 = "spinhr.cz"; $domena3 = "stools/stools.pl?sharkid=sphr"; $prefix="www";}
if ( $domena3 eq "intra.spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "shark/textpage.pl?sharkid=spin&lang=cz&sekce=intra_kontakty"; $prefix="intra";}
if ( $domena3 eq "spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "spinware/cz/home"; $prefix="www";}
if ( $domena3 eq "test.spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "spinware/cz/home"; $prefix="test";}
if ( $domena3 eq "helpdesk.spinware.cz" ) {$domena2 = "spinware.cz"; $domena3 = "shark/hdissue.pl?sharkid=spin&lang=cz"; $prefix="www";}
if ( $domena3 eq "spinhr.cz" ) {$domena2 = "spinhr.cz"; $domena3 = "spinhr/cz/home"; $prefix="www";}
if ( $domena3 eq "new.spinhr.cz" ) {$domena2 = "spinhr.cz"; $domena3 = "spinhrnew/cz/home"; $prefix="new";}
#if ( $domena3 eq "jobbrno.cz" ) {$domena2 = "jobbrno.cz"; $domena3 = "shark/textpage.pl?sharkid=jobb&lang=cz&sekce=home"; $prefix="www";}





	# print redirect(-uri=>"http://$prefix.$domena2/$domena3");
	 print redirect(-uri=>"//$prefix.$domena2/$domena3");