diff options
author | Ken Coar <coar@apache.org> | 1997-06-04 00:31:23 +0000 |
---|---|---|
committer | Ken Coar <coar@apache.org> | 1997-06-04 00:31:23 +0000 |
commit | bff9c8779a4f1c4c76648a437501b06951e1e5b3 (patch) | |
tree | 713c32042ff9062d2f61ab2f643643671046f67f | |
parent | c44922017a00229e2fdb86e42aeea87ed98ab8f8 (diff) | |
download | httpd-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
-rw-r--r-- | docs/manual/search/manual-index.cgi | 118 |
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! - # } # |