trying to add new menu to perl swish-e search

bufhal2 · Jun 8, 2006

Hello, hope someone can help me.

I have a Perl script that sits in cgi-bin and is called from a Search page that uses Swish-e.
I am simply trying to add our new menu to replace the old and it kills the script every time.

This is the script with the old menu. Can someone show me what to avoid when placing the new menu? I really appreciate any help and I appologize for the length of the script....

#!/usr/local/bin/perl -w
use strict;

## Scott Wiersdorf
## Created: Tue Jul 3 15:54:52 MDT 2001
## $Id: search.pl.sample,v 1.1 2001/07/06 17:15:12 scottw Exp $

## simple swish-e search form
##
## See <

http://sunsite.berkeley.edu/SWISH-E/Scripts/>

for alternatives
##
## modifications to this file should be made in the 'print_header'
## and 'print_footer' subroutines at the bottom of this file (search
## for 'MODIFY ME')
##
## This program assumes the swish-e index will be located in
## /usr/local/swish-e/index/ (for security reasons)
##
## printing to STDERR will usually log to Apache's error_log if this
## script is called as a CGI from Apache.
##

## CGI.pm helps us be more secure because it auto-escapes badness
use CGI qw

standard);

## defaults
use constant DEF_TERM => '';
use constant DEF_RESULTS => 50;
use constant DEF_INDEX => 'index.swish';

## create CGI query object
my $q = new CGI;
my %query = ();

## print the header first so the visitor can see something
print_header();

