zoeythecat
Technical User
Hi,
Does anyone here have any experience on CGI scripts or can point me to the right direction? I have an area of our website called "site search" which is basically a search engine on our site. When you click on it it won't execute. It attempts to execute a file in the cgi-bin but does not come up. In Frontpage when clicking on the link the code comes up. I wanted to list the code here hoping someone could make sense of it and be able to tell me what I would need to correct. Thanks in advance. Any help is appreciated
__________________________________________________________
#!/usr/local/bin/perl # ice-form.pl -- cgi compliant ICE search interface # # ICE Version 1.5 beta 3 rev1 # September 1998 # (C) Christian Neuss (ice@isa.informatik.th-darmstadt.de) #--- start of configuration --- put your changes here --- # Title or name of your server: # Example: local($title)="Search the Brooks Helpdesk server"; local($title)="Brooks HelpDesk Search Engine"; # search directories to present in the search dialogue # Example: # local(@directories)=( # "DZSIM (/ # "CSCW Laboratory (/ # ); local(@directories)=( "" " " " " " );
# Location of the indexfile: # Note: under Windows or Windows NT, add the drive letter # Example: $indexfile='/usr/local/etc/httpd/index/index.idx'; $indexfile='/data/Lkr_Usr_/helpdesk/public_html/cgi-bin/index.idx'; # Location of the thesaurus data file: # Example: $thesfile='/igd/a3/home1/neuss/Perl/thes.dat'; $thesfile='/igd/a3/home1/neuss/Perl/thes.dat'; # Document Root and Aliases for your server. The Document Root is # the directory where the "top level" documents reside. Additional # mappings can be set via the "Aliases" variable (which can be left # empty if no additional mappings exist). # # Important hint: if you are unsure about how to set $docroot, # look at the end of the index file. $docroot must be set so # that it matches the paths found there. # # Example # $docroot = '/usr3/webstuff/documents'; # %aliases = ( # '/projects', '/usr/stud/proj', # '/people', '/usr3/webstuff/staff', # ); # $docroot = '/users/neuss/Projects'; %aliases = ( '/~helpdesk/', '/data/Lkr_Usr_/helpdesk/public_html/', ); # The following configuration settings are OPTIONAL # # you can localise the BODY tag if you want. Use an absolute # path such as the one given in the example if linking to a # background image. # Example: $BODY = '
'; # Maximum number of hits to return # Example: # $MAXHITS=100; $MAXHITS=50; # Minimum length of word to be indexed (same as in ice-idx.pl) # Example: # $MINLEN=3; $MINLEN=3; #--- end of configuration --- you don't have to change anything below --- local(@errStack); # do the real work, but trap any errors eval '&main'; # if an error has occured, log it to stdout if($@){ &send_header("Error in Script"
; # just in case print "$@\n
\n\n
"; print "
$title
\n"; print "Looking for something specific? Fill in your search information and hit the START SEARCH button."; } sub send_trailer { print "
________________________________________________________
Does anyone here have any experience on CGI scripts or can point me to the right direction? I have an area of our website called "site search" which is basically a search engine on our site. When you click on it it won't execute. It attempts to execute a file in the cgi-bin but does not come up. In Frontpage when clicking on the link the code comes up. I wanted to list the code here hoping someone could make sense of it and be able to tell me what I would need to correct. Thanks in advance. Any help is appreciated
__________________________________________________________
#!/usr/local/bin/perl # ice-form.pl -- cgi compliant ICE search interface # # ICE Version 1.5 beta 3 rev1 # September 1998 # (C) Christian Neuss (ice@isa.informatik.th-darmstadt.de) #--- start of configuration --- put your changes here --- # Title or name of your server: # Example: local($title)="Search the Brooks Helpdesk server"; local($title)="Brooks HelpDesk Search Engine"; # search directories to present in the search dialogue # Example: # local(@directories)=( # "DZSIM (/ # "CSCW Laboratory (/ # ); local(@directories)=( "" " " " " " );
# Location of the indexfile: # Note: under Windows or Windows NT, add the drive letter # Example: $indexfile='/usr/local/etc/httpd/index/index.idx'; $indexfile='/data/Lkr_Usr_/helpdesk/public_html/cgi-bin/index.idx'; # Location of the thesaurus data file: # Example: $thesfile='/igd/a3/home1/neuss/Perl/thes.dat'; $thesfile='/igd/a3/home1/neuss/Perl/thes.dat'; # Document Root and Aliases for your server. The Document Root is # the directory where the "top level" documents reside. Additional # mappings can be set via the "Aliases" variable (which can be left # empty if no additional mappings exist). # # Important hint: if you are unsure about how to set $docroot, # look at the end of the index file. $docroot must be set so # that it matches the paths found there. # # Example # $docroot = '/usr3/webstuff/documents'; # %aliases = ( # '/projects', '/usr/stud/proj', # '/people', '/usr3/webstuff/staff', # ); # $docroot = '/users/neuss/Projects'; %aliases = ( '/~helpdesk/', '/data/Lkr_Usr_/helpdesk/public_html/', ); # The following configuration settings are OPTIONAL # # you can localise the BODY tag if you want. Use an absolute # path such as the one given in the example if linking to a # background image. # Example: $BODY = '
'; # Maximum number of hits to return # Example: # $MAXHITS=100; $MAXHITS=50; # Minimum length of word to be indexed (same as in ice-idx.pl) # Example: # $MINLEN=3; $MINLEN=3; #--- end of configuration --- you don't have to change anything below --- local(@errStack); # do the real work, but trap any errors eval '&main'; # if an error has occured, log it to stdout if($@){ &send_header("Error in Script"
; # just in case print "$@\n\n\n
"; print "
$title
\n"; print "Looking for something specific? Fill in your search information and hit the START SEARCH button."; } sub send_trailer { print "
________________________________________________________