#!/usr/bin/perl

use CGI qw/:standard -no_xhtml/;

$script_name = $ENV{'SCRIPT_NAME'};
$script_name =~ s|\.cgi|\.php|;
#$newdest = 'http://www.clairval.com/lettre.php?language='.param("language");
#$newdest = 'http://www.clairval.com'.$ENV{'REQUEST_URI'};
$newdest = 'http://www.clairval.com'.$script_name."?".$ENV{'QUERY_STRING'};
$newdest =~ s/~vlaisney\///;
$newdest =~ s|clairval/cgi/||;
print header;
print start_html(-title => 'Redirection',
		 -head=>meta({-http_equiv => 'refresh',
			      -content => '0;url='.$newdest})
		 -head=>meta({-name => 'robots',
			      -content => 'noindex'}));

print '<div align="center">
<b>New address: </b><a href="'.$newdest.'">'.$newdest.'</a>
<p>Please update your bookmarks! 
</div>
';

print end_html;