#!/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(){ 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; };