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

Don't be coy about confidential PR's; admit that they exist but

Browse source 
are confidential.
This commit is contained in:
Bill Fenner 1998-06-16 06:46:15 +00:00
parent e79c0976b0
commit dff1a01b8c
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2950
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.12 1998-06-08 13:51:30 wosch Exp $
# $Id: query-pr.cgi,v 1.13 1998-06-16 06:46:15 fenner Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -68,12 +68,15 @@ while(<Q>) {
if (/^query-pr: /) {
print &html_header("FreeBSD problem report");
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";
} elsif (($* = 1) && `query-pr $pr 2>&1` =~ /^>Confidential:\s+yes/) {
print "<P>Sorry, PR $pr exists but is confidential\n";
} else {
print "<p>No PR found matching $pr\n";
}
print &html_footer;
exit;

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

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.12 1998-06-08 13:51:30 wosch Exp $
# $Id: query-pr.cgi,v 1.13 1998-06-16 06:46:15 fenner Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -68,12 +68,15 @@ while(<Q>) {
if (/^query-pr: /) {
print &html_header("FreeBSD problem report");
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";
} elsif (($* = 1) && `query-pr $pr 2>&1` =~ /^>Confidential:\s+yes/) {
print "<P>Sorry, PR $pr exists but is confidential\n";
} else {
print "<p>No PR found matching $pr\n";
}
print &html_footer;
exit;