#!/usr/bin/perl
# (C) Copy and Copyright 2007 WebmasterWorld Inc. All Rights Reserved.
#require "data/varsv4.cgi";    # parse form values
require "/home/rharri/scratchSpace/cgi-lib.pl";    # 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 =~ /msnbot/gi || $agent =~ /Jeeves/gi || $agent =~ /googlebot/gi) {
    open(FILE,"<robots2");
    print <FILE>;
    close(FILE);
}

else {

print qq|#
# (C) Copy and Copyright 2007 WebmasterWorld Inc. All Rights Reserved.  http://www.webmasterworld.com/robots.txt
#  This code found here: http://www.webmasterworld.com/robots.txt?view=producecode

User-agent: *
Disallow: /


# [:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:][:] #
#                                                                             #
|;

}

1;