zoeythecat
Technical User
Hi,
Can anyone here make sense on why this CGI script won't execute? 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 that is suppose to execute a cgi script. In Frontpage when clicking on the link the code comes up but not the site search. 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. The webserver sits on a Unix box. I replaced the IP Address with xx.xx.xx.xx. The link to the website is here ==> if you scroll to the bottom and click on "Site Search" you will see this will not execute. I'm hoping someone will be able to read this script file and tell me what may be wrong. 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 "
Can anyone here make sense on why this CGI script won't execute? 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 that is suppose to execute a cgi script. In Frontpage when clicking on the link the code comes up but not the site search. 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. The webserver sits on a Unix box. I replaced the IP Address with xx.xx.xx.xx. The link to the website is here ==> if you scroll to the bottom and click on "Site Search" you will see this will not execute. I'm hoping someone will be able to read this script file and tell me what may be wrong. 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 "