## get search term(s)
$query{'term'} = $q->param('query');
if( $query{'term'} ) {
$query{'term'} =~ s/[|`&*()<>]//g; ## remove garbage
}
$query{'term'} = DEF_TERM unless $query{'term'};

## get number of results
$query{'results'} = $q->param('results') || DEF_RESULTS;
if( $query{'results'} ) {
$query{'results'} =~ s/\D//g;
}
$query{'results'} = DEF_RESULTS unless $query{'results'};

## get the index name
$query{'index'} = $q->param('index') || DEF_INDEX;
$query{'index'} =~ s![~/]!!g; ## remove tildes and slashes
while( $query{'index'} =~ s!\.\.!!g ) { }; ## remove double dots
$query{'index'} = DEF_INDEX unless $query{'index'};

## set paths of program and index
my $swish_dir = '/usr/local/swish-e';
my $swish_prog = "$swish_dir/bin/swish-e";
my $swish_indx = "$swish_dir/$query{'index'}";

## check index
unless( -f $swish_indx ) {
print STDERR "[Swish-e] No index or '$swish_indx' does not exist!\n";
error( "This search has no index. Please notify the site administrator." );
}

## setup swish-e command
my $cmd = "$swish_prog -w " . $query{'term'} . " -m " . $query{'results'} .
" -f $swish_indx";

## try to open a pipe to swish-e
unless( open( SWISH, "$cmd |" ) ) {
print STDERR "[Swish-e] Couldn't open '$cmd': $!\n";
error( "Could not open search engine! Please notify the site administrator." );
}

## fetch results from pipe. Swish-e results look like this (by default):
## relevancy document title
## path to document document size
## 1000 ./test_phrase.html "Document Title" 176

my $line;
while( chomp($line = <SWISH>) ) {
next unless $line;

## skip swish-e comments
next if $line =~ /^#/;

## check for errors
if( $line =~ /^err:\s*(.+)$/i ) {
print STDERR "[Swish-e] Error: $line\n";
my $error = $1;
$error = "An undefined error occured. Please notify the site administrator."
unless $error;
close SWISH;
error( $error );
}

## last result
last if $line eq '.';

## skip non-results lines
next unless $line =~ /^\d/;

## -- you've got results -- ##
my( $relevancy, $doc_path, $title, $size );
unless( ( $relevancy, $doc_path, $title, $size ) =
$line =~ /^(\d+) (.+?) "(.+)" (\d+)$/ ) {
next;
}

## clean up document path
$doc_path =~ s!^\.+/!!;

## debugging: anything printed to STDERR shows up in the web
## server error_log (look for it there)
# print STDERR "line = $line\n";

## MODIFY ME
print <<_RESULT_;
<strong><a href="$doc_path">$title</a></strong><br>

_RESULT_

}

## close pipe
close SWISH;

print_footer();

## all done
exit;

## print the error
sub error {
my $msg = shift;

print <<_ERROR_;
<h2>Sorry</h2>
$msg
_ERROR_

print_footer();

exit;
}

## MODIFY ME
sub print_header {
print CGI::header;

print <<_HTML_;
<html>
<head>
<title>Search Results</title>
<link href="../default.css" rel="stylesheet" type="text/css">
<LINK REL=stylesheet HREF="../atto.css" TYPE="text/css">
</head>

<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0">
<script type="text/javascript" language="JavaScript" src="../ua.js"></script>
<script type="text/javascript" language="JavaScript" src="../jscript.js"></script>
<div class="menuBar" style="width:780;"><A HREF="../index.html"><IMG SRC="../images/1.jpg" border="0" alt=""></A><BR><IMG
SRC="../images/2.jpg" alt=""><span id="corporate"><a href="../corporate.html" onclick="return buttonClick(event,
'corporateMenu');" onmouseover="set('corporateMenu');" onmouseout="hide2('corporateMenu');"><img src="../images/menu1.jpg"
name="corporate" alt="" border=0></a></span><span id="technology"><a href="../technology.html" onclick="return
buttonClick(event, 'technologyMenu');" onmouseover="set('technologyMenu');" onmouseout="hide2('technologyMenu');"><img
src="../images/menu2.jpg" name="technology" alt="" border=0></a></span><span id="products"><a href="../products.html"
onclick="return buttonClick(event, 'productsMenu');" onmouseover="set('productsMenu');"
onmouseout="hide2('productsMenu');"><img src="../images/menu3.jpg" name="product" alt="" border=0></a></span><span
id="sans"><a href="../sans.html" onclick="return buttonClick(event, 'sansMenu');" onmouseover="set('sansMenu');"
onmouseout="hide2('sansMenu');"><img src="../images/menu4.jpg" name="sans" alt="" border=0></a></span><span id="support"><a
href="../support.html" onclick="return buttonClick(event, 'supportMenu');" onmouseover="set('supportMenu');"
onmouseout="hide2('supportMenu');"><img src="../images/menu5.jpg" name="support" alt="" border=0></a></span><span
id="partners"><a href="../partners.html" onclick="return buttonClick(event, 'partnersMenu');"
onmouseover="set('partnersMenu');" onmouseout="hide2('partnersMenu');"><img src="../images/menu6.jpg" name="buy" alt=""
border=0></a></span><span id="attostore"><a href="../attostore.html"><img src="../images/menu7.jpg" name="store" alt=""
border=0></a></span><span id="help"><a href="../help.html"><img src="../images/menu8.jpg" name="help" alt=""
border=0></a></span><span id="downloads"><a href="index.html" onclick="return buttonClick(event, 'downloadsMenu');"
onmouseover="set('downloadsMenu');" onmouseout="hide2('downloadsMenu');"><img src="../images/menu9.jpg" name="downloads"
alt="" border=0></a></span><IMG SRC="../images/4.jpg" alt=""></div>
<TABLE width="780" height="90%" border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
<TR>

<TD><IMG SRC="../images/spacer.gif" alt="" border="0" width="15"></TD>
<TD width="750"><div align=left><BR>
<FONT size="5"><BR><B>Search Results!</B></FONT><BR><BR>

_HTML_

return 1;
}

## MODIFY ME
sub print_footer {
print <<_HTML_;

<BR><BR>
</div>


<div class=footer align=center>
<BR><BR><HR>
<A HREF="../index.html">Home</A> .
<A HREF="../sitemap.html">Sitemap</A> .
<A HREF="../contact.html">Contact Us</A> .
<A HREF="../search.html">Search</A> .
<A HREF="../newsletter.html">Subscribe</A>
<BR>
© 2002 ATTO Technology, Inc.
</div>

</TD>
<TD><IMG SRC="../images/spacer.gif" alt="" border="0" width="15"></TD>
</TR>
</TABLE>

<div id="corporateMenu" onmouseover="show('corporateMenu')"; onmouseout="hide('corporateMenu')"; class="menu"
style="position:absolute; left:171px; top:84px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('corporateMenu')";>
<a class="menuItem" href="../corporate.html">Overview</a>
<a class="menuItem" href="../attoview.html">About ATTO</a>
<a class="menuItem" href="../press.html">Press Room</a>
<a class="menuItem" href="../events.html">Events</a>
<a class="menuItem" href="../job.html">Job Opportunities</a>
<a class="menuItem" href="../contact.html">Contact Us</a>
<a class="menuItem" href="../partners.html">Partners</a>
<a class="menuItem" href="../directions.html">Map to ATTO</a>
<a class="menuItem" href="../attoimages.html">ATTO Logo</a></layer></td></tr></table>
</div>
<div id="technologyMenu" onmouseover="show('technologyMenu')"; onmouseout="hide('technologyMenu')"; class="menu"
style="position:absolute; left:238px; top:84px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('technologyMenu')";>
<A class="menuItem" href="../technology.html">Overview</A>
<A class="menuItem" href="../fctech.html">Fibre Channel</A>
<A class="menuItem" href="../scsitech.html">SCSI</A>
<A class="menuItem" href="../fcata.html">FC-to-ATA</A>
<A class="menuItem" HREF="../iscsi.html">iSCSI</A>
<A class="menuItem" HREF="../infiniband.html">InfiniBand</A>
<A class="menuItem" href="../sans.html">SAN Solutions</A>
<A class="menuItem" href="../products.html">Products</A>
<A class="menuItem" HREF="../

http://www.snia.org/English/Resources/Dictionary_FS.html"

target="SNIA">SNIA
Dictionary</A>
<A class="menuItem" href="../snw.html">ATTO at SNW</A></layer></td></tr></table>
</div>
<div id="productsMenu" onmouseover="show('productsMenu')"; onmouseout="hide('productsMenu')"; class="menu"
style="position:absolute; left:308px; top:84px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('productsMenu')";>
<a class="menuItem" href="../products.html">Overview</a>
<a class="menuItem" href="../epciview.html">Host Adapters</a>
<a class="menuItem" href="../fcbridge.html">FC Bridges</a>
<a class="menuItem" href="../fchubs.html">FC Hubs</a>
<a class="menuItem" href="../fcrack.html">FC Rack Systems</a>
<a class="menuItem" href="../software.html">Software</a>
<a class="menuItem" href="../dcc.html">Workgroup Solutions</a>
<a class="menuItem" href="../enter.html">Enterprise Solutions</a>
<a class="menuItem" href="../diamond/index.html">OEM Only</a></layer></td></tr></table>
</div>
<div id="sansMenu" onmouseover="show('sansMenu')"; onmouseout="hide('sansMenu')"; class="menu" style="position:absolute;
left:367px; top:84px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer bgcolor="#e0e0e0"
onmouseout="hide('sansMenu')";>
<a class="menuItem" href="../sans.html">Overview</a>
<a class="menuItem" href="../workgroupsan.html">Workgroup SAN</a>
<a class="menuItem" href="../enterprisesan.html">Enterprise SANs</a>
</layer></td></tr></table>
</div>
<div id="supportMenu" onmouseover="show('supportMenu')"; onmouseout="hide('supportMenu')"; class="menu"
style="position:absolute; left:408px; top:84px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('supportMenu')";>
<a class="menuItem" href="../support.html">Overview</a>
<a class="menuItem" href="../software/index.html">Downloads</a>
<a class="menuItem" href="../warranty.html">Contact & Warranty Information</a>
<a class="menuItem" href="../trouble.html">Troubleshooting, Tips & FAQs</a>
<a class="menuItem" href="../hot.html">Hot Topics</a>
<a class="menuItem" href="mailto:techsupp\@attotech.com?&subject=SCSI Configuration Question">Ask the
Experts</a>
<a class="menuItem" href="../macsup.html">Mac® OS X Support</a>
<a class="menuItem" href="../license.html">Software Authorization</a></layer></td></tr></table>
</div>
<div id="partnersMenu" onmouseover="show('partnersMenu')"; onmouseout="hide('partnersMenu')"; class="menu"
style="position:absolute; left:461px; top:84px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('partnersMenu')";>
<a class="menuItem" href="../partners.html">Overview</a>
<a class="menuItem" href="../intpart.html">International Partners</a>
<a class="menuItem" href="../dispart.html">North American Distribution Partners</a>
<a class="menuItem" href="../varplan.html">Advantage Partners</a>
<a class="menuItem" href="../ipart.html">Industry Partners</a>
<a class="menuItem" href="../iassoc.html">Association Partners</a>
<a class="menuItem" href="../catalogs.html">Catalogs</a></layer></td></tr></table>
</div>
<div id="attostoreMenu" class="menu" style="position:absolute; left:518px; top:84px; z-index:2; visibility:hidden;">
<a class="menuItem" href="../attostore.html">TEST</a>
</div>
<div id="helpMenu" class="menu" style="position:absolute; left:589px; top:84px; z-index:2; visibility:hidden;">
<a class="menuItem" href="../attostore.html">TEST</a>
</div>
<div id="downloadsMenu" onmouseover="show('downloadsMenu')"; onmouseout="hide('downloadsMenu')"; class="menu"
style="position:absolute; left:625px; top:84px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('downloadsMenu')";>
<a class="menuItem" href="index.html">Software</a>
<a class="menuItem" href="index.html">Product Information</a></layer></td></tr></table>
</div>
</body>
</html>
_HTML_
return 1;
}

bufhal2 · Jun 8, 2006

Sorry;
here is the correct copy

#!/usr/local/bin/perl -w
use strict;

## Scott Wiersdorf
## Created: Tue Jul 3 15:54:52 MDT 2001
## $Id: search.pl.sample,v 1.1 2001/07/06 17:15:12 scottw Exp $

## simple swish-e search form
##
## See <

http://sunsite.berkeley.edu/SWISH-E/Scripts/>

for alternatives
##
## modifications to this file should be made in the 'print_header'
## and 'print_footer' subroutines at the bottom of this file (search
## for 'MODIFY ME')
##
## This program assumes the swish-e index will be located in
## /usr/local/swish-e/index/ (for security reasons)
##
## printing to STDERR will usually log to Apache's error_log if this
## script is called as a CGI from Apache.
##

## CGI.pm helps us be more secure because it auto-escapes badness
use CGI qw

standard);

## defaults
use constant DEF_TERM => '';
use constant DEF_RESULTS => 50;
use constant DEF_INDEX => 'index.swish';

## create CGI query object
my $q = new CGI;
my %query = ();

## print the header first so the visitor can see something
print_header();

## get search term(s)
$query{'term'} = $q->param('query');
if( $query{'term'} ) {
$query{'term'} =~ s/[|`&*()<>]//g; ## remove garbage
}
$query{'term'} = DEF_TERM unless $query{'term'};

