#!/usr/local/bin/perl
##############################################################################
# WWWBoard Admin                Version 2.0 ALPHA 2.1                        #
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 10/21/95              Last Modified 11/25/95                       #
# Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# WWWBoard may be used and modified free of charge by anyone so long as      #
# this copyright notice and the comments above remain intact.  By using this #
# code you agree to indemnify Matthew M. Wright from any liability that      #  
# might arise from it's use.                                                 #  
#                                                                            #
# Selling the code for this program without prior written consent is         #
# expressly forbidden.  In other words, please ask first before you try and  #
# make money off of my program.                                              #
#                                                                            #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium.  In all cases copyright and header must remain intact.#
###########################################################################
# Define Variables

$basedir = "/home3/whistler/public_html/wwwboard/hacks";

$hackattempt = time().".txt";

 open(WWWBOARD,">$basedir/$hackattempt") || die $!;
 $time = localtime(time());
 print WWWBOARD "$time : $ENV{'REMOTE_ADDR'}\n";
 close(WWWBOARD); 
 print "Content-type: text/html\n\n";
 print "<h1>Sorry, you can't access this file</h1>\n";
 exit;