How would I change a script from using the included
"@referers" to a separate file using "require" to read it?
@referers = ('www.gate.net/~earthdes',
'file:/guest.htm',
'http://www.jamilin.com/');
# Check Referring URL
&check_url;
sub check_url {
if ($ENV{'HTTP_REFERER'}) {
foreach $referer (@referers) {
if ($ENV{'HTTP_REFERER'} =~ /$referer/i) {
$check_referer = '1';
last;
}
}
}
else {
$check_referer = '1';
}
if ($check_referer != 1) {
&error('bad_referer');
}
}
Originally posted as a Categorized Question.