#!/usr/bin/perl use DB_File; #---------------------------------------------------------# # Copyright January 18, 1999 by David Sontag # # of web-page-services.com # #---------------------------------------------------------# # This file may not be modified and/or distributed # # for sale in any way without the permission of # # web-page-services.com. Send all comments, questions, # # or requests, to webmaster@web-page-services.com # #---------------------------------------------------------# # Other than that, you are free to use this program # # for your own personal use. This header and the # # copyright information on the program's output must # # remain in all redistributions. Full credit must be # # given to web-page-services.com # #---------------------------------------------------------# print "Content-type: text/html\n\n"; print "\n\n\nResults\n\n\n\n\n"; print "

Program written by David Sontag of web-page-services.com

\n"; #---------------Checks files for parameters to program----------------# #------Location of Host Name DBM file (will be created)---# $host = "hosts.dbm"; #---------------------------------------------------------# open(HOST, "hostnames"); print "
\n"; print "excluded hostnames: "; while() { chomp; if($_ ne "") { print $_." "; push(@badHosts, $_); } } close(FILE); open(FILE, "filenames"); print "
excluded filenames: "; while() { chomp; if($_ ne "") { print $_." "; push(@badFiles, $_); } } close(FILE); print "

\n\n"; open(LOG, "location"); while() { chomp; if($_ ne "") { $logFile = $_; last; } } close(LOG); open(TIME, "time"); while(