Perl Server Side CGI Scripting Forum

<?php
if ($_GET["bots"] == "nocrawl") {
$find = array
(
"&bots=nocrawl",
"?bots=nocrawl"
);
Header( "HTTP/1.1 301 Moved Permanently" );
Header( "Location: http://www.example.com".str_replace($find, '', $_SERVER['REQUEST_URI']));
}
?>

perl version

#/usr/bin/perl -w
use strict;
use CGI;
my $CGI = new CGI;
if($CGI->param('bots') eq 'nocrawl')
{
my $uri = $ENV{'REQUEST_URI'};
$uri =~ s/[&?]bots=nocrawl//i;
print "HTTP/1.1 301 Moved Permanently\n";
print "Location: http://www.example.com" . $uri . "\n\n";
}

-------

<?php
if (!stristr($_SERVER['HTTP_USER_AGENT'], 'googlebot')) {
echo '<p class="optout"><a href="/mailing-list/index.php" title="Opt-out">Unsubscribe Newsletter</a>.</p>';
}
?>

perl version


#/usr/bin/perl -w
use strict;
if($ENV{'HTTP_USER_AGENT'} !~ m/googlebot/i)
{
print '<p class="optout"><a href="/mailing-list/index.php" title="Opt-out">Unsubscribe Newsletter</a>.</p>';
}