| Subject: | Identified a new robot |
I've found a new robot in my logs, called puf (the Parallel Url Fetcher), available from http://puf.sourceforge.net/
The attached patch adds support for it. Thanks much for HTTP::BrowserDetect.
--- BrowserDetect.pm~ 2004-06-22 00:36:47.000000000 -0400
+++ BrowserDetect.pm 2004-08-19 14:23:50.000000000 -0400
@@ -19,7 +19,7 @@
push @ALL_TESTS,(qw(mosaic netscape nav2 nav3 nav4 nav4up nav45 nav45up nav6 nav6up navgold firefox safari ie ie3 ie4 ie4up ie5 ie5up ie55 ie55up ie6 opera opera3 opera4 opera5 opera6 opera7 lynx links aol aol3 aol4 aol5 aol6 neoplanet neoplanet2 avantgo emacs mozilla gecko));
# Robots
-push @ALL_TESTS,(qw(wget getright robot yahoo altavista lycos infoseek lwp webcrawler linkexchange slurp webtv staroffice lotusnotes konqueror icab google java));
+push @ALL_TESTS,(qw(puf wget getright robot yahoo altavista lycos infoseek lwp webcrawler linkexchange slurp webtv staroffice lotusnotes konqueror icab google java));
#######################################################################################################
# BROWSER OBJECT
@@ -225,6 +225,7 @@
$tests->{LINKS} = (index($ua,"links") != -1);
$tests->{WEBTV} = (index($ua,"webtv") != -1);
$tests->{MOSAIC} = (index($ua,"mosaic") != -1);
+ $tests->{PUF} = (index($ua,"puf") != -1);
$tests->{WGET} = (index($ua,"wget") != -1);
$tests->{GETRIGHT} = (index($ua,"getright") != -1);
$tests->{LWP} = (index($ua,"libwww-perl") != -1 ||
@@ -240,7 +241,8 @@
$tests->{WEBCRAWLER} = (index($ua,"webcrawler") != -1);
$tests->{LINKEXCHANGE} = (index($ua,"lecodechecker") != -1);
$tests->{SLURP} = (index($ua,"slurp") != -1);
- $tests->{ROBOT} = (($tests->{WGET} ||
+ $tests->{ROBOT} = (($tests->{PUF} ||
+ $tests->{WGET} ||
$tests->{GETRIGHT} ||
$tests->{LWP} ||
$tests->{YAHOO} ||
@@ -703,6 +705,7 @@
or false value. This is by no means a complete list of robots that
exist on the Web.
+ puf
wget
getright
yahoo