summaryrefslogtreecommitdiff
path: root/docs/manual/search
diff options
context:
space:
mode:
authorKen Coar <coar@apache.org>1997-06-04 00:31:23 +0000
committerKen Coar <coar@apache.org>1997-06-04 00:31:23 +0000
commitbff9c8779a4f1c4c76648a437501b06951e1e5b3 (patch)
tree713c32042ff9062d2f61ab2f643643671046f67f /docs/manual/search
parentc44922017a00229e2fdb86e42aeea87ed98ab8f8 (diff)
downloadhttpd-bff9c8779a4f1c4c76648a437501b06951e1e5b3.tar.gz
Fixed a Perl misteak (used "leave" instead of "last" - too
much BLISS lately.. ;-). git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@78216 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'docs/manual/search')
-rw-r--r--docs/manual/search/manual-index.cgi118
1 files changed, 60 insertions, 58 deletions
diff --git a/docs/manual/search/manual-index.cgi b/docs/manual/search/manual-index.cgi
index e4fa41ad0a..8d06e8a115 100644
--- a/docs/manual/search/manual-index.cgi
+++ b/docs/manual/search/manual-index.cgi
@@ -157,65 +157,67 @@ EOHT
# closure code.
#
QUERY:
- if ($word) {
- #
- # Try and open the index file; complain bitterly if we can't.
- #
- if (! open (INDEX, "<$INDEX")) {
- printf ("Can't find documentation index!");
- leave QUERY;
+ {
+ if ($word) {
+ #
+ # Try and open the index file; complain bitterly if we can't.
+ #
+ if (! open (INDEX, "<$INDEX")) {
+ printf ("Can't find documentation index!");
+ last QUERY;
+ }
+ #
+ # Got it; display the search-results header.
+ #
+ printf ($HTML);
+ #
+ # Read the entire index in and turn it into an hash for the
+ # lookup.
+ #
+ @index = <INDEX>;
+ close (INDEX);
+ chomp (@index);
+ foreach (@index) {
+ ($key, $files) = split (/:/, $_);
+ $Index{$key} = $files;
+ }
+ #
+ # The dictionary is all lowercase words. Smash our query value
+ # and try to find it.
+ #
+ $word = lc ($word);
+ if (! exists ($Index{$word})) {
+ printf (" <P>\n <EM>Sorry, no matches found.</EM>\n </P>\n");
+ last QUERY;
+ }
+ #
+ # Found an entry, so turn the hash value (a comma-separated list
+ # of relative file names) into an array for display.
+ # Incidentally, tell the user how many there are.
+ #
+ @files = split (/,/, $Index{$word});
+ printf (" <P>Total of %d match", scalar (@files));
+ #
+ # Be smart about plurals.
+ #
+ if (scalar (@files) != 1) {
+ printf ("es") ;
+ }
+ printf (" found.\n </P>\n");
+ #
+ # Right. Now display the files as they're listed.
+ #
+ printf (" <OL>\n");
+ foreach (@files) {
+ printf (" <LI><A HREF=\"${prefix}$_\">");
+ printf ("<SAMP>$_</SAMP></A>\n");
+ printf (" </LI>\n");
+ }
+ printf (" </OL>\n");
+ #
+ # C'est tout!
+ #
}
- #
- # Got it; display the search-results header.
- #
- printf ($HTML);
- #
- # Read the entire index in and turn it into an hash for the
- # lookup.
- #
- @index = <INDEX>;
- close (INDEX);
- chomp (@index);
- foreach (@index) {
- ($key, $files) = split (/:/, $_);
- $Index{$key} = $files;
- }
- #
- # The dictionary is all lowercase words. Smash our query value
- # and try to find it.
- #
- $word = lc ($word);
- if (! exists ($Index{$word})) {
- printf (" <P>\n <EM>Sorry, no matches found.</EM>\n </P>\n");
- leave QUERY;
- }
- #
- # Found an entry, so turn the hash value (a comma-separated list
- # of relative file names) into an array for display.
- # Incidentally, tell the user how many there are.
- #
- @files = split (/,/, $Index{$word});
- printf (" <P>Total of %d match", scalar (@files));
- #
- # Be smart about plurals.
- #
- if (scalar (@files) != 1) {
- printf ("es") ;
- }
- printf (" found.\n </P>\n");
- #
- # Right. Now display the files as they're listed.
- #
- printf (" <OL>\n");
- foreach (@files) {
- printf (" <LI><A HREF=\"${prefix}$_\">");
- printf ("<SAMP>$_</SAMP></A>\n");
- printf (" </LI>\n");
- }
- printf (" </OL>\n");
- #
- # C'est tout!
- #
}
#