#!/usr/bin/perl
############################################################################
# PROTECTION CODES
#
# Place the follow codes into your existing script - at the beginning of
# script but after the line "#!/usr/bin/perl".
#
# Always have the valid referers in PAIRs. One with "www" and the other one
# without "www". This is because browsers treat them as two different URLs.
############################################################################
if (($ENV{'HTTP_REFERER'} eq "http://www.upoint.net/group/form.htm") ||
($ENV{'HTTP_REFERER'} eq "http://www.upoint.net/group/anotherform.htm") ||
($ENV{'HTTP_REFERER'} eq "http://upoint.net/group/form.htm") ||
($ENV{'HTTP_REFERER'} eq "http://upoint.net/group/anotherform.htm"))
{
}
else {
print "Content-type: text/html\n\n";
print "
Error!
Invalid referer
";
exit;
}
############################################################################
# EXISTING SCRIPT GOES BELOW THIS SECTION
############################################################################
Wyszukiwarka
Podobne podstrony:
Normalizer FormIHK codesform totalskrs form wfoptymw formKody Fault Codes WhirpoolformŚrodki antyadhezyjne do uwalniania wyrobów z formRedneck Application Formformsecond conditional formwięcej podobnych podstron