coar 97/06/03 17:31:24
Modified: . manual-index.cgi
Log:
Fixed a Perl misteak (used "leave" instead of "last" - too
much BLISS lately.. ;-).
Revision Changes Path
1.6 +60 -58 apache-site/manual-index.cgi
Index: manual-index.cgi
===================================================================
RCS file: /export/home/cvs/apache-site/manual-index.cgi,v
retrieving revision 1.5
retrieving revision 1.6
diff -C3 -r1.5 -r1.6
*** manual-index.cgi 1997/06/02 14:53:31 1.5
--- manual-index.cgi 1997/06/04 00:31:23 1.6
***************
*** 157,221 ****
# 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;
}
- #
- # 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!
- #
}
#
--- 157,223 ----
# 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!");
! 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!
! #
}
}
#
