#!/usr/bin/perl

$query=$ENV{'QUERY_STRING'};
if ($query){$query=&Make_Url('index.php?'.$query)}
else {$query='index.php%3f'};
open(f,"< $query");
if(-e $query) {
	print "Content-type: text/html \n\n";
	while(<f>){
	   print $_;
	};
}
else {
	print "Location: http://www.aolf.fr/\n\n";
};
close(f);

sub Make_Url{

	local($temp)=$_[0];	
	local(@r,@l);

  $temp=~s/%3A/%3a/g;

	@r = ('\:','\?','\=','\&');
	@l = ('%3a','%3f','%3d','%26');
	for ($i=0;$i<=3;$i++){$temp=~s/$r[$i]/$l[$i]/g;};

	return $temp;
};