spider erkennen

    So ich habe mir jetzt mal:

    Kann das einer in Perl umsetzen???

    Code
    $spider_found=false; $uagen=strtolower($_SERVER['HTTP_USER_AGENT'])
$spiders = array('nustcrape','webpost','google','crawler','scooter','bravobrian','archiver','w3c','control','wget','bot','spider');
foreach($spiders as $spider) { if (strpos($uagen, $spider)<>"") $spider_found=true; }

    mit Teilem aus dem Forum zusammen gebastelt. Das sollte reichen??? Oder hat jemand eien bessere Idee

    So hier nochmal der entgültige Code. Und das Perl umsetzen ist auch nicht mehr nötig:

    Code
    $uagen=strtolower($_SERVER['HTTP_USER_AGENT']);
$spiders = array('nustcrape','webpost','google','crawler','scooter','bravobrian','archiver','w3c','control','wget','bot','spider');
foreach($spiders as $spider) { if (strpos($uagen, $spider)!==false) {$spider_found=true;} }
if ($spider_found==false) { header("Location: http://www.keine-angst-vorm-pc.de/forum/thread.php?threadid=$threadid"); exit(); }

    Das ganze bewirkt das alle bots schon im archiv rumstöbern und normale user direkt zum Forum geschickt werden.

    Beweislink zum Archiv: http://www.keine-angst-vorm-pc.de/forum/PC-Hilfe/2/thread.html