$search_results

############################################################ # # 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. #Replace domain with your domain name minus the .com $root_web_path = "/www/htdocs/tezukayama"; $server_url = "http://tezukayama.com"; # # 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", "accesswatch(.*)html", "Backup(.*)html", "Feedback(.*)html", "Images(.*)html", "address(.*)html", "feedback(.*)html", "wusage(.*)html", "cgi-bin(.*)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:

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__; tezukayama Keyword Search Engine

tezukayama Keyword Search Engine

__NOKEYHTML__ } # End of PrintNoKeywordHTML