#!/usr/bin/perl -T # $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.34 2001/10/23 04:28:48 murray 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"; $closed_too = 0; %statemap = ( "open", "o", "analyzed", "a", "feedback", "f", "suspended", "s", "closed", "c" ); %severitymap = ( "critical", "c", "serious", "s", "non-critical", "n" ); %prioritymap = ( "high", "h", "medium", "m", "low", "l" ); 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; if ($opt_r) { ($input{"responsible"}) = ($opt_r =~ m/^(\^?[-_a-zA-Z0-9@.]*\$?)$/); die "Insecure args" if ($input{"responsible"} ne $opt_r) } if ($opt_s) { ($input{"state"}) = ($opt_s =~ m/^([a-zA-Z]*)$/); die "Insecure args" if ($input{"state"} ne $opt_s) } $input{"quiet"} = "yes" if $opt_q; if ($opt_C) { $query_args = '--confidential=yes '; } elsif (!$opt_c) { $query_args = '--restricted '; } } $closed_too = 1 if $input{'state'} eq 'closed' || $input{'closedtoo'}; #------------------------------------------------------------------------ %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 cgiparam { local ($result) = @_; $result =~ s/[^A-Za-z0-9+.@-]/"%".sprintf("%02X", unpack("C", $&))/ge; $result; } 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}The problem is not being worked on. This is a prime candidate ${dd_x}for somebody who is looking for a project to do. ${dd_x}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 .= $_ . '=' . cgiparam($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>.', "\n"; $self_ref3 = $self_ref . '?'; foreach ("category", "originator", "priority", "class", "responsible", "severity", "state", "submitter", "text", "multitext", "sort") { if ($input{$_}) { $self_ref3 .= '&' if ($self_ref2 !~/\?$/); $self_ref3 .= $_ . '=' . cgiparam($input{$_}); } } if ($input{"closedtoo"}) { print '<A HREF="', $self_ref3, '">Don',"'",'t show closed reports</A>.'; } else { print '<A HREF="', $self_ref3, '&closedtoo=on">Include closed reports too</A>.'; } } } sub trailer_info { print &html_footer if $html_mode; } &header_info; #Usage: query-pr [-FGhiPRqVx] [-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] # [-b date] [-a date] [-B date] [-M date] [-z date] [-Z date] # [-y synopsis] [-A release] [--full] [--help] [--print-path] [--version] # [--summary] [--sql] [--skip-closed] [--category=category] # [--confidential=yes|no] [--directory=directory] [--output=outfile] # [--originator=name] [--priority=level] [--class=class] # [--responsible=person] [--release=release] [--restricted] # [--quarter=quarter] [--keywords=regexp] # [--required-before=date] [--required-after=date] # [--arrived-before=date] [--arrived-after=date] # [--modified-before=date] [--modified-after=date] # [--closed-before=date] [--closed-after=date] # [--severity=severity] [--state=state] [--submitter=submitter] # [--list-categories] [--list-classes] [--list-responsible] # [--list-states] [--list-submitters] [--list-config] # [--synopsis=synopsis] [--text=text] [--multitext=mtext] [PR] [PR]... $query_args .= " --skip-closed" unless $closed_too; # Only read the appropriate PR's. foreach ("category", "originator", "priority", "class", "responsible", "release", "severity", "state", "submitter", "text", "multitext") { if ($input{$_} && $input{$_} ne "summary") { $d = $input{$_}; $d =~ s/^"(.*)"$/$&/; $d =~ s/'/\\'/; $query_args .= " --${_}='$d'"; } } &read_gnats($query_args); if ($input{'sort'} eq 'lastmod') { @prs = sort {$lastmod{$b} cmp $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($_); if ($lastmod =~ /^[ ]*$/) { $lastmod = $date; } else { # strip timezone if any (between HH:MM:SS and YYYY at end of line): $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='. $cat . '/' . $number . '">' . $_ . '</a> '; } else { $title = $_; } print "$state [$date] $title" . (' ' x (12 - 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>`; &get_categories; foreach (sort @categories) { print "<OPTION>$_</OPTION>\n"; } print qq` </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>update</OPTION> <OPTION>maintainer-update</OPTION> <OPTION>wish</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-Modified</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> <TD><B>Release</B>:</TD> <TD><SELECT NAME="release"> <OPTION SELECTED VALUE="">Any</OPTION> <OPTION VALUE="^FreeBSD [234]">Pre-5.x</OPTION> <OPTION VALUE="^FreeBSD 4">4.x only</OPTION> <OPTION VALUE="^FreeBSD 5">5.x only</OPTION> <OPTION VALUE="^FreeBSD 3">3.x only</OPTION> <OPTION VALUE="^FreeBSD 2">2.x only</OPTION> </SELECT> </TR> </TABLE> <INPUT TYPE="SUBMIT" VALUE=" Query PR's "> <INPUT TYPE="RESET" VALUE=" Reset Form "> </FORM> `; }