Yikes.....
Try something like:
print "Content-type: text/html\n\n";
foreach (@okaydomains) {
$ENV{HTTP_REFERER} =~ /^$_/i and $ok = 1;
} else {
$ok = 0;
}
if ($ok < 1) {
print "Sorry, cant run it from here....";
exit;
}
}
@okaydomain = ('http://www.mydomain.com/cgi-bin/birdcast.cgi','http://mydomain.com/cgi-bin/birdcast.cgi');
Try something like:
Code:
sub valid_page { print "Content-type: text/html\n\n";
foreach (@okaydomains) {
$ENV{HTTP_REFERER} =~ /^$_/i and $ok = 1;
} else {
$ok = 0;
}
if ($ok < 1) {
print "Sorry, cant run it from here....";
exit;
}
}
@okaydomain = ('http://www.mydomain.com/cgi-bin/birdcast.cgi','http://mydomain.com/cgi-bin/birdcast.cgi');