#!/usr/bin/perl

use CGI qw/:standard/;

#print "Content-Type: text/html\n\n";
#print "<b>Service temporarily unavailable - please come back later</b>";
#exit 0;


$server = "clam-project.org";

if ($ENV{SERVER_NAME} eq "$server")
{
	print "Error. Please contact mdeboer\@iua.upf.es";
}

$url = "http://$server/$ENV{PATH_INFO}";

print redirect($url);

0;