90b58e3bf8
Get bug categories from gnats directly (remove hard coding)
Create project/mailing list definitions and use them.
Make some of the perl code cleaner (my fault for bad original coding styles).
508 lines
13 KiB
Perl
Executable file
508 lines
13 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# $Id: query-pr-summary.cgi,v 1.10 1997-02-02 22:03:29 pst Exp $
|
|
|
|
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
|
|
$self_ref = $ENV{'SCRIPT_NAME'};
|
|
($query_pr_ref = $self_ref) =~ s/-summary//;
|
|
|
|
$ENV{'PATH'} = '/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin';
|
|
|
|
$project = "FreeBSD"
|
|
$mail_prefix = "freebsd-";
|
|
$mail_unass = "freebsd-bugs";
|
|
|
|
%statemap = (
|
|
"open", "o",
|
|
"analyzed", "a",
|
|
"feedback", "f",
|
|
"suspended", "s",
|
|
"closed", "c"
|
|
);
|
|
|
|
require "cgi-lib.pl";
|
|
require "cgi-style.pl";
|
|
require "getopts.pl";
|
|
|
|
if ($ENV{'QUERY_STRING'} eq 'query') {
|
|
print &html_header("Query $project problem reports");
|
|
&displayform;
|
|
print &html_footer;
|
|
exit(0);
|
|
}
|
|
|
|
if ($html_mode) {
|
|
$query_args = '--restricted ';
|
|
&ReadParse(*input) if $html_mode;
|
|
|
|
} else {
|
|
&Getopts('CcqRr:s:');
|
|
|
|
$input{"responsible"} = "summary" if $opt_R;
|
|
$input{"responsible"} = $opt_r if $opt_r;
|
|
$input{"state"} = $opt_s if $opt_s;
|
|
$input{"quiet"} = $opt_q if $opt_q;
|
|
if ($opt_C) {
|
|
$query_args = '--confidential=yes ';
|
|
} elsif (!$opt_c) {
|
|
$query_args = '--restricted ';
|
|
}
|
|
}
|
|
|
|
#------------------------------------------------------------------------
|
|
|
|
%mons = ('Jan', '01', 'Feb', '02', 'Mar', '03',
|
|
'Apr', '04', 'May', '05', 'Jun', '06',
|
|
'Jul', '07', 'Aug', '08', 'Sep', '09',
|
|
'Oct', '10', 'Nov', '11', 'Dec', '12');
|
|
|
|
|
|
if ($html_mode) {
|
|
$h1 = "<h1>"; $h1_e = "</h1>";
|
|
$h2 = "<h2>"; $h2_e = "</h2>";
|
|
$h3 = "<h3>"; $h3_e = "</h3>";
|
|
$h4 = "<h4>"; $h4_e = "</h4>";
|
|
$p = "<p>" ; $p_e = "</p>";
|
|
$br = "<br>";
|
|
|
|
$st = "<strong>"; $st_e = "</strong>";
|
|
$pr = "<pre>"; $pr_e = "</pre>";
|
|
$dl = "<dl>"; $dl_e = "</dl>";
|
|
$dt = "<dt>";
|
|
$dd = "<dd>"; $dd_x = "";
|
|
$hr = "<hr>";
|
|
|
|
# print "Content-type: text/html\n";
|
|
|
|
} else {
|
|
|
|
$h1 = ""; $h1_e = "";
|
|
$h2 = ""; $h2_e = "";
|
|
$h3 = ""; $h3_e = "";
|
|
$h4 = ""; $h4_e = "";
|
|
$p = ""; $p_e = "";
|
|
$br = "";
|
|
$st = ""; $st_e = "";
|
|
$pr = ""; $pr_e = "";
|
|
$dl = ""; $dl_e = "";
|
|
$dt = "";
|
|
$dd = " "; $dd_x = " ";
|
|
$hr = "\n----------------------------------------" .
|
|
"---------------------------------------\n";
|
|
}
|
|
|
|
sub header_info {
|
|
if ($html_mode) {
|
|
print &html_header("Current $project problem reports");
|
|
}
|
|
else {
|
|
print "Current $project problem reports\n";
|
|
}
|
|
|
|
print <<EOM unless $input{"quiet"};
|
|
|
|
The following is a listing of current problems submitted by $project users.
|
|
These represent problem reports covering all versions including
|
|
experimental development code and obsolete releases.
|
|
${p}
|
|
Bugs can be in one of several states:
|
|
${dl}
|
|
${dt}${st}o - open${st_e}
|
|
${dd}A problem report has been submitted, no sanity checking performed.
|
|
|
|
${dt}${st}a - analyzed${st_e}
|
|
${dd}The report has been examined by a team member and evaluated.
|
|
|
|
${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}s - suspended${st_e}
|
|
${dd}Work on the problem has been postponed. 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}c - closed${st_e}
|
|
${dd}A problem report is closed when any changes have been integrated,
|
|
${dd_x}documented, and tested.
|
|
${dl_e}
|
|
EOM
|
|
|
|
if ($html_mode) {
|
|
|
|
# These self references are attempts to only change a single variable at a time.
|
|
# If someone does a multiple-variable query they will probably do weird things.
|
|
|
|
$self_ref1 = $self_ref . '?';
|
|
$self_ref1 .= 'sort=' . $input{'sort'} if $input{'sort'};
|
|
print '<P>You may view summaries by <A HREF="', $self_ref1, '">Severity</A>, ';
|
|
$self_ref1 .= '&' if ($self_ref1 !~/\?$/);
|
|
print '<A HREF="', $self_ref1, 'state=summary">State</A>, ';
|
|
print '<A HREF="', $self_ref1, 'category=summary">Category</A>, or ';
|
|
print '<A HREF="', $self_ref1, 'responsible=summary">Responsible Party</A>.';
|
|
|
|
$self_ref2 = $self_ref . '?';
|
|
foreach ("category", "originator", "priority", "class", "responsible",
|
|
"severity", "state", "submitter", "text", "multitext", "closedtoo") {
|
|
if ($input{$_}) {
|
|
$self_ref2 .= '&' if ($self_ref2 !~/\?$/);
|
|
$self_ref2 .= $_ . '=' . $input{$_};
|
|
}
|
|
}
|
|
|
|
print 'You may also sort by ';
|
|
print '<A HREF="', $self_ref2, '&sort=lastmod">Last-Modified</A>, ';
|
|
print '<A HREF="', $self_ref2, '&sort=category">Category</A>, or ';
|
|
print '<A HREF="', $self_ref2, '&sort=responsible">Responsible Party</A>.', "\n";
|
|
print 'Or <A HREF="', $self_ref, '?query">formulate a specific query</A>.';
|
|
}
|
|
}
|
|
|
|
sub trailer_info {
|
|
print &html_footer if $html_mode;
|
|
}
|
|
|
|
&header_info;
|
|
|
|
#Usage: query-pr [-FhiPqVx] [-C confidential] [-c category] [-d directory]
|
|
# [-e severity] [-m mtext] [-O originator] [-o outfile] [-p priority]
|
|
# [-L class] [-r responsible] [-S submitter] [-s state] [-t text]
|
|
# [--full] [--help] [--sql] [--print-path] [--summary] [--version]
|
|
# [--skip-closed] [--category=category] [--confidential=yes|no]
|
|
# [--directory=directory] [--output=outfile] [--originator=name]
|
|
# [--priority=level] [--class=class] [--responsible=person]
|
|
# [--severity=severity] [--state=state] [--submitter=submitter]
|
|
# [--list-categories] [--list-responsible] [--list-submitters]
|
|
# [--text=text] [--multitext=mtext] [PR] [PR]...
|
|
|
|
$query_args .= " --skip-closed" unless $input{"closedtoo"};
|
|
|
|
# Only read the appropriate PR's.
|
|
foreach ("category", "originator", "priority", "class", "responsible",
|
|
"severity", "state", "submitter", "text", "multitext") {
|
|
if ($input{$_} && $input{$_} ne "summary") {
|
|
$query_args .= " --${_}=$input{$_}";
|
|
}
|
|
}
|
|
|
|
&read_gnats($query_args);
|
|
|
|
if ($input{'sort'} eq 'lastmod') {
|
|
@prs = sort {$lastmod{$b} <=> $lastmod{$a}} @prs;
|
|
} elsif ($input{'sort'} eq 'category') {
|
|
@prs = sort {($ca,$na)=split(m|/|,$a); ($cb,$nb)=split(m|/|,$b); $ca eq $cb ? $na <=> $nb : $ca cmp $cb} @prs;
|
|
} elsif ($input{'sort'} eq 'responsible') {
|
|
@prs = sort {$resp{$a} cmp $resp{$b}} @prs;
|
|
} else {
|
|
$input{'sort'} = 'none';
|
|
}
|
|
|
|
if ($#prs < $[) {
|
|
print "${h1}No matches to your query${h1_e}\n";
|
|
|
|
} elsif ($input{'responsible'} eq 'summary') {
|
|
&resp_summary;
|
|
|
|
} elsif ($input{'state'} eq 'summary') {
|
|
&state_summary;
|
|
|
|
} elsif ($input{'category'} eq 'summary') {
|
|
&cat_summary;
|
|
|
|
} elsif ($input{'severity'} eq '') {
|
|
&severity_summary;
|
|
|
|
} else {
|
|
&printcnt(&gnats_summary(1, $html_mode));
|
|
|
|
}
|
|
|
|
&trailer_info;
|
|
exit(0);
|
|
|
|
#------------------------------------------------------------------------
|
|
|
|
sub getline {
|
|
local($_) = @_;
|
|
($tag,$remainder) = split(/[ \t]+/, $_, 2);
|
|
return $remainder;
|
|
}
|
|
|
|
sub html_fixline {
|
|
local($line) = @_[0];
|
|
|
|
$line =~ s/&/&/g;
|
|
$line =~ s/</</g;
|
|
$line =~ s/>/>/g;
|
|
|
|
$line;
|
|
}
|
|
|
|
sub printcnt {
|
|
local($cnt) = $_[0];
|
|
|
|
if ($cnt) {
|
|
printf("%d problem%s total.\n\n", $cnt, $cnt == 1 ? "" : "s");
|
|
}
|
|
}
|
|
|
|
sub cat_query {
|
|
local($cat) = $_[0];
|
|
|
|
&printcnt(&gnats_summary("\$cat eq \"$cat\"", $html_mode));
|
|
}
|
|
|
|
sub cat_summary {
|
|
foreach (keys %status) {
|
|
s|/\d+||;
|
|
$cat{$_}++;
|
|
}
|
|
foreach (sort keys %cat) {
|
|
&cat_query($_);
|
|
}
|
|
}
|
|
|
|
sub resp_query {
|
|
local($resp) = @_[0];
|
|
local($cnt);
|
|
|
|
$cnt = &gnats_summary("\$resp eq \"$resp\"", $html_mode);
|
|
print "${hr}${b}No problem reports assigned to $resp${b_e}\n"
|
|
if (!$input{"quiet"} && $cnt == 0);
|
|
}
|
|
|
|
sub resp_summary {
|
|
local($who, %who);
|
|
|
|
foreach (keys %resp) {
|
|
$who{$resp{$_}}++;
|
|
}
|
|
foreach $who (sort keys %who) {
|
|
$cnt = &gnats_summary("\$resp eq \"$who\"", $html_mode);
|
|
}
|
|
}
|
|
|
|
sub state_query {
|
|
local($state) = @_[0];
|
|
|
|
print "${h3}Problems in state: $state${h3_e}\n";
|
|
$state = $statemap{$state} if ($statemap{$state} ne '');
|
|
&printcnt(&gnats_summary("\$state eq \"$state\" ", $html_mode));
|
|
}
|
|
|
|
sub state_summary {
|
|
foreach (sort keys %statemap) {
|
|
next if ($_ eq "closed" && !$input{"closedtoo"});
|
|
&state_query($_);
|
|
}
|
|
}
|
|
|
|
sub severity_summary {
|
|
print "${h3}Critical problems${h3_e}\n";
|
|
&printcnt(&gnats_summary('$severity eq "critical"', $html_mode));
|
|
|
|
print "${h3}Serious problems${h3_e}\n";
|
|
&printcnt(&gnats_summary('$severity eq "serious"', $html_mode));
|
|
|
|
print "${h3}Non-critical problems${h3_e}\n";
|
|
&printcnt(&gnats_summary('$severity eq "non-critical"', $html_mode));
|
|
}
|
|
|
|
sub get_categories {
|
|
open(Q, "query-pr --list-categories 2>/dev/null |") ||
|
|
die "Cannot get categories\n";
|
|
|
|
while(<Q>) {
|
|
chop;
|
|
local ($cat, $desc, $responsible, $notify) = split(/:/);
|
|
push(@categories, $cat);
|
|
}
|
|
}
|
|
|
|
sub read_gnats {
|
|
local($report) = @_[0];
|
|
|
|
open(Q, "query-pr $report 2>/dev/null |") || die "Cannot query the PR's\n";
|
|
|
|
while(<Q>) {
|
|
chop;
|
|
if(/^>Number:/) {
|
|
$number = &getline($_);
|
|
|
|
} elsif (/Arrival-Date:/) {
|
|
$date = &getline($_);
|
|
# strip timezone if any (between HH:MM:SS and YYYY at end of line):
|
|
$date =~ s/(\d\d:\d\d:\d\d)\D+(\d{4})$/\1 \2/;
|
|
($dow,$mon,$day,$time,$year,$xtra) = split(/[ \t]+/, $date);
|
|
$day = "0$day" if $day =~ /^[0-9]$/;
|
|
$date = "$year/$mons{$mon}/$day";
|
|
|
|
} elsif (/>Last-Modified:/) {
|
|
$lastmod = &getline($_);
|
|
$lastmod =~ s/(\d\d:\d\d:\d\d)\D+(\d{4})$/\1 \2/;
|
|
($dow,$mon,$day,$time,$year,$xtra) = split(/[ \t]+/, $lastmod);
|
|
$day = "0$day" if $day =~ /^[0-9]$/;
|
|
$lastmod = "$year$mons{$mon}$day";
|
|
|
|
} elsif (/>Category:/) {
|
|
$cat = &getline($_);
|
|
|
|
} elsif (/>Severity:/) {
|
|
$sev = &getline($_);
|
|
|
|
} elsif (/>Responsible:/) {
|
|
$resp = &getline($_);
|
|
$resp =~ s/@.*//;
|
|
$resp =~ tr/A-Z/a-z/;
|
|
$resp = "" if ($resp =~ /$mail_unass/);
|
|
$resp =~ s/^$mail_prefix//;
|
|
|
|
} elsif (/>State:/) {
|
|
$status = &getline($_);
|
|
$status =~ s/(.).*/\1/;
|
|
|
|
} elsif (/>Synopsis:/) {
|
|
$syn = &getline($_);
|
|
$syn =~ s/[\t]+/ /g;
|
|
|
|
} elsif (/^$/) {
|
|
$_ = sprintf("%s/%s", $cat, $number);
|
|
|
|
$status{$_} = $status;
|
|
$date{$_} = $date;
|
|
$resp{$_} = $resp;
|
|
$syn{$_} = $syn;
|
|
$sev{$_} = $sev;
|
|
$lastmod{$_} = $lastmod;
|
|
push(@prs,$_);
|
|
}
|
|
}
|
|
close(Q);
|
|
}
|
|
|
|
sub gnats_summary {
|
|
local($report) = @_[0];
|
|
local($htmlmode) = @_[1];
|
|
local($counter) = 0;
|
|
local($iteration)= 0;
|
|
|
|
foreach (@prs) {
|
|
$state = $status{$_};
|
|
$date = $date{$_};
|
|
$resp = $resp{$_};
|
|
$syn = $syn{$_};
|
|
$severity = $sev{$_};
|
|
($cat, $number) = m|^([^/]+)/(\d+)$|;
|
|
|
|
next if (($report ne '') && (eval($report) == 0));
|
|
|
|
print "${pr}\nS Submitted Tracker Resp. Description${hr}"
|
|
if ($iteration++ == 0);
|
|
|
|
$syn = &html_fixline($syn) if $htmlmode;
|
|
|
|
if ($htmlmode) {
|
|
$title = '<a href="' . $query_pr_ref . '?pr='. $number . '">' .
|
|
$_ . '</a>';
|
|
} else {
|
|
$title = $_;
|
|
}
|
|
|
|
print "$state [$date] $title" .
|
|
(' ' x (11 - length($_))) .
|
|
$resp . (' ' x (9 - length($resp))) .
|
|
($htmlmode ? $syn : substr($syn,0,41))
|
|
. "\n";
|
|
|
|
++$counter;
|
|
}
|
|
|
|
print "${pr_e}\n" if $iteration;
|
|
|
|
$counter;
|
|
}
|
|
|
|
sub displayform {
|
|
print qq`
|
|
Please select the items you wish to search for. Multiple items are AND'ed
|
|
together.
|
|
<P>
|
|
<FORM METHOD=GET ACTION="`, $self_ref, qq`">
|
|
|
|
<TABLE>
|
|
<TR>
|
|
<TD><B>Category</B>:</TD>
|
|
<TD><SELECT NAME="category">
|
|
<OPTION SELECTED VALUE="">Any</OPTION>
|
|
<OPTION>bin</OPTION>
|
|
<OPTION>conf</OPTION>
|
|
<OPTION>docs</OPTION>
|
|
<OPTION>gnu</OPTION>
|
|
<OPTION>i386</OPTION>
|
|
<OPTION>kern</OPTION>
|
|
<OPTION>misc</OPTION>
|
|
<OPTION>ports</OPTION>
|
|
</SELECT></TD>
|
|
<TD><B>Severity</B>:</TD>
|
|
<TD><SELECT NAME="severity">
|
|
<OPTION SELECTED VALUE="">Any</OPTION>
|
|
<OPTION>non-critical</OPTION>
|
|
<OPTION>serious</OPTION>
|
|
<OPTION>critical</OPTION>
|
|
</SELECT></TD>
|
|
</TR><TR>
|
|
<TD><B>Priority</B>:</TD>
|
|
<TD><SELECT NAME="priority">
|
|
<OPTION SELECTED VALUE="">Any</OPTION>
|
|
<OPTION>low</OPTION>
|
|
<OPTION>medium</OPTION>
|
|
<OPTION>high</OPTION>
|
|
</SELECT></TD>
|
|
<TD><B>Class</B>:</TD>
|
|
<TD><SELECT NAME="class">
|
|
<OPTION SELECTED VALUE="">Any</OPTION>
|
|
<OPTION>sw-bug</OPTION>
|
|
<OPTION>doc-bug</OPTION>
|
|
<OPTION>change-request</OPTION>
|
|
<OPTION>support</OPTION>
|
|
</SELECT></TD>
|
|
</TR><TR>
|
|
<TD><B>State</B>:</TD>
|
|
<TD><SELECT NAME="state">
|
|
<OPTION SELECTED VALUE="">Any</OPTION>
|
|
<OPTION VALUE="open">Open</OPTION>
|
|
<OPTION VALUE="analyzed">Analyzed</OPTION>
|
|
<OPTION VALUE="feedback">Feedback</OPTION>
|
|
<OPTION VALUE="suspended">Suspended</OPTION>
|
|
<OPTION VALUE="closed">Closed</OPTION>
|
|
</SELECT></TD>
|
|
<TD><B>Sort by</B>:</TD>
|
|
<TD><SELECT NAME="sort">
|
|
<OPTION SELECTED VALUE="none">No Sort</OPTION>
|
|
<OPTION VALUE="lastmod">Last-Modiified</OPTION>
|
|
<OPTION VALUE="category">Category</OPTION>
|
|
<OPTION VALUE="responsible">Responsible Party</OPTION>
|
|
</SELECT></TD>
|
|
</TR><TR>
|
|
<!-- We don't use submitter Submitter: -->
|
|
<TD><B>Text in single-line fields</B>:</TD>
|
|
<TD><INPUT TYPE=TEXT NAME="text"></TD>
|
|
<TD><B>Responsible</B>:</TD>
|
|
<TD><INPUT TYPE=TEXT NAME="responsible"></TD>
|
|
</TR><TR>
|
|
<TD><B>Text in multi-line fields</B>:</TD>
|
|
<TD><INPUT TYPE=TEXT NAME="multitext"></TD>
|
|
<TD><B>Originator</B>:</TD>
|
|
<TD><INPUT TYPE=TEXT NAME="originator"></TD>
|
|
</TR><TR>
|
|
<TD><B>Closed reports too</B>:</TD>
|
|
<TD><INPUT NAME="closedtoo" TYPE=CHECKBOX></TD>
|
|
</TR>
|
|
</TABLE>
|
|
<INPUT TYPE="SUBMIT" VALUE=" Query PR's ">
|
|
<INPUT TYPE="RESET" VALUE=" Reset Form ">
|
|
</FORM>
|
|
`;
|
|
}
|