## get number of results
$query{'results'} = $q->param('results') || DEF_RESULTS;
if( $query{'results'} ) {
$query{'results'} =~ s/\D//g;
}
$query{'results'} = DEF_RESULTS unless $query{'results'};

## get the index name
$query{'index'} = $q->param('index') || DEF_INDEX;
$query{'index'} =~ s![~/]!!g; ## remove tildes and slashes
while( $query{'index'} =~ s!\.\.!!g ) { }; ## remove double dots
$query{'index'} = DEF_INDEX unless $query{'index'};

## set paths of program and index
my $swish_dir = '/usr/local';
my $swish_dir2 = '/usr/local/swish-e';
# my $swish_prog = '/usr/local/bin/swish-e';
my $swish_prog = "$swish_dir/bin/swish-e";
# my $swish_indx = '/usr/local/swish-2.0.5/$query{'index'}';
my $swish_indx = "$swish_dir2/$query{'index'}";

## check index
unless( -f $swish_indx ) {
print STDERR "[Swish-e] No index or '$swish_indx' does not exist!\n";
error( "Search Feature is not working yet. We apologize for the problem and are working on correcting it." );
}

## setup swish-e command
my $cmd = "$swish_prog -w " . $query{'term'} . " -m " . $query{'results'} .
" -f $swish_indx";

