On Saturday, May 25, 2002, at 08:18 , Scot Robnett wrote:
> # Compare the referer against your "good list"
> for $domain(@good_domains) {
> if ($domain = $referer) { # If the referer matches a
> $good_one = "success"; # domain in your list, set
> last; # $good_one as "success" and
> } # skip looking at the rest of
> } # them since we found a good one
there may be a problem here - since you are setting up a
list of 'strings' - and trying to do a numeric compare here.
You would of course wish to extend your
my @good_domains = qw/domain1.com theIpAddrFor_domain1.com
www.domain1.com theIpAddrFor_www.domain1.com
domain2.com theIpAddrFor_domain2.com
www.domain2.com theIpAddrFor_domain2.com /;
since it is possible that
my $referer = $ENV{'REFERER'};
may return the dotQuad internet IP address form....
ciao
drieux
---
ok, so I am a freak for qw/<list_oh_stuff_without_quotes_or_comma>/;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
