#!/usr/bin/perl

# (C) Copy and Copyright 2006-2010 WebmasterWorld Inc. All Rights Reserved.

require "data/varsv5.cgi";    # parse form values

print "Content-type:  text/plain\n\n";

$agent = $ENV{'HTTP_USER_AGENT'};

if ($FORM{"view"} eq "producecode") {
    open(FILE,"<robots.txt");
    print <FILE>;
    close(FILE);
    exit;
}

    # Simple agent check to keep the snoopy happy and to keep bad bots out and good bots in.

    if ($agent =~ /slurp/gi || $agent =~ /bingbot/gi || $agent =~ /msnbot/gi || $agent =~ /Jeeves/gi || $agent =~ /googlebot/gi) {

    open(FILE,"<robots2");
    print <FILE>;
    close(FILE);
}

else {

print qq|#
#
# (C) Copy and Copyright 2006-2010 WebmasterWorld Inc. All Rights Reserved.
#  http://www.webmasterworld.com/robots.txt
#  This code found here: http://www.webmasterworld.com/robots.txt?view=producecode
#
#  Please, we do not allow nonauthorized robots. They are a major drag on the system.
#  Actual robots.txt can always be found here for: http://www.webmasterworld.com/robots2
#  Old full robots.txt can be found here: http://www.webmasterworld.com/robots3
#
#  Any unauthorized bot running will result in IP's being banned.
#  Agent spoofing is considered a bot - if it looks like a bot and not from an SE - it is a ot.
#  Honey pots are - and have been - running.  If your access has been blocked for bot running - please sticky an admin for a reinclusion request.
#
#  http://www.searchengineworld.com/robots/
#

# User-agent: *
# Disallow: /





#  ... How much deeper would the ocean be if sponges didn't live there?  - stephen wright.




# $ENV{'REMOTE_ADDR'}

# (C) Copy and Copyright 1997-2011 WebmasterWorld Inc. All Rights Reserved.

|;

}

1;