## try to open a pipe to swish-e
unless( open( SWISH, "$cmd |" ) ) {
print STDERR "[Swish-e] Couldn't open '$cmd': $!\n";
error( "Could not open search engine! Please notify the site administrator." );
}

## fetch results from pipe. Swish-e results look like this (by default):
## relevancy document title
## path to document document size
## 1000 ./test_phrase.html "Document Title" 176

my $line;
while( chomp($line = <SWISH>) ) {
next unless $line;

## skip swish-e comments
next if $line =~ /^#/;

## check for errors
if( $line =~ /^err:\s*(.+)$/i ) {
print STDERR "[Swish-e] Error: $line\n";
my $error = $1;
$error = "An undefined error occured. Please notify the site administrator."
unless $error;
close SWISH;
error( $error );
}

## last result
last if $line eq '.';

## skip non-results lines
next unless $line =~ /^\d/;

## -- you've got results -- ##
my( $relevancy, $doc_path, $title, $size );
unless( ( $relevancy, $doc_path, $title, $size ) =
$line =~ /^(\d+) (.+?) "(.+)" (\d+)$/ ) {
next;
}

## clean up document path
$doc_path =~ s!^\.+/!!;

## debugging: anything printed to STDERR shows up in the web
## server error_log (look for it there)
# print STDERR "line = $line\n";

## MODIFY ME
print <<_RESULT_;
<strong><a href="$doc_path">$title</a></strong><br>

_RESULT_

}

