#!/usr/bin/perl
####################################################################################################
# Chamelion			                                                    Version 1.0                            
# Copyright 1997  Cybercore Network Solutions, Inc.					    webmaster@superscripts.com                 
# Created 9/12/97                                      				Last Modified 2/6/98                           
####################################################################################################
# COPYRIGHT NOTICE                                                           
# Copyright 1998 Cybercore Network Solutions, INC - All Rights Reserved.                    
# http://www.cybercore.net                                                                                                            
# Selling the code for this program without prior written consent is         
# expressly forbidden.                                         
#                                                                           
# Obtain written permission before redistributing this software over the Internet or 
# in any other medium.  In all cases copyright and header must remain intact.
#####################################################################################################
# USER CONFIGURATION
#####################################################################################################
$robotlist = "robot.list";
$robothtml = "robot.html";
$normalhtml = "normal.html";

$spy = "$ENV{'REMOTE_HOST'}";

open (ROBOTLIST, "$robotlist");
@robotlist=<ROBOTLIST>;

open (ROBOTHTML, "$robothtml");
@robothtml=<ROBOTHTML>;

open (NORMALHTML, "$normalhtml");
@normalhtml=<NORMALHTML>;
#####################################################################################################
# HTML THAT ROBOTS SEE
#####################################################################################################
foreach $robotlist (@robotlist) {
chomp $robotlist;

if ($spy =~ /$robotlist/i) {
print "Content-type: text/html \n\n";
print "@robothtml";
exit;
}

}
#####################################################################################################
# HTML THAT EVERYONE ELSE SEES
#####################################################################################################
print "Content-type: text/html \n\n";
print "@normalhtml";
print "$spy";
exit;