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

Call the wrapper query-pr.web

Browse source
This commit is contained in:
Wolfram Schneider 2003-03-06 23:51:58 +00:00
parent ab709835f7
commit 2e7126ef95
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=16206
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
en/cgi/query-pr-summary.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.37 2002/04/23 17:15:40 kuriyama Exp $
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.38 2003/01/16 02:02:40 keramida Exp $
sub escape($) { $_ = $_[0]; s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g; $_; }
@ -353,7 +353,7 @@ sub severity_summary {
sub get_categories {
@categories = ();
open(Q, "query-pr --list-categories 2>/dev/null |") ||
open(Q, "query-pr.web --list-categories 2>/dev/null |") ||
die "Cannot get categories\n";
while(<Q>) {
@ -367,7 +367,7 @@ sub get_categories {
sub get_states {
@states = ();
open(Q, "query-pr --list-states 2>/dev/null |") ||
open(Q, "query-pr.web --list-states 2>/dev/null |") ||
die "Cannot get states\n";
while(<Q>) {
@ -381,7 +381,7 @@ sub get_states {
sub get_classes {
@classes = ();
open(Q, "query-pr --list-classes 2>/dev/null |") ||
open(Q, "query-pr.web --list-classes 2>/dev/null |") ||
die "Cannot get classes\n";
while(<Q>) {
@ -395,7 +395,7 @@ sub get_classes {
sub read_gnats {
local($report) = @_[0];
open(Q, "query-pr $report 2>/dev/null |") || die "Cannot query the PR's\n";
open(Q, "query-pr.web $report 2>/dev/null |") || die "Cannot query the PR's\n";
while(<Q>) {
chop;

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

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.28 2002/08/04 22:24:29 wosch Exp $
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.29 2002/08/05 19:05:29 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -56,7 +56,7 @@ if ($pr < 1 || $pr > 499999) {
exit 0;
}
unless (open(Q, "query-pr --restricted -F $pr 2>&1 |")) {
unless (open(Q, "query-pr.web --restricted -F $pr 2>&1 |")) {
print &html_header("Server error");
print "<p>Unable to open PR database.</p>\n";
print &html_footer;
@ -87,7 +87,7 @@ while(<Q>) {
print "<PRE>$_\n";
print <Q>;
print "</PRE>\n";
} elsif (($* = 1) && `query-pr $pr 2>&1` =~ /^>Confidential:\s+yes/) {
} elsif (($* = 1) && `query-pr.web $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";