## close pipe
close SWISH;

print_footer();

## all done
exit;

## print the error
sub error {
my $msg = shift;

print <<_ERROR_;
<h2>Sorry</h2>
$msg
_ERROR_

print_footer();

exit;
}

## MODIFY ME
sub print_header {
print CGI::header;

print <<_HTML_;
<html>
<head>
<title>Search Results</title>
<link href="../default.css" rel="stylesheet" type="text/css">
<LINK REL=stylesheet HREF="../atto.css" TYPE="text/css">
</head>

<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0">
<script type="text/javascript" language="JavaScript" src="../ua.js"></script>
<script type="text/javascript" language="JavaScript" src="../jscript.js"></script>
<TABLE border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" width=700>
<TR>
<TD>
<A HREF="../index.html"><IMG SRC="../images/leftlogo.gif" alt="" valign=top border=0></A>
</TD>
<TD>
<IMG SRC="../images/topmenu1.gif" alt="" valign=top border=0><BR>
<div class="menuBar"><span id="corporate"><a href="../corporate.html" onmouseover="set('corporateMenu');"
onmouseout="hide2('corporateMenu');"><img src="../images/m1.gif" name="corporate" alt="" border=0></a></span><span
id="products"><a href="../products.html" onmouseover="set('productsMenu');" onmouseout="hide2('productsMenu');"><img
src="../images/m2.gif" name="product" alt="" border=0></a></span><span id="howtobuy"><a href="../howtobuy.html"
onmouseover="set('howtobuyMenu');" onmouseout="hide2('howtobuyMenu');"><img src="../images/m3.gif" name="howtobuy" alt=""
border=0></a></span><span id="support"><a href="../support.html" onmouseover="set('supportMenu');"
onmouseout="hide2('supportMenu');"><img src="../images/m4.gif" name="support" alt="" border=0></a></span><span
id="solutions"><a href="../solutions.html" onmouseover="set('solutionsMenu');" onmouseout="hide2('solutionsMenu');"><img
src="../images/m5.gif" name="solutions" alt="" border=0></a></span><span id="alliances"><a href="../alliances.html"
onmouseover="set('alliancesMenu');" onmouseout="hide2('alliancesMenu');"><img src="../images/m6.gif" name="buy" alt=""
border=0></a></span><span id="attostore"><a href="../attostore.html"><img src="../images/m7.gif" name="store" alt=""
border=0></a></span><span id="downloads"><a href="../software/index.html" onmouseover="set('downloadsMenu');"
onmouseout="hide2('downloadsMenu');"><img src="../images/m8.gif" name="downloads" border=0></a></span></div>
</TD>
</TR>
<TR>
<TD colspan=2>
<TABLE WIDTH="100%" >
<TR>
<TD><IMG SRC="../images/spacer.gif" width=10 alt="" height=1></TD>
<TD>
<div align=justify><BR><BR>

<FONT size="5"><BR><B>Search Results!</B></FONT><BR><BR>

_HTML_

return 1;
}

