Return-Path: <apache-cvs-owner-apache-cvs-archive=hyperreal.org@apache.org>
Delivered-To: apache-cvs-archive@hyperreal.org
Received: (qmail 21690 invoked by uid 6000); 1 Aug 1998 09:46:00 -0000
Received: (qmail 21675 invoked by alias); 1 Aug 1998 09:45:59 -0000
Delivered-To: apache-site-cvs@hyperreal.org
Received: (qmail 21672 invoked by uid 161); 1 Aug 1998 09:45:58 -0000
Date: 1 Aug 1998 09:45:58 -0000
Message-ID: <19980801094558.21671.qmail@hyperreal.org>
From: coar@hyperreal.org
To: apache-site-cvs@hyperreal.org
Subject: cvs commit: apache-site bugdb.cgi
Sender: apache-cvs-owner@apache.org
Precedence: bulk
Reply-To: new-httpd@apache.org

coar        98/08/01 02:45:58

  Modified:    .        bugdb.cgi
  Log:
  	For large summaries, the rendering of the page needed to wait until
  	the entire page was received; for slow links this was a pain.  So,
  	as Paul suggested, the output is now broken up into 100-row tables.
  	I also added a note about 'don't send attachments, twit!' to the
  	how-to-reply section; attachments don't mix so well with non-MIME
  	tools like GNATS..
  
  Revision  Changes    Path
  1.33      +35 -16    apache-site/bugdb.cgi
  
  Index: bugdb.cgi
  ===================================================================
  RCS file: /export/home/cvs/apache-site/bugdb.cgi,v
  retrieving revision 1.32
  retrieving revision 1.33
  diff -u -r1.32 -r1.33
  --- bugdb.cgi	1998/07/27 22:39:25	1.32
  +++ bugdb.cgi	1998/08/01 09:45:57	1.33
  @@ -19,6 +19,10 @@
   [you need to include <apbugs\@Apache.Org> in the Cc line ]
   [and leave the subject line UNCHANGED.  This is not done]
   [automatically because of the potential for mail loops. ]
  +[If you do not include this Cc, your reply may be ig-   ]
  +[nored unless you are responding to an explicit request ]
  +[from a developer.                                      ]
  +[Reply only with text; DO NOT SEND ATTACHMENTS!         ]
   EOT
   
   #
  @@ -127,6 +131,9 @@
   #  05/28/1998 Ken Coar - Change the 'still alive?' standard response to include
   #    a request for retesting under the latest sotware.
   #  07/27/1998 Ken Coar - Change the default search state from "open" to "any".
  +#  08/01/1998 Ken Coar - Break summary listing into 100-row tables for
  +#    faster rendering and add 'don't send attachments' clause to the
  +#    how-to-reply text.
   #
   ### End Modification log
   
  @@ -264,7 +271,7 @@
   ### Main menu
   } elsif ($PATH_INFO eq "") {
       &main_menu();
  -    print "<HR><SMALL>Version: 28 May 1998<BR>Authors: ",
  +    print "<HR><SMALL>Version: 01 August 1998<BR>Authors: ",
   	"<A HREF=\"http://alumni.caltech.edu/~dank/gnats.html\">Dan Kegel ",
   	"and Huy Le</A>, <BR> ",
   	"with revamp work by ",
  @@ -1258,21 +1265,8 @@
   	print "<h3>No bugs match your query.</h3>\n";
   	return;
       }
  -    print "<TABLE BORDER=1>\n<TR>\n";
  -    # Print field headers.
  -    local($QUICKFMT, $WIDTH, $fstring, $str);
  -    $fstring = "<TH>PR#</TH>";
  -    foreach (@field) {
  -	($QUICKFMT, $WIDTH)=split(/:/,$field{$_});
  -	if ($QUICKFMT <= $quickfmt) {
  -#	    $fstring .= &truncstr($_, $WIDTH) . " ";
  -	    $fstring .= "<TH>$_</TH> ";
  -	}
  -    }
  -    if ($#field > 4) {
  -	$fstring .= "<TH>PR#</TH>";
  -    }
  -    print "$fstring</TR>\n"; 
  +    &qf_tabletop (%field);
  +    local ($nrows) = 0;
       # Print each PR in result as link to full text 
       foreach (@prs) {
   	s/\s*\|\s*/|/go;
  @@ -1307,6 +1301,11 @@
   		$fstring .= "<TD>" . &html_escape($str) . "</TD>";
   	    }
   	}
  +	if (($nrows % 100) == 0) {
  +	    print "</TABLE>\n<P>\n</P>\n" if ($nrows != 0);
  +	    &qf_tabletop (%field);
  +	}
  +	$nrows++;
   	print "<TR>\n";
   	print " <TD><a href=http:$SCRIPT_NAME/full/$NUMBER>$NUMBER</a></TD> ";
   	print "$fstring\n";
  @@ -1316,6 +1315,26 @@
   	print "\n</TR>\n";
       } 
       print "</table>\n";
  +}
  +
  +sub qf_tabletop {
  +    local (%field) = @_;
  +    local ($QUICKFMT, $WIDTH, $fstring, $str);
  +
  +    print "<TABLE BORDER=1>\n<TR>\n";
  +    # Print field headers.
  +    $fstring = "<TH>PR#</TH>";
  +    foreach (@field) {
  +	($QUICKFMT, $WIDTH) = split(/:/, $field{$_});
  +	if ($QUICKFMT <= $quickfmt) {
  +#	    $fstring .= &truncstr($_, $WIDTH) . " ";
  +	    $fstring .= "<TH>$_</TH> ";
  +	}
  +    }
  +    if ($#field > 4) {
  +	$fstring .= "<TH>PR#</TH>";
  +    }
  +    print "$fstring</TR>\n";
   }
   
   sub query_summary {