#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
my $dominio=$ENV{'SERVER_NAME'};

if ($dominio =~ /^www\./) {
	$directorio=substr($dominio,4,1);
} else {
	$directorio=substr($dominio,0,1);
}

if ($directorio =~ /[a-n]/) {
	$ruta="5b";
} else {
	$ruta="5c";
}

print "<html><head><FRAMESET rows='*'>";
print "<FRAME src='http://urchin.acens.net/urchin$ruta/htdocs/session.cgi'></FRAMESET>";
print "</head></html>";
exit();
