nicht angemeldet
Ich hab diesen Quelltext für meine Suchfunktion (Excite Suchmaschine).
Im IE wird angezeigt wenn nichts gefunden wurde, im Netscape nicht, warum im Netscape nicht?
####################################################################################
#!/bin/sh
perl=/u/excite/architext/perl
eval "exec $perl -x $0 $*"
#!perl
$root = "/u/excite/architext";
unshift(@INC, "$root/perllib");
require 'architext_query.pl';
$aurl = "/cgi-docs/";
$db = "pass38pass38pass38pass38pass38pass38exsuch";
$index = "/u/web/pass38/collection/pass38pass38pass38pass38pass38pass38exsuch";
$hroot = "/u/web/";
$binary = "/u/excite/architext/architextSearch";
$urledit = 's^/u/web/pass38/';
print "Content-type: text/html\n\n";
print "<html><head><title>Excite for Web Servers Search Results</title></head>\n";
print "<body bgcolor=#FFFFFF>\n";
print "<br>";
print "<br>";
print "<center>";
print "<table border=0 width=85% bgcolor=#DEE7D6>
<tr>
<td width=100% align=left height=500 valign=top>";
print "<center>";
print "<table border=0 width=80% bgcolor=#DEE7D6>
<tr>
<td width=100% align=left><h1><img src="/images/AT-search_banner.gif" BORDER=0></h1></td>
</tr></table></center>";
print "<div align=center><center>
<table border=0 width=80% bgcolor=#DEE7D6>
<tr>
<td width=100% align=left>";
Read the arguments to the form
%form = &ArchitextQuery'readFormArgs;
$search = &ArchitextQuery'setSearchString(%form);
$searchtype = &ArchitextQuery'getSearchMode(%form);
put necessary additional information into %form
$form{'aurl'} = $aurl;
$form{'db'} = $db;
$form{'index'} = $index;
$form{'hroot'} = $hroot;
$form{'binary'} = $binary;
$form{'root'} = $root;
$form{'urledit'} = $urledit;
$form{'searchpage'} = $ENV{'HTTP_REFERER'} if ($form{'sp'});
$form{'docs'} = '1' unless $form{'docs'};
$form{'psearch'} = $form{'psearch'} $form{'search'};
$form{'search'} = $search;
$errstr = 'success';
This call checks to make sure that an index has been built for
this collection.
&ArchitextQuery'checkForIndex(%form);
if ($searchtype eq 'confidence') {
## Perform the query. This function doesn't print anything.
##Later commands will display the results.
($errstr, @query_results) = &ArchitextQuery'MakeQuery(%form);
$docs = &ArchitextQuery'PrepareGather(*query_results);
$form{'docs'} = $docs;
# &ArchitextQuery'showSearchMode($searchtype, %form)
# unless (($errstr eq 'summary') ($errstr eq 'dump'));
# &ArchitextQuery'showSearchString(%form)
unless (($errstr eq 'summary') ($errstr eq 'dump'));
&ArchitextQuery'HtmlList(*query_results, %form) if ($errstr eq 'success');
} else {
## subject group query
# &ArchitextQuery'showSearchMode($searchtype, %form);
# &ArchitextQuery'showSearchString(%form, 'gather', 'gather');
$errstr = &ArchitextQuery'MakeGather(%form);
}
if ($errstr eq 'summary') {
&ArchitextQuery'SummaryOutput(*query_results);
} elsif ($errstr eq 'dump') {
&ArchitextQuery'DocumentOutput(*query_results);
} else {
print &ArchitextQuery'queryError($errstr)
unless ($errstr eq 'success');
}
&ArchitextQuery'footer($aurl) if ($errstr eq 'success');
print "</td></tr></table></center></div></td></tr></table></center>\n";
print "</body></html>\n";
####################################################################################
Viele Grüße Daniel