I am trying to do a simple CGI script that checks the referer and if referrer is valid, displays one thing, if not, displays another (I know very little about cgi/perl, by the way). Now here's what i have so far:
#!/usr/bin/perl
if (($ENV{'HTTP_REFERER'} eq "http://www.top-dollars.com/blank.htm") ||
($ENV{'HTTP_REFERER'} eq "http://top-dollars.com/blank.htm"))
{
print "Content-type: text/html\n\n";
print "<html><head><title>Sucess!</title></head>
<body bgcolor=white>
<p></p><p><center><font face=\"Verdana, Arial\" color=red size=\"3\"><b>GOOD REFERER!</b></font></center></p>
</body></html>";
exit;
}
else {
print "Content-type: text/html\n\n";
print "<html><head><title>Error!</title></head>
<body bgcolor=white>
<p></p><p><center><font face=\"Verdana, Arial\" color=red size=\"3\"><b>Invalid referer</b></font></center></p>
</body></html>";
exit;
}
###############################
The problem is, it goes to the "else" page even if the refered is valid!? What am i missing??? Thanks.
#!/usr/bin/perl
if (($ENV{'HTTP_REFERER'} eq "http://www.top-dollars.com/blank.htm") ||
($ENV{'HTTP_REFERER'} eq "http://top-dollars.com/blank.htm"))
{
print "Content-type: text/html\n\n";
print "<html><head><title>Sucess!</title></head>
<body bgcolor=white>
<p></p><p><center><font face=\"Verdana, Arial\" color=red size=\"3\"><b>GOOD REFERER!</b></font></center></p>
</body></html>";
exit;
}
else {
print "Content-type: text/html\n\n";
print "<html><head><title>Error!</title></head>
<body bgcolor=white>
<p></p><p><center><font face=\"Verdana, Arial\" color=red size=\"3\"><b>Invalid referer</b></font></center></p>
</body></html>";
exit;
}
###############################
The problem is, it goes to the "else" page even if the refered is valid!? What am i missing??? Thanks.
