[Nms-cgi-devel] Search.pl updated to use File::Find

[Joseph F. R. <rya...@os...>]

I finally got around to fully updating search.pl to use File::Find.  Since 
I still can't get CVS to work (not even on cyg-win), I'll list the updates 
here and put the code on my perlmonk site at: 
http://jryan.perlmonk.org/nms/search.txt

# Revision 2.0 2001/12/01 7:30:30 jfryan
# * Redid Search Algorithm using File::Find; backwards compatibility is ensured
# * Added \Q\E to safely include search terms in regexp
# * Removed archaic %FORM hash, and also added search defaults and error 
handling
# * Split return_html into 3 separate functions.  Also made them work, 
unlike return_html, which did not ;)
# * Added a @blocked array to the config, defaulted it to empty.  @blocked 
will filter out any files within a directory listed in @blocked
# * Changed $style so that it can be set to '' to not use a style sheet.

Also, I changed the default information to point to NMS, and not Matt's 
site at worldwidemart.  I thought that would make sense since the whole 
point of the project was to dissuade people from using Matt's scripts.