Cosmetic makeover.
This commit is contained in:
John Fieber
parent
7458bcc2b4
commit
1d00827682
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=560
4 changed files with 72 additions and 80 deletions
|
|
@ -1,6 +1,7 @@
|
|||
#!/usr/bin/perl
|
||||
# $Id: query-pr-summary.cgi,v 1.2 1996-09-29 03:14:13 jfieber Exp $
|
||||
|
||||
$query_pr_ref = "http://www.freebsd.org/cgi-bin/query-pr.cgi";
|
||||
($query_pr_ref = $ENV{'SCRIPT_NAME'}) =~ s/-summary//;
|
||||
$query_args = '--restricted -s "open|analyzed|feedback|suspended"';
|
||||
$state_args = '--restricted ';
|
||||
|
||||
|
|
@ -9,7 +10,8 @@ $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
|
|||
|
||||
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'} ne '';
|
||||
|
||||
require "/usr/local/www/cgi-bin/cgi-lib.pl";
|
||||
require "cgi-lib.pl";
|
||||
require "cgi-style.pl";
|
||||
require "getopts.pl";
|
||||
|
||||
if ($html_mode) {
|
||||
|
|
@ -47,7 +49,7 @@ if ($html_mode) {
|
|||
$dd = "<dd>"; $dd_x = "";
|
||||
$hr = "<hr>";
|
||||
|
||||
print "Content-type: text/html\n";
|
||||
# print "Content-type: text/html\n";
|
||||
|
||||
} else {
|
||||
|
||||
|
|
@ -67,16 +69,14 @@ if ($html_mode) {
|
|||
}
|
||||
|
||||
sub header_info {
|
||||
print "
|
||||
<html>
|
||||
<head>
|
||||
<title>Current FreeBSD problem reports</title>
|
||||
</head>
|
||||
<body>
|
||||
" if $html_mode;
|
||||
if ($html_mode) {
|
||||
print &html_header("Current FreeBSD problem reports");
|
||||
}
|
||||
else {
|
||||
print "Current FreeBSD problem reports";
|
||||
}
|
||||
|
||||
print "
|
||||
${h2}Current FreeBSD problem reports${h2_e}
|
||||
|
||||
The following is a listing of current problems submitted by FreeBSD users.
|
||||
These represent problem reports covering all versions fo FreeBSD including
|
||||
|
|
@ -84,25 +84,25 @@ experimental development code and obsolete releases.
|
|||
${p}
|
||||
Bugs can be in one of several states:
|
||||
${dl}
|
||||
${dt}${st}open${st_e}
|
||||
${dt}${st}o - open${st_e}
|
||||
${dd}A problem report has been submitted, no sanity checking performed
|
||||
|
||||
${dt}${st}analyzed${st_e}
|
||||
${dt}${st}a - analyzed${st_e}
|
||||
${dd}The report has been examined by a team member and evaluated
|
||||
|
||||
${dt}${st}feedback${st_e}
|
||||
${dt}${st}f - feedback${st_e}
|
||||
${dd}The problem has been solved, and the originator has been given a
|
||||
${dd_x}patch or a fix has been committed. The PR remains in this state
|
||||
${dd_x}pending a response from the originator.
|
||||
|
||||
${dt}${st}suspended${st_e}
|
||||
${dt}${st}s - suspended${st_e}
|
||||
${dd}Work on the problem has been postponsed. This happens if a
|
||||
${dd_x}timely solution is not possible or is not cost-effective at
|
||||
${dd_x}the present time. The PR continues to exist, though a solution
|
||||
${dd_x}is not being actively sought. If the problem cannot be solved at all,
|
||||
${dd_x}it will be closed, rather than suspended.
|
||||
|
||||
${dt}${st}closed${st_e}
|
||||
${dt}${st}c - closed${st_e}
|
||||
${dd}A problem report is closed when any changes have been integrated,
|
||||
${dd_x}documented, and tested.
|
||||
${dl_e}
|
||||
|
|
@ -110,10 +110,7 @@ ${dl_e}
|
|||
}
|
||||
|
||||
sub trailer_info {
|
||||
print "
|
||||
</body>
|
||||
</html>
|
||||
" if $html_mode;
|
||||
print &html_footer if $html_mode;
|
||||
}
|
||||
|
||||
&header_info;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,5 @@
|
|||
#!/usr/bin/perl
|
||||
# $Id: query-pr.cgi,v 1.2 1996-09-29 03:14:16 jfieber Exp $
|
||||
|
||||
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
|
||||
|
||||
|
|
@ -7,7 +8,8 @@ $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
|
|||
'Jul', '07', 'Aug', '08', 'Sep', '09',
|
||||
'Oct', '10', 'Nov', '11', 'Dec', '12');
|
||||
|
||||
require "/usr/local/www/cgi-bin/cgi-lib.pl";
|
||||
require "cgi-lib.pl";
|
||||
require "cgi-style.pl";
|
||||
require "getopts.pl";
|
||||
|
||||
&Getopts('p:');
|
||||
|
|
@ -19,29 +21,32 @@ if ($opt_p) {
|
|||
} else {
|
||||
|
||||
if (! &ReadParse(*input)) {
|
||||
print &PrintHeader, "<h1>PR Query Interface</h1>\n";
|
||||
print "Please enter the PR number you wish to query:\n";
|
||||
print &html_header("PR Query Interface");
|
||||
print "<p>Please enter the PR number you wish to query:</p>\n";
|
||||
($scriptname = $ENV{'SCRIPT_NAME'}) =~ s|^/?|/|;
|
||||
$scriptname =~ s|/$||;
|
||||
($summary = $scriptname) =~ s/query-pr/query-pr-summary/;
|
||||
print "<FORM METHOD=GET ACTION=\"$scriptname\">\n";
|
||||
print "<INPUT TYPE=TEXT NAME=pr></FORM>\n";
|
||||
print "<hr>\n";
|
||||
print "See also the <A HREF=/cgi-bin/query-pr-summary.cgi>PR summary</A>\n";
|
||||
print "<p>See also the <A HREF=\"$summary\">PR summary</A></p>\n";
|
||||
print &html_footer;
|
||||
exit 0;
|
||||
}
|
||||
}
|
||||
|
||||
print &PrintHeader;
|
||||
|
||||
$pr = $input{'pr'};
|
||||
|
||||
if ($pr < 1 || $pr > 99999) {
|
||||
print "Invalid problem report number: $pr\n";
|
||||
print &html_header("FreeBSD Problem Report");
|
||||
print "<p>Invalid problem report number: $pr</p>\n";
|
||||
print &html_footer;
|
||||
exit 0;
|
||||
}
|
||||
|
||||
unless (open(Q, "query-pr --restricted -F $pr 2>&1 |")) {
|
||||
print "<h2>Error: unable to open PR database</h2>\n";
|
||||
print &html_header("Server error");
|
||||
print "<p>Unable to open PR database.</p>\n";
|
||||
print &html_footer;
|
||||
die "Unable to query PR's";
|
||||
}
|
||||
|
||||
|
|
@ -55,8 +60,9 @@ while(<Q>) {
|
|||
$html_fixup = 1;
|
||||
|
||||
if (/^query-pr: no PRs matched$/) {
|
||||
print "<head><title>FreeBSD problem report</title></head>\n";
|
||||
print "<body><H1>No PR found matching $pr</H1></body>\n";
|
||||
print &html_header("FreeBSD problem report");
|
||||
print "<p>No PR found matching $pr</p>\n";
|
||||
print &html_footer;
|
||||
exit;
|
||||
}
|
||||
|
||||
|
|
@ -87,14 +93,7 @@ while(<Q>) {
|
|||
$syn = &getline($_);
|
||||
$syn =~ s/[\t]+/ /g;
|
||||
$syn = &fixline($syn);
|
||||
print "
|
||||
<head>
|
||||
<title>
|
||||
FreeBSD problem report $cat/$number
|
||||
</title>
|
||||
</head>
|
||||
<body>";
|
||||
print "<h2>Problem Report $cat/$number</h2>\n";
|
||||
print &html_header("Problem Report $cat/$number");
|
||||
print "<strong>$syn</strong><p>\n<dl>\n";
|
||||
} else {
|
||||
next if $inhdr;
|
||||
|
|
@ -121,7 +120,7 @@ FreeBSD problem report $cat/$number
|
|||
}
|
||||
close(Q);
|
||||
|
||||
print "$trailer\n</dl>\n</body>";
|
||||
print "$trailer\n</dl>" . &html_footer;
|
||||
|
||||
exit 0;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
#!/usr/bin/perl
|
||||
# $Id: query-pr-summary.cgi,v 1.2 1996-09-29 03:14:13 jfieber Exp $
|
||||
|
||||
$query_pr_ref = "http://www.freebsd.org/cgi-bin/query-pr.cgi";
|
||||
($query_pr_ref = $ENV{'SCRIPT_NAME'}) =~ s/-summary//;
|
||||
$query_args = '--restricted -s "open|analyzed|feedback|suspended"';
|
||||
$state_args = '--restricted ';
|
||||
|
||||
|
|
@ -9,7 +10,8 @@ $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
|
|||
|
||||
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'} ne '';
|
||||
|
||||
require "/usr/local/www/cgi-bin/cgi-lib.pl";
|
||||
require "cgi-lib.pl";
|
||||
require "cgi-style.pl";
|
||||
require "getopts.pl";
|
||||
|
||||
if ($html_mode) {
|
||||
|
|
@ -47,7 +49,7 @@ if ($html_mode) {
|
|||
$dd = "<dd>"; $dd_x = "";
|
||||
$hr = "<hr>";
|
||||
|
||||
print "Content-type: text/html\n";
|
||||
# print "Content-type: text/html\n";
|
||||
|
||||
} else {
|
||||
|
||||
|
|
@ -67,16 +69,14 @@ if ($html_mode) {
|
|||
}
|
||||
|
||||
sub header_info {
|
||||
print "
|
||||
<html>
|
||||
<head>
|
||||
<title>Current FreeBSD problem reports</title>
|
||||
</head>
|
||||
<body>
|
||||
" if $html_mode;
|
||||
if ($html_mode) {
|
||||
print &html_header("Current FreeBSD problem reports");
|
||||
}
|
||||
else {
|
||||
print "Current FreeBSD problem reports";
|
||||
}
|
||||
|
||||
print "
|
||||
${h2}Current FreeBSD problem reports${h2_e}
|
||||
|
||||
The following is a listing of current problems submitted by FreeBSD users.
|
||||
These represent problem reports covering all versions fo FreeBSD including
|
||||
|
|
@ -84,25 +84,25 @@ experimental development code and obsolete releases.
|
|||
${p}
|
||||
Bugs can be in one of several states:
|
||||
${dl}
|
||||
${dt}${st}open${st_e}
|
||||
${dt}${st}o - open${st_e}
|
||||
${dd}A problem report has been submitted, no sanity checking performed
|
||||
|
||||
${dt}${st}analyzed${st_e}
|
||||
${dt}${st}a - analyzed${st_e}
|
||||
${dd}The report has been examined by a team member and evaluated
|
||||
|
||||
${dt}${st}feedback${st_e}
|
||||
${dt}${st}f - feedback${st_e}
|
||||
${dd}The problem has been solved, and the originator has been given a
|
||||
${dd_x}patch or a fix has been committed. The PR remains in this state
|
||||
${dd_x}pending a response from the originator.
|
||||
|
||||
${dt}${st}suspended${st_e}
|
||||
${dt}${st}s - suspended${st_e}
|
||||
${dd}Work on the problem has been postponsed. This happens if a
|
||||
${dd_x}timely solution is not possible or is not cost-effective at
|
||||
${dd_x}the present time. The PR continues to exist, though a solution
|
||||
${dd_x}is not being actively sought. If the problem cannot be solved at all,
|
||||
${dd_x}it will be closed, rather than suspended.
|
||||
|
||||
${dt}${st}closed${st_e}
|
||||
${dt}${st}c - closed${st_e}
|
||||
${dd}A problem report is closed when any changes have been integrated,
|
||||
${dd_x}documented, and tested.
|
||||
${dl_e}
|
||||
|
|
@ -110,10 +110,7 @@ ${dl_e}
|
|||
}
|
||||
|
||||
sub trailer_info {
|
||||
print "
|
||||
</body>
|
||||
</html>
|
||||
" if $html_mode;
|
||||
print &html_footer if $html_mode;
|
||||
}
|
||||
|
||||
&header_info;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,5 @@
|
|||
#!/usr/bin/perl
|
||||
# $Id: query-pr.cgi,v 1.2 1996-09-29 03:14:16 jfieber Exp $
|
||||
|
||||
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
|
||||
|
||||
|
|
@ -7,7 +8,8 @@ $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
|
|||
'Jul', '07', 'Aug', '08', 'Sep', '09',
|
||||
'Oct', '10', 'Nov', '11', 'Dec', '12');
|
||||
|
||||
require "/usr/local/www/cgi-bin/cgi-lib.pl";
|
||||
require "cgi-lib.pl";
|
||||
require "cgi-style.pl";
|
||||
require "getopts.pl";
|
||||
|
||||
&Getopts('p:');
|
||||
|
|
@ -19,29 +21,32 @@ if ($opt_p) {
|
|||
} else {
|
||||
|
||||
if (! &ReadParse(*input)) {
|
||||
print &PrintHeader, "<h1>PR Query Interface</h1>\n";
|
||||
print "Please enter the PR number you wish to query:\n";
|
||||
print &html_header("PR Query Interface");
|
||||
print "<p>Please enter the PR number you wish to query:</p>\n";
|
||||
($scriptname = $ENV{'SCRIPT_NAME'}) =~ s|^/?|/|;
|
||||
$scriptname =~ s|/$||;
|
||||
($summary = $scriptname) =~ s/query-pr/query-pr-summary/;
|
||||
print "<FORM METHOD=GET ACTION=\"$scriptname\">\n";
|
||||
print "<INPUT TYPE=TEXT NAME=pr></FORM>\n";
|
||||
print "<hr>\n";
|
||||
print "See also the <A HREF=/cgi-bin/query-pr-summary.cgi>PR summary</A>\n";
|
||||
print "<p>See also the <A HREF=\"$summary\">PR summary</A></p>\n";
|
||||
print &html_footer;
|
||||
exit 0;
|
||||
}
|
||||
}
|
||||
|
||||
print &PrintHeader;
|
||||
|
||||
$pr = $input{'pr'};
|
||||
|
||||
if ($pr < 1 || $pr > 99999) {
|
||||
print "Invalid problem report number: $pr\n";
|
||||
print &html_header("FreeBSD Problem Report");
|
||||
print "<p>Invalid problem report number: $pr</p>\n";
|
||||
print &html_footer;
|
||||
exit 0;
|
||||
}
|
||||
|
||||
unless (open(Q, "query-pr --restricted -F $pr 2>&1 |")) {
|
||||
print "<h2>Error: unable to open PR database</h2>\n";
|
||||
print &html_header("Server error");
|
||||
print "<p>Unable to open PR database.</p>\n";
|
||||
print &html_footer;
|
||||
die "Unable to query PR's";
|
||||
}
|
||||
|
||||
|
|
@ -55,8 +60,9 @@ while(<Q>) {
|
|||
$html_fixup = 1;
|
||||
|
||||
if (/^query-pr: no PRs matched$/) {
|
||||
print "<head><title>FreeBSD problem report</title></head>\n";
|
||||
print "<body><H1>No PR found matching $pr</H1></body>\n";
|
||||
print &html_header("FreeBSD problem report");
|
||||
print "<p>No PR found matching $pr</p>\n";
|
||||
print &html_footer;
|
||||
exit;
|
||||
}
|
||||
|
||||
|
|
@ -87,14 +93,7 @@ while(<Q>) {
|
|||
$syn = &getline($_);
|
||||
$syn =~ s/[\t]+/ /g;
|
||||
$syn = &fixline($syn);
|
||||
print "
|
||||
<head>
|
||||
<title>
|
||||
FreeBSD problem report $cat/$number
|
||||
</title>
|
||||
</head>
|
||||
<body>";
|
||||
print "<h2>Problem Report $cat/$number</h2>\n";
|
||||
print &html_header("Problem Report $cat/$number");
|
||||
print "<strong>$syn</strong><p>\n<dl>\n";
|
||||
} else {
|
||||
next if $inhdr;
|
||||
|
|
@ -121,7 +120,7 @@ FreeBSD problem report $cat/$number
|
|||
}
|
||||
close(Q);
|
||||
|
||||
print "$trailer\n</dl>\n</body>";
|
||||
print "$trailer\n</dl>" . &html_footer;
|
||||
|
||||
exit 0;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue