os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Skip printing empty fields from the PR. This skips the new, unused

Browse source 
GNATS fields like Quarter: and Keywords: (but won't skip them if someone
actually uses them).
This commit is contained in:
Bill Fenner 1998-01-22 02:31:11 +00:00
parent b623c01d7e
commit 8c69aca775
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2385
2 changed files with 44 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
data/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/usr/bin/perl
# $Id: query-pr.cgi,v 1.4 1997-03-19 21:25:29 fenner Exp $ # $Id: query-pr.cgi,v 1.5 1998-01-22 02:31:11 fenner Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin"; $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -59,9 +59,15 @@ while(<Q>) {
$html_fixup = 1; $html_fixup = 1;
if (/^query-pr: no PRs matched$/) { if (/^query-pr: /) {
print &html_header("FreeBSD problem report"); print &html_header("FreeBSD problem report");
print "<p>No PR found matching $pr</p>\n"; print "<p>No PR found matching $pr</p>\n";
if ($_ ne "query-pr: no PRs matched") {
print "<P>query-pr said:\n";
print "<PRE>$_\n";
print <Q>;
print "</PRE>\n";
}
print &html_footer; print &html_footer;
exit; exit;
} }
@ -84,7 +90,7 @@ while(<Q>) {
s/^>Last-Modified:\s*$/>Last-Modified: never/; s/^>Last-Modified:\s*$/>Last-Modified: never/;
if(/^>Number:/) { if (/^>Number:/) {
$number = &getline($_); $number = &getline($_);
$inhdr = 0; $inhdr = 0;
} elsif (/^>Category:/) { } elsif (/^>Category:/) {
@ -99,13 +105,17 @@ while(<Q>) {
next if $inhdr; next if $inhdr;
if (/^>(\S+):\s*(.*)/) { if (/^>(\S+):\s*(.*)/) {
print $trailer . "\n"; print $trailer . "\n" unless ($blank);
print "<dt><strong>$1</strong><dd>\n"; $trailer = "<dt><strong>$1</strong><dd>\n";
$trailer = $2; if ($html_fixup) {
$trailer = &fixline($2) if $html_fixup; $trailer .= &fixline($2);
if ($1 eq "Originator" && $from ne "") { # add email address } else {
$trailer .= " <A HREF=\"mailto:$email\">" . &fixline($from) . "</A>"; $trailer .= $2;
} }
if ($1 eq "Originator" && $from ne "") { # add email address
$trailer .= " <A HREF=\"mailto:$email\">" . &fixline($from) . "</A>";
}
$blank = !($2);
$multiline = 0; $multiline = 0;
} else { } else {
unless ($multiline) { unless ($multiline) {
@ -113,6 +123,7 @@ while(<Q>) {
print $trailer . "\n<listing>\n"; print $trailer . "\n<listing>\n";
} }
$multiline = 1; $multiline = 1;
$blank = 0;
print $html_fixup ? &fixline($_) : $_ , "\n"; print $html_fixup ? &fixline($_) : $_ , "\n";
$trailer = "</listing>"; $trailer = "</listing>";
} }
@ -120,7 +131,8 @@ while(<Q>) {
} }
close(Q); close(Q);
print "$trailer\n</dl>"; print "$trailer\n" unless ($blank);
print "</dl>";
$syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg; $syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
$email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg; $email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg;

32
en/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/usr/bin/perl
# $Id: query-pr.cgi,v 1.4 1997-03-19 21:25:29 fenner Exp $ # $Id: query-pr.cgi,v 1.5 1998-01-22 02:31:11 fenner Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin"; $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -59,9 +59,15 @@ while(<Q>) {
$html_fixup = 1; $html_fixup = 1;
if (/^query-pr: no PRs matched$/) { if (/^query-pr: /) {
print &html_header("FreeBSD problem report"); print &html_header("FreeBSD problem report");
print "<p>No PR found matching $pr</p>\n"; print "<p>No PR found matching $pr</p>\n";
if ($_ ne "query-pr: no PRs matched") {
print "<P>query-pr said:\n";
print "<PRE>$_\n";
print <Q>;
print "</PRE>\n";
}
print &html_footer; print &html_footer;
exit; exit;
} }
@ -84,7 +90,7 @@ while(<Q>) {
s/^>Last-Modified:\s*$/>Last-Modified: never/; s/^>Last-Modified:\s*$/>Last-Modified: never/;
if(/^>Number:/) { if (/^>Number:/) {
$number = &getline($_); $number = &getline($_);
$inhdr = 0; $inhdr = 0;
} elsif (/^>Category:/) { } elsif (/^>Category:/) {
@ -99,13 +105,17 @@ while(<Q>) {
next if $inhdr; next if $inhdr;
if (/^>(\S+):\s*(.*)/) { if (/^>(\S+):\s*(.*)/) {
print $trailer . "\n"; print $trailer . "\n" unless ($blank);
print "<dt><strong>$1</strong><dd>\n"; $trailer = "<dt><strong>$1</strong><dd>\n";
$trailer = $2; if ($html_fixup) {
$trailer = &fixline($2) if $html_fixup; $trailer .= &fixline($2);
if ($1 eq "Originator" && $from ne "") { # add email address } else {
$trailer .= " <A HREF=\"mailto:$email\">" . &fixline($from) . "</A>"; $trailer .= $2;
} }
if ($1 eq "Originator" && $from ne "") { # add email address
$trailer .= " <A HREF=\"mailto:$email\">" . &fixline($from) . "</A>";
}
$blank = !($2);
$multiline = 0; $multiline = 0;
} else { } else {
unless ($multiline) { unless ($multiline) {
@ -113,6 +123,7 @@ while(<Q>) {
print $trailer . "\n<listing>\n"; print $trailer . "\n<listing>\n";
} }
$multiline = 1; $multiline = 1;
$blank = 0;
print $html_fixup ? &fixline($_) : $_ , "\n"; print $html_fixup ? &fixline($_) : $_ , "\n";
$trailer = "</listing>"; $trailer = "</listing>";
} }
@ -120,7 +131,8 @@ while(<Q>) {
} }
close(Q); close(Q);
print "$trailer\n</dl>"; print "$trailer\n" unless ($blank);
print "</dl>";
$syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg; $syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
$email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg; $email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg;