Staff_Alex
26/04/2004, 10h46
la plupart des scripts perl (cgi) ont une protection pour ne pas etre excetuté depuis un autre site que le tient
style:
@sites =
(
'www.monsite.com',
'monsite.com'
);
if ($ENV{'HTTP_REFERER'})
{
foreach $executeur (@sites)
{
if ($ENV{'HTTP_REFERER'} =~ /$executeur/i) { $url_ok = '1'; last; }
}
}
else { $url_ok = '1'; }
if ($url_ok != 1) { &erreur ("ERREUR
Vous n'êtes pas autorisé à utiliser ce script à cette adresse
$ENV{'HTTP_REFERER'}"); }
voila rajoute ça au début de ton script apres la declaration des vraiables
style:
@sites =
(
'www.monsite.com',
'monsite.com'
);
if ($ENV{'HTTP_REFERER'})
{
foreach $executeur (@sites)
{
if ($ENV{'HTTP_REFERER'} =~ /$executeur/i) { $url_ok = '1'; last; }
}
}
else { $url_ok = '1'; }
if ($url_ok != 1) { &erreur ("ERREUR
Vous n'êtes pas autorisé à utiliser ce script à cette adresse
$ENV{'HTTP_REFERER'}"); }
voila rajoute ça au début de ton script apres la declaration des vraiables