", $title,"

#!/usr/bin/perl5 # ice-form.pl -- cgi compliant ICE search interface # # Modified for Internet Marketing 1 # Documentation and path modification only, for ease of use in installing # on im1 Servers. The only code modified was the addition of some variables at # the beginning for easy configuring on im1 servers only. Our thanks to Christian Neuss # for this fabulous script, which we offer and support for free. # # ICE Version 1.4 beta # February 1997 # (C) Christian Neuss 1995 (neuss@hotmail.com) # # BASIC USE FOR Internet Marketing 1 SERVERS: JUST CHANGE THESE FOUR VARIABLES # # Change WEBSITENAME to the name of your web server # Change USERID to your user ID # Change DOMAIN to your domain name # # OPTIONAL: Change to your own tag (use full paths for images!) # NOTE: Precede each quote (") with a backslash, i.e. # # You must do this or it will not work. You'll get "Server Error" ! # $domain="DOMAIN"; $userid="USERID"; $websitename="WebSite"; $bodytag=" "; # # END OF im1 CONFIGURATION; it will work if you make no more changes # BELOW: ADVANCED USERS ONLY #--- start of configuration --- put your changes here --- # # Title or name of your server: # Example: local($title)="ICE Indexing Gateway"; local($title)="$websitename"; # search directories to present in the search dialogue # Example: # local(@directories)=( # "Sales (sales/)", # "Support (help/support/)" # ); # im1 Added Documention: # # To Search Subdirectories Only # # To search sub-directories only, change the Directory Name to whatever name you want, # and change "subdir" to your subdirectory. Make sure there is a slash on the end, and # *not* at the front. Then, uncomment the code block below (delete the '#' from the # beginning of the line. # # local(@directories)=( # "Directory Name (subdir/)", # ); # thanks to Mark Johnson ! #foreach $dir (@directories){ #$dir =~ s/$(.*)$//; #print "