sourcecode
Alien
<code>
use WWW::Mechanize;
use strict;
use warnings;
my $site=shift || die "Site\n";
my @results=();
my $mech=WWW::Mechanize->new();
$mech->get("http://www.google.com/search?q=site%3A$site") || die "GET\n";
my $text=$mech->content;
while($text=~m@<a class=l href=\"(.*?)\">@gi)
{
push(@results,$1);
}
if($#results==-1)
{
print "Site is banned with Google , or was not submitted to it!\n";
}
else
{
print "$site does NOT appear to be banned ... in fact here are some google searches related to it :\n";
for my $qq (@results)
{
print "$qq\n";
}
}
</code>
Script to check if your site has been banned from Google ... in an ideal world it would have checked for back links too ... but who knows :) ... maybe the next version !
Miscellaneous
Alien ,