#!/usr/bin/perl
# Script réalisé par Félix-Antoine Paquin
# fap15@hotmail.com
# Copyright 2000

$url=$ENV{'QUERY_STRING'};
$url=&url_decode($url);
################################################
sub url_decode {
local ($s)=@_;
  #Il faut décoder les données transmises.
  $s=~ tr/+/ /;
  $s=~ s/%([0-9A-F][0-9A-F])/pack("C",oct("0x$1"))/ge;
  $s;
}
################################################  

# Creation de la page HTML
print "Content-Type: text/html\n\n";
print "<html><head><title>XC - l'ultime référence VTT</title>"; 
print "<meta name=\"Author\" content=\"Félix-Antoine Paquin\">"; 
print "<meta name=\"Robots\" content=\"noindex, nofollow\"></head>"; 
print "<FRAMESET ROWS=\"40,*\" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0>"; 
print "<FRAME NAME=\"topfr\" SRC=\"http://vtt.citeglobe.com/cgi-bin/redirection/topfr.html\" "; 
print "scrolling=\"auto\" MARGINWIDTH=0 MARGINHEIGHT=0><FRAME NAME=\"bottomfr\" "; 
print "SRC=\"$url\" MARGINWIDTH=0 MARGINHEIGHT=0><NOFRAMES><BODY></BODY>"; 
print "</NOFRAMES></FRAMESET></html>"; 
