We are approaching P100k real fast now. Grab the opportunity to 'fix'

some bugs of the text-mode listings of the Gnats database:

  - Shave 2 characters out of the submission date, by removing the
    enclosing [] pair.
  - Increase the width of the tracker field.  It should now be wide
    enough until PR standards/999999 (which is, hopefully, a very
    long time).
  - Decrease the width of Resp. to 10 characters, as the longer name
    is now a bit shorter (after the removal of 'freebsd-' a while
    back).
  - Shorten the 'Description' a bit, to keep the entire listing at
    less than 79 columns (which IIRC was broken by me in revision
    1.45, during the split of HTML/text output in separate functions).
This commit is contained in:
Giorgos Keramidas 2005-01-18 17:31:12 +00:00
parent 74894cebc7
commit 362ca6ed01
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=23580

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.47 2004/10/13 10:55:55 keramida Exp $
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.48 2004/10/25 11:27:08 keramida Exp $
sub escape($) { $_ = $_[0]; s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g; $_; }
@ -538,12 +538,12 @@ sub gnats_summary_line_text {
local($syn) = shift;
# Print the banner line if this is the first iteration.
print "${pr}\nS Submitted Tracker Resp. Description${hr}"
print "${pr}\nS Submitted Tracker Resp. Description${hr}"
if ($counter == 0);
print "$state [$date] $title" .
(' ' x (16 - length($_))) .
$resp . (' ' x (12 - length($resp))) .
substr($syn,0,41) . "\n";
print "$state $date $title" .
(' ' x (17 - length($_))) .
$resp . (' ' x (10 - length($resp))) .
substr($syn,0,39) . "\n";
}
sub displayform {