The output from query-pr.web will never match /^query-pr:/, as we call it

as query-pr.real; fix error reporting by taking this into account.
This commit is contained in:
Ceri Davies 2003-05-21 18:48:51 +00:00
parent 71f9dedcc7
commit a666faaa33
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=17038

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.30 2003/03/06 23:51:58 wosch Exp $
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.31 2003/04/10 09:29:21 des Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -80,9 +80,9 @@ while(<Q>) {
$html_fixup = 1;
if (/^query-pr: /) {
if (/^query-pr.real: /) {
print &html_header("FreeBSD problem report");
if ($_ ne "query-pr: no PRs matched") {
if ($_ ne "query-pr.real: no PRs matched") {
print "<P>query-pr said:\n";
print "<PRE>$_\n";
print <Q>;