5 use POSIX qw(strftime nice);
7 use Debbugs::Config qw(:globals :text :config);
9 use Debbugs::CGI qw(:util :url :html);
10 use Debbugs::Common qw(getmaintainers getparsedaddrs);
11 use Debbugs::Bugs qw(count_bugs);
12 use Debbugs::Status qw(:status);
13 use Debbugs::Packages qw(getpkgsrc);
14 use Debbugs::Text qw(:templates);
18 my $q = new CGI::Simple;
19 my %param = cgi_parameters(query => $q,
20 single => [qw(indexon repeatmerged archive sortby),
21 qw(skip max_results first),
23 default => {indexon => 'pkg',
24 repeatmerged => 'yes',
32 if (defined $param{first}) {
33 # rip out all non-words from first
34 $param{first} =~ s/\W//g;
36 if (defined $param{next}) {
37 $param{skip}+=$param{max_results};
39 elsif (defined $param{prev}) {
40 $param{skip}-=$param{max_results};
41 $param{skip} = 0 if $param{skip} < 0;
44 my $indexon = $param{indexon};
45 if ($param{indexon} !~ m/^(pkg|src|maint|submitter|tag)$/) {
46 quitcgi("You have to choose something to index on");
49 my $repeatmerged = $param{repeatmerged} eq 'yes';
50 my $archive = $param{archive} eq "yes";
51 my $sortby = $param{sortby};
52 if ($sortby !~ m/^(alpha|count)$/) {
53 quitcgi("Don't know how to sort like that");
56 my $Archived = $archive ? " Archived" : "";
58 my %maintainers = %{&getmaintainers()};
61 my $dtime = strftime "%a, %e %b %Y %T UTC", gmtime;
68 if ($indexon eq "pkg") {
70 %count = count_bugs(function => sub {my %d=@_; return splitpackages($d{"pkg"})});
71 if (defined $param{first}) {
73 if (/^\Q$param{first}\E/) {
81 $note = "<p>Note that with multi-binary packages there may be other\n";
82 $note .= "reports filed under the different binary package names.</p>\n";
83 foreach my $pkg (keys %count) {
84 $sortkey{$pkg} = lc $pkg;
85 $htmldescrip{$pkg} = sprintf('<a href="%s">%s</a> (%s)',
86 package_links(package => $pkg, links_only=>1),
88 htmlize_maintlinks(sub { $_[0] == 1 ? 'maintainer: '
92 } elsif ($indexon eq "src") {
93 $tag = "source package";
94 my $pkgsrc = getpkgsrc();
95 if (defined $param{first}) {
97 if (/^\Q$param{first}\E/) {
105 %count = count_bugs(function => sub {my %d=@_;
108 } splitpackages($d{"pkg"});
111 foreach my $src (keys %count) {
112 $sortkey{$src} = lc $src;
113 $htmldescrip{$src} = sprintf('<a href="%s">%s</a> (%s)',
114 package_links(src => $src, links_only=>1),
116 htmlize_maintlinks(sub { $_[0] == 1 ? 'maintainer: '
118 $maintainers{$src}));
120 } elsif ($indexon eq "maint") {
122 my %email2maint = ();
123 %count = count_bugs(function => sub {my %d=@_;
125 my @me = getparsedaddrs($maintainers{$_});
126 foreach my $addr (@me) {
127 $email2maint{$addr->address} = $addr->format
128 unless exists $email2maint{$addr->address};
130 map { $_->address } @me;
131 } splitpackages($d{"pkg"});
133 if (defined $param{first}) {
135 if (/^\Q$param{first}\E/) {
143 $note = "<p>Note that maintainers may use different Maintainer fields for\n";
144 $note .= "different packages, so there may be other reports filed under\n";
145 $note .= "different addresses.</p>\n";
146 foreach my $maint (keys %count) {
147 $sortkey{$maint} = lc $email2maint{$maint} || "(unknown)";
148 $htmldescrip{$maint} = htmlize_maintlinks('', $email2maint{$maint});
150 } elsif ($indexon eq "submitter") {
153 %count = count_bugs(function => sub {my %d=@_;
154 my @se = getparsedaddrs($d{"submitter"} || "");
155 foreach my $addr (@se) {
156 $fullname{$addr->address} = $addr->format
157 unless exists $fullname{$addr->address};
159 map { $_->address } @se;
161 if (defined $param{first}) {
163 if (/^\Q$param{first}\E/) {
171 foreach my $sub (keys %count) {
172 $sortkey{$sub} = lc $fullname{$sub};
173 $htmldescrip{$sub} = sprintf('<a href="%s">%s</a>',
175 html_escape($fullname{$sub}));
177 $note = "<p>Note that people may use different email accounts for\n";
178 $note .= "different bugs, so there may be other reports filed under\n";
179 $note .= "different addresses.</p>\n";
180 } elsif ($indexon eq "tag") {
182 %count = count_bugs(function => sub {my %d=@_; return split ' ', $d{tags}; });
183 if (defined $param{first}) {
185 if (/^\Q$param{first}\E/) {
194 foreach my $keyword (keys %count) {
195 $sortkey{$keyword} = lc $keyword;
196 $htmldescrip{$keyword} = sprintf('<a href="%s">%s</a>',
198 html_escape($keyword));
202 my $result = "<ul>\n";
204 if ($sortby eq "count") {
205 @orderedentries = sort { $count{$a} <=> $count{$b} } keys %count;
206 } else { # sortby alpha
207 @orderedentries = sort { $sortkey{$a} cmp $sortkey{$b} } keys %count;
209 my $skip = $param{skip};
210 my $max_results = $param{max_results};
211 foreach my $x (@orderedentries) {
212 if (not defined $param{first}) {
213 $skip-- and next if $skip > 0;
214 last if --$max_results < 0;
216 $result .= "<li>" . $htmldescrip{$x} . " has $count{$x} " .
217 ($count{$x} == 1 ? "bug" : "bugs") . "</li>\n";
219 $result .= "</ul>\n";
221 print "Content-Type: text/html\n\n";
223 print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
224 print "<HTML><HEAD>\n" .
225 "<TITLE>$gProject$Archived $gBug reports by $tag</TITLE>\n" .
226 qq(<LINK REL="stylesheet" HREF="$gWebHostBugDir/css/bugs.css" TYPE="text/css">) .
228 '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#800080">' .
230 print "<H1>" . "$gProject$Archived $gBug report logs by $tag" .
236 <input type="hidden" name="skip" value="$param{skip}">
237 <input type="hidden" name="max_results" value="$param{max_results}">
238 <input type="hidden" name="indexon" value="$param{indexon}">
239 <input type="hidden" name="repeatmerged" value="$param{repeatmerged}">
240 <input type="hidden" name="archive" value="$param{archive}">
241 <input type="hidden" name="sortby" value="$param{sortby}">
243 if (defined $param{first}) {
244 print qq(<input type="hidden" name="first" value="$param{first}">\n);
248 if ($param{skip} > 0) {
249 print q(<input type="submit" name="prev" value="Prev">);
251 if (keys %count > ($param{skip} + $param{max_results})) {
252 print q(<input type="submit" name="next" value="Next">);
259 print fill_in_template(template=>'html/html_tail',
260 hole_var => {'&strftime' => \&POSIX::strftime,
263 print "</body></html>\n";