#!/usr/bin/perl
use CGI;
$query=new CGI;
print "Content-type: text/html\n\n";

$base_dir="/home/emeteor/www";
$rewriting="${base_dir}/redirect/baza_new.txt";

$host= $query->param('host');
$lang = $query->param('lang'); 

if (!$lang){ $lang = "polski" };

$base_dir_hot="${base_dir}/baza/${lang}";


open(RD, $rewriting) || die;

while (<RD>) {
	chomp;
	if (/^${host}:/){
		$red = (split(':'))[1];
		break;
	}
}
close (RD);

if ($red =~ /^$/) {

print "<meta http-equiv=\"refresh\" content=\"0;URL=http://www.emeteor.pl\">";	

} else {

	open(RD, "${base_dir_hot}/${red}") || die;
		while (<RD>) {
		print $_;
	}
}
close (RD);