httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Rodent of Unusual Size <c...@hyperreal.com>
Subject cvs commit: apache-site manual-index.cgi
Date Wed, 04 Jun 1997 00:31:25 GMT
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!
  ! 	    #
    	}
        }
    
    #
  
  
  

Mime
View raw message