## MODIFY ME
sub print_footer {
print <<_HTML_;

<BR><BR>
</div>


<div class=footer align=center>
<BR><BR>
<A HREF="../index.html">Home</A> .
<A HREF="../sitemap.html">Sitemap</A> .
<A HREF="../contact.html">Contact Us</A> .
<A HREF="../search.html">Search</A> .
<A HREF="../newsletter.html">Subscribe</A>
<BR>
© 2004 ATTO Technology, Inc.
</div>

</TD>
<TD><IMG SRC="../images/spacer.gif" alt="" border="0" width="15"></TD>
</TR>
</TABLE>

<div id="corporateMenu" onmouseover="show('corporateMenu')"; onmouseout="hide('corporateMenu')"; class="menu"
style="position:absolute; left:187px; top:60px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('corporateMenu')";>
<a class="menuItem" href="../corporate.html">Overview</a>
<a class="menuItem" href="../attoview.html">About ATTO</a>
<a class="menuItem" href="../press.html">Press Room</a>
<a class="menuItem" href="../events.html">Events</a>
<a class="menuItem" href="../job.html">Job Opportunities</a>
<a class="menuItem" href="../contact.html">Contact Us</a>
<a class="menuItem" href="../alliances.html">Alliances</a>
<a class="menuItem" href="../directions.html">Map to ATTO</a>
<a class="menuItem" href="../attoimages.html">ATTO Logo</a></layer></td></tr></table>
</div>
<div id="productsMenu" onmouseover="show('productsMenu')"; onmouseout="hide('productsMenu')"; class="menu"
style="position:absolute; left:265px; top:60px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('productsMenu')";>
<a class="menuItem" href="../products.html">Overview</a>
<a class="menuItem" href="../epciview.html">Host Adapters</a>
<a class="menuItem" href="../bridge.html">Bridges</a>
<a class="menuItem" href="../fchubs.html">FC Hubs</a>
<a class="menuItem" href="../fcrack.html">FC Rack Systems</a>
<a class="menuItem" href="../diamond/index.html">Storage Array</a>
<a class="menuItem" href="../software.html">Software</a>
</layer></td></tr></table>
</div>
<div id="howtobuyMenu" onmouseover="show('howtobuyMenu')"; onmouseout="hide('howtobuyMenu')"; class="menu"
style="position:absolute; left:335px; top:60px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('howtobuyMenu')";>
<a class="menuItem" href="../howtobuy.html">Overview</a>
<a class="menuItem" href="../attostore.html">ATTO Store</a>
<a class="menuItem" href="../findreseller.html">Find a Reseller</a>
<a class="menuItem" href="../partnerprogram.html">Become a partner</a>
<a class="menuItem" href="../dispart.html">North American Distributors</a>
<a class="menuItem" href="../europe.html">EMEA Distributors</a>
<a class="menuItem" href="../asia.html">Asia-PAC Distributors</a>
<a class="menuItem" href="../oem.html">OEM Sales</a></layer></td></tr></table>
</div>
<div id="supportMenu" onmouseover="show('supportMenu')"; onmouseout="hide('supportMenu')"; class="menu"
style="position:absolute; left:417px; top:60px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('supportMenu')";>
<a class="menuItem" href="../support.html">Overview</a>
<a class="menuItem" href="../techsupt.php">Contact Tech Support</a>
<a class="menuItem" href="../warranty.html">Warranties and other services</a>
<a class="menuItem" href="../trouble.html">Troubleshooting, Tips & FAQs</a>
<a class="menuItem" href="../technicalinfo.html">Technical Information</a>
<a class="menuItem" href="../software/index.html">Downloads</a>
<a class="menuItem" href="../hottopics.html">Hot Topics</a></layer></td></tr></table>
</div>
<div id="solutionsMenu" onmouseover="show('solutionsMenu')"; onmouseout="hide('solutionsMenu')"; class="menu"
style="position:absolute; left:478px; top:60px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('solutionsMenu')";>
<A class="menuItem" href="../solutions.html">Overview</A>
<A class="menuItem" href="../oemsolutions.html">OEM Embedded Solutions</A>
<A class="menuItem" href="../digitalcc.html">Digital Content Creation</A>
<A class="menuItem" href="../imagingfc.html">Imaging / Fixed Content</A>
<A class="menuItem" HREF="../business.html">Business Continuity / Backup</A></layer></td></tr></table>
</div>

<div id="alliancesMenu" onmouseover="show('alliancesMenu')"; onmouseout="hide('alliancesMenu')"; class="menu"
style="position:absolute; left:560px; top:60px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('alliancesMenu')";>
<a class="menuItem" href="../alliances.html">Overview</a>
<a class="menuItem" href="../partnerprogram.html">Partner Programs</a>
<a class="menuItem" href="../ialliances.html">Industry Alliances</a>
<a class="menuItem" href="../iassoc.html">Industry Associations</a></layer></td></tr></table>
</div>
<div id="attostoreMenu" class="menu" style="position:absolute; left:518px; top:60px; z-index:2; visibility:hidden;">
<a class="menuItem" href="../attostore.html">TEST</a>
</div>
<div id="downloadsMenu" onmouseover="show('downloadsMenu')"; onmouseout="hide('downloadsMenu')"; class="menu"
style="position:absolute; left:678px; top:60px; z-index:2; visibility:hidden;"><table border="0"><tr><td><layer
bgcolor="#e0e0e0" onmouseout="hide('downloadsMenu')";>
<a class="menuItem" href="index.html">Software</a>
<a class="menuItem" href="index.html">Product Information</a></layer></td></tr></table>
</div>
</body> </html>
_HTML_
return 1;
}

PaulTEG · Jun 9, 2006

Code:

use CGI qw(:standard);

under this line add

Code:

 use CGI::Carp qw /fatalsToBrowser/;

That should catch most errors ;-)

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

bufhal2 · Jun 9, 2006

Thanks Paul;
I appreciate your reply. Not getting an error message unless I try to add our new menu. The CSS and Javascript files don't work. I am trying to ad the menu in but it will not open and fly out. This is the page with the old menu:

http://www.attotech.com/cgi-bin/search.pl

PaulTEG · Jun 9, 2006

OK, what errors are you getting when you add in the new menu?

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

trying to add new menu to perl swish-e search

bufhal2

Technical User

bufhal2

Technical User

PaulTEG

Technical User

bufhal2

Technical User

PaulTEG

Technical User

Similar threads

Part and Inventory Search

Sponsor