Help for this page

Select Code to Download


  1. or download this
    my $req_uri_re = join '|', map quotemeta, qw(
    /bulletin/ .css .ico formmail /prosp/
...

if ($ENV{'HTTP_REFERER'} and $ENV{'REMOTE_ADDR'} ne "129.215.67.96"
    and $ENV{REQUEST_URI} !~ $req_uri_re) { }
  2. or download this
    ## false if  $ENV{'REQUEST_URI'} contains "FalseIfJustThis"
if($ENV{REQUEST_URI} !~ $regex) { }
...
## true if $ENV{'REQUEST_URI'} contains "FalseIfJustThis"
##         AND contains "ButIfAlsoThisThenTrue")
if($ENV{REQUEST_URI} =~ $regex and $ENV{REQUEST_URI} =~ $regex2) { }