############################################################
#
# Define Variables for the search_engine.cgi script
#
############################################################
# root_web_path is the path to the directory tree you
# wish to search
#
# server_url is the actual url for this site. Files that
# are positive matches get prefixed with the url information
# in a hypertext reference.
#
$root_web_path = "/net/kragar/serv/ftp/pub/EFF/Newsletters/EFFector/HTML";
$server_url = "http://www.eff.org/pub/EFF/Newsletters/EFFector/HTML";
#
# unwanted files is a list of pattern matched filenames
# you do not wish to search for keywords in. Note that
# the pattern matches against the full path and filename
# so that you can exclude certain directories.
#
@unwanted_files = ("Error(.*)html",
"error(.*)html",
"Test(.*)html",
"Backup(.*)html",
"Feedback(.*)html",
"Images(.*)html",
"address(.*)html",
"feedback(.*)html");
#
# The following are routines that print the HTML code related to
# various parts of the program. You can edit the cosmetics of the
# program by altering the code below. This means you can alter
# the cosmetics without directly altering the code in the
# actual search_engine.pl program.
#
############################################################
#
# subroutine: PrintHeaderHTML
# Usage:
# &PrintHeaderHTML;
#
# Parameters:
# None
#
# Output:
# Prints the HTML code for the header of the keyword
# return results
#
############################################################
sub PrintHeaderHTML
{
print <<__HEADERHTML__;
$search_results_title
Your keyword(s), $keywords,
appeared on the following pages:
__HEADERHTML__
} # End of PrintHeaderHTML
############################################################
#
# subroutine: PrintFooterHTML
# Usage:
# &PrintFooterHTML;
#
# Parameters:
# None
#
# Output:
# Prints the HTML code for the footer of the keyword
# return results
#
############################################################
sub PrintFooterHTML
{
print <<__FOOTERHTML__;
Note: If you are using Netscape, you can refine your
keyword search by chosing "find" from the button bar and
finding your keyword on whichever of the above pages you call
up.
__FOOTERHTML__
} # End of PrintFooterHTML
############################################################
#
# subroutine: PrintNoHitsBodyHTML
# Usage:
# &PrintNoHitsBodyHTML;
#
# Parameters:
# None
#
# Output:
# Prints the HTML code for the body of the keyword
# search if no results were found
#
############################################################
sub PrintNoHitsBodyHTML
{
print <<__NOHITS__;
Sorry, No Pages Were Found With Your Keyword(s).
__NOHITS__
} # End of PrintNoHitsBodyHTML
############################################################
#
# subroutine: PrintBodyHTML
# Usage:
# &PrintBodyHTML;
#
# Parameters:
# None
#
# Output:
# Prints the HTML code for the body of the keyword
# search result set
#
############################################################
sub PrintBodyHTML
{
local($filename, $title) = @_;
print <<__BODYHTML__;
$title
(/$filename)
__BODYHTML__
} # End of PrintBodyHTML
############################################################
#
# subroutine: PrintNoKeywordHTML
# Usage:
# &PrintNoKeywordHTML;
#
# Parameters:
# None
#
# Output:
# Prints the HTML code for a form allowing the user
# to enter a keyword since no keyword was alreay entered
#
############################################################
sub PrintNoKeywordHTML
{
print <<__NOKEYHTML__;
EFF's EFFector Newsletter Keyword Search Engine