6 use POSIX qw(strftime tzset nice);
8 #require '/usr/lib/debbugs/errorlib';
11 require '/etc/debbugs/config';
12 require '/etc/debbugs/text';
14 use vars qw($gPackagePages $gWebDomain);
16 if (defined $ENV{REQUEST_METHOD} and $ENV{REQUEST_METHOD} eq 'HEAD') {
17 print "Content-Type: text/html; charset=utf-8\n\n";
23 my $userAgent = detect_user_agent();
24 my %param = readparse();
26 my $repeatmerged = ($param{'repeatmerged'} || "yes") eq "yes";
27 my $archive = ($param{'archive'} || "no") eq "yes";
28 my $include = $param{'&include'} || $param{'include'} || "";
29 my $exclude = $param{'&exclude'} || $param{'exclude'} || "";
30 my $raw_sort = ($param{'raw'} || "no") eq "yes";
31 my $bug_rev = ($param{'bug-rev'} || "no") eq "yes";
32 my $pend_rev = ($param{'pend-rev'} || "no") eq "yes";
33 my $sev_rev = ($param{'sev-rev'} || "no") eq "yes";
34 my $pend_exc = $param{'&pend-exc'} || $param{'pend-exc'} || "";
35 my $pend_inc = $param{'&pend-inc'} || $param{'pend-inc'} || "";
36 my $sev_exc = $param{'&sev-exc'} || $param{'sev-exc'} || "";
37 my $sev_inc = $param{'&sev-inc'} || $param{'sev-inc'} || "";
38 my $maxdays = ($param{'maxdays'} || -1);
39 my $mindays = ($param{'mindays'} || 0);
40 my $version = $param{'version'} || undef;
41 my $dist = $param{'dist'} || undef;
42 my $arch = $param{'arch'} || undef;
43 my $show_list_header = ($param{'show_list_header'} || $userAgent->{'show_list_header'} || "yes" ) eq "yes";
44 my $show_list_footer = ($param{'show_list_footer'} || $userAgent->{'show_list_footer'} || "yes" ) eq "yes";
47 if (defined $param{'vt'}) {
48 my $vt = $param{'vt'};
49 if ($vt eq "none") { $dist = undef; $arch = undef; $version = undef; }
50 if ($vt eq "bysuite") {
52 $arch = undef if ($arch eq "any");
54 if ($vt eq "bypkg" || $vt eq "bysrc") { $dist = undef; $arch = undef; }
56 if (defined $param{'ordering'}) {
57 my $o = $param{'ordering'};
58 if ($o eq "raw") { $raw_sort = 1; $bug_rev = 0; }
59 if ($o eq "normal") { $raw_sort = 0; $bug_rev = 0; }
60 if ($o eq "reverse") { $raw_sort = 0; $bug_rev = 1; }
62 if (defined $param{'includesubj'}) {
63 my $is = $param{'includesubj'};
64 $include .= "," . join(",", map { "subj:$_" } (split /[\s,]+/, $is));
66 if (defined $param{'excludesubj'}) {
67 my $es = $param{'excludesubj'};
68 $exclude .= "," . join(",", map { "subj:$_" } (split /[\s,]+/, $es));
73 my ($pkg, $src, $maint, $maintenc, $submitter, $severity, $status, $tag);
79 'maintenc' => \$maintenc,
80 'submitter' => \$submitter,
81 'severity' => \$severity,
84 my @allowedEmpty = ( 'maint' );
87 foreach ( keys %which ) {
88 $status = $param{'status'} || 'open' if /^severity$/;
89 if (($found = $param{$_})) {
90 ${ $which{$_} } = $found;
94 if (!$found && !$archive) {
95 foreach ( @allowedEmpty ) {
96 if (exists($param{$_})) {
105 if (($which = $param{'which'})) {
106 if (grep( /^\Q$which\E$/, @allowedEmpty)) {
107 ${ $which{$which} } = $param{'data'};
109 } elsif (($found = $param{'data'})) {
110 ${ $which{$which} } = $found if (exists($which{$which}));
114 quitcgi("You have to choose something to select by") if (!$found);
116 my $Archived = $archive ? " Archived" : "";
126 my $dtime = strftime "%a, %e %b %Y %T UTC", localtime;
127 my $tail_html = $debbugs::gHTMLTail;
128 $tail_html = $debbugs::gHTMLTail;
129 $tail_html =~ s/SUBSTITUTE_DTIME/$dtime/;
131 set_option("repeatmerged", $repeatmerged);
132 set_option("archive", $archive);
133 set_option("include", $include);
134 set_option("exclude", $exclude);
135 set_option("raw", $raw_sort);
136 set_option("bug-rev", $bug_rev);
137 set_option("pend-rev", $pend_rev);
138 set_option("sev-rev", $sev_rev);
139 set_option("pend-exc", $pend_exc);
140 set_option("pend-inc", $pend_inc);
141 set_option("sev-exc", $sev_exc);
142 set_option("sev-inc", $sev_inc);
143 set_option("maxdays", $maxdays);
144 set_option("mindays", $mindays);
145 set_option("version", $version);
146 set_option("dist", $dist);
147 set_option("arch", $arch);
148 set_option("use-bug-idx", defined($param{'use-bug-idx'}) ? $param{'use-bug-idx'} : 0);
149 set_option("show_list_header", $show_list_header);
150 set_option("show_list_footer", $show_list_footer);
155 $title = "package $pkg";
156 if (defined $version) {
157 $title .= " (version $version)";
158 } elsif (defined $dist) {
159 $title .= " in $dist";
160 my $verdesc = getversiondesc($pkg);
161 $title .= " ($verdesc)" if defined $verdesc;
163 my @pkgs = split /,/, $pkg;
164 @bugs = @{getbugs(sub {my %d=@_;
165 foreach my $try (splitpackages($d{"pkg"})) {
166 return 1 if grep($try eq $_, @pkgs);
169 }, 'package', @pkgs)};
170 } elsif (defined $src) {
171 $title = "source $src";
172 set_option('arch', 'source');
173 if (defined $version) {
174 $title .= " (version $version)";
175 } elsif (defined $dist) {
176 $title .= " in $dist";
177 my $verdesc = getversiondesc($src);
178 $title .= " ($verdesc)" if defined $verdesc;
181 my @srcs = split /,/, $src;
182 foreach my $try (@srcs) {
183 push @pkgs, getsrcpkgs($try);
184 push @pkgs, $try if ( !grep(/^\Q$try\E$/, @pkgs) );
186 @bugs = @{getbugs(sub {my %d=@_;
187 foreach my $try (splitpackages($d{"pkg"})) {
188 return 1 if grep($try eq $_, @pkgs);
191 }, 'package', @pkgs)};
192 } elsif (defined $maint) {
193 my %maintainers = %{getmaintainers()};
194 $title = "maintainer $maint";
195 $title .= " in $dist" if defined $dist;
197 @bugs = @{getbugs(sub {my %d=@_;
198 foreach my $try (splitpackages($d{"pkg"})) {
199 return 1 if !getparsedaddrs($maintainers{$try});
204 my @maints = split /,/, $maint;
206 foreach my $try (@maints) {
207 foreach my $p (keys %maintainers) {
208 my @me = getparsedaddrs($maintainers{$p});
209 push @pkgs, $p if grep { $_->address eq $try } @me;
212 @bugs = @{getbugs(sub {my %d=@_;
213 foreach my $try (splitpackages($d{"pkg"})) {
214 my @me = getparsedaddrs($maintainers{$try});
215 return 1 if grep { $_->address eq $maint } @me;
218 }, 'package', @pkgs)};
220 } elsif (defined $maintenc) {
221 my %maintainers = %{getmaintainers()};
222 $title = "encoded maintainer $maintenc";
223 $title .= " in $dist" if defined $dist;
224 @bugs = @{getbugs(sub {my %d=@_;
225 foreach my $try (splitpackages($d{"pkg"})) {
226 my @me = getparsedaddrs($maintainers{$try});
228 maintencoded($_->address) eq $maintenc
233 } elsif (defined $submitter) {
234 $title = "submitter $submitter";
235 $title .= " in $dist" if defined $dist;
236 my @submitters = split /,/, $submitter;
237 @bugs = @{getbugs(sub {my %d=@_;
238 my @se = getparsedaddrs($d{"submitter"} || "");
239 foreach my $try (@submitters) {
240 return 1 if grep { $_->address eq $try } @se;
242 }, 'submitter-email', @submitters)};
243 } elsif (defined($severity) && defined($status)) {
244 $title = "$status $severity bugs";
245 $title .= " in $dist" if defined $dist;
246 my @severities = split /,/, $severity;
247 my @statuses = split /,/, $status;
248 @bugs = @{getbugs(sub {my %d=@_;
249 return (grep($d{"severity"} eq $_, @severities))
250 && (grep($d{"status"} eq $_, @statuses));
252 } elsif (defined($severity)) {
253 $title = "$severity bugs";
254 $title .= " in $dist" if defined $dist;
255 my @severities = split /,/, $severity;
256 @bugs = @{getbugs(sub {my %d=@_;
257 return (grep($d{"severity"} eq $_, @severities));
258 }, 'severity', @severities)};
259 } elsif (defined($tag)) {
260 $title = "bugs tagged $tag";
261 $title .= " in $dist" if defined $dist;
262 my @tags = split /,/, $tag;
263 @bugs = @{getbugs(sub {my %d = @_;
264 my %tags = map { $_ => 1 } split ' ', $d{"tags"};
265 return grep(exists $tags{$_}, @tags);
269 my $result = pkg_htmlizebugs(\@bugs);
271 print "Content-Type: text/html; charset=utf-8\n\n";
273 print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
274 print "<HTML><HEAD>\n" .
275 "<TITLE>$debbugs::gProject$Archived $debbugs::gBug report logs: $title</TITLE>\n" .
276 '<link rel="stylesheet" href="/css/bugs.css" type="text/css">' .
278 '<BODY onload="toggle(1);enable(1);">' .
280 print "<H1>" . "$debbugs::gProject$Archived $debbugs::gBug report logs: $title" .
285 if (defined $pkg || defined $src) {
286 my $showpkg = (defined $pkg) ? $pkg : "source package $src";
287 my %maintainers = %{getmaintainers()};
288 my $maint = $pkg ? $maintainers{$pkg} : $maintainers{$src} ? $maintainers{$src} : undef;
289 if (defined $maint) {
291 print htmlmaintlinks(sub { $_[0] == 1 ? "Maintainer for $showpkg is "
292 : "Maintainers for $showpkg are "
297 print "<p>No maintainer for $showpkg. Please do not report new bugs against this package.</p>\n";
299 if (defined $maint or @bugs) {
300 my %pkgsrc = %{getpkgsrc()};
303 $srcforpkg = $pkgsrc{$pkg};
304 defined $srcforpkg or $srcforpkg = $pkg;
306 my @pkgs = getsrcpkgs($pkg ? $srcforpkg : $src);
307 undef $srcforpkg unless @pkgs;
308 @pkgs = grep( !/^\Q$pkg\E$/, @pkgs ) if ( $pkg );
312 print "<p>You may want to refer to the following packages that are part of the same source:\n";
314 print "<p>You may want to refer to the following individual bug pages:\n";
316 push @pkgs, $src if ( $src && !grep(/^\Q$src\E$/, @pkgs) );
317 print join( ", ", map( "<A href=\"" . pkgurl($_) . "\">$_</A>", @pkgs ) );
321 my $pseudodesc = getpseudodesc();
322 if ($pkg and defined($pseudodesc) and exists($pseudodesc->{$pkg})) {
323 push @references, "to the <a href=\"http://${debbugs::gWebDomain}/pseudo-packages${debbugs::gHTMLSuffix}\">list of other pseudo-packages</a>";
325 if ($pkg and defined $debbugs::gPackagePages) {
326 push @references, sprintf "to the <a href=\"%s\">%s package page</a>", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg");
328 if (defined $debbugs::gSubscriptionDomain) {
329 my $ptslink = $pkg ? $srcforpkg : $src;
330 push @references, "to the <a href=\"http://$debbugs::gSubscriptionDomain/$ptslink\">Package Tracking System</a>";
332 # Only output this if the source listing is non-trivial.
333 if ($pkg and $srcforpkg and (@pkgs or $pkg ne $srcforpkg)) {
334 push @references, sprintf "to the source package <a href=\"%s\">%s</a>'s bug page", srcurl($srcforpkg), htmlsanit($srcforpkg);
338 set_option("archive", !$archive);
339 push @references, sprintf "to the <a href=\"%s\">%s reports for %s</a>", pkgurl($pkg), ($archive ? "active" : "archived"), htmlsanit($pkg);
340 set_option("archive", $archive);
343 $references[$#references] = "or $references[$#references]" if @references > 1;
344 print "<p>You might like to refer ", join(", ", @references), ".</p>\n";
346 print "<p>If you find a bug not listed here, please\n";
347 printf "<a href=\"%s\">report it</a>.</p>\n",
348 urlsanit("http://${debbugs::gWebDomain}/Reporting${debbugs::gHTMLSuffix}");
350 print "<p>There is no record of the " .
351 (defined($pkg) ? htmlsanit($pkg) . " package"
352 : htmlsanit($src) . " source package") .
353 ", and no bugs have been filed against it.</p>";
356 } elsif (defined $maint || defined $maintenc) {
357 print "<p>Note that maintainers may use different Maintainer fields for\n";
358 print "different packages, so there may be other reports filed under\n";
359 print "different addresses.\n";
360 } elsif (defined $submitter) {
361 print "<p>Note that people may use different email accounts for\n";
362 print "different bugs, so there may be other reports filed under\n";
363 print "different addresses.\n";
366 print $result if $showresult;
368 print pkg_javascript();
369 print "<h2 class=\"outstanding\"><a class=\"options\" href=\"javascript:toggle(1)\">Options</a></h2>\n";
370 print "<div id=\"a_1\">\n";
371 printf "<form action=\"%s\" method=POST>\n", myurl();
373 print "<table class=\"forms\">\n";
375 my ($checked_any, $checked_sui, $checked_ver) = ("", "", "");
377 $checked_sui = "CHECKED";
378 } elsif (defined $version) {
379 $checked_ver = "CHECKED";
381 $checked_any = "CHECKED";
384 print "<tr><td>Show bugs applicable to</td>\n";
385 print " <td><input id=\"b_1_1\" name=vt value=none type=radio onchange=\"enable(1);\" $checked_any>anything</td></tr>\n";
386 print "<tr><td></td>";
387 print " <td><input id=\"b_1_2\" name=vt value=bysuite type=radio onchange=\"enable(1);\" $checked_sui>" . pkg_htmlselectsuite(1,2,1) . " for " . pkg_htmlselectarch(1,2,2) . "</td></tr>\n";
390 print "<tr><td></td>";
391 print " <td><input id=\"b_1_3\" name=vt value=bypkg type=radio onchange=\"enable(1);\" $checked_ver>$pkg version <input id=\"b_1_3_1\" name=version value=\"$version\"></td></tr>\n";
392 } elsif (defined $src) {
393 print "<tr><td></td>";
394 print " <td><input name=vt value=bysrc type=radio onchange=\"enable(1);\" $checked_ver>$src version <input id=\"b_1_3_1\" name=version value=\"$version\"></td></tr>\n";
397 my $sel_rmy = ($repeatmerged ? " selected" : "");
398 my $sel_rmn = ($repeatmerged ? "" : " selected");
399 my $sel_ordraw = ($raw_sort ? " selected" : "");
400 my $sel_ordnor = (!$raw_sort && !$bug_rev ? " selected" : "");
401 my $sel_ordrev = (!$raw_sort && $bug_rev ? " selected" : "");
402 my $includetags = join(" ", grep { !m/^subj:/i } split /[\s,]+/, $include);
403 my $excludetags = join(" ", grep { !m/^subj:/i } split /[\s,]+/, $exclude);
404 my $includesubj = join(" ", map { s/^subj://i; $_ } grep { m/^subj:/i } split /[\s,]+/, $include);
405 my $excludesubj = join(" ", map { s/^subj://i; $_ } grep { m/^subj:/i } split /[\s,]+/, $exclude);
406 my $vismindays = ($mindays == 0 ? "" : $mindays);
407 my $vismaxdays = ($maxdays == -1 ? "" : $maxdays);
410 <tr><td>Display merged bugs</td><td>
411 <select name=repeatmerged>
412 <option value=yes$sel_rmy>separately</option>
413 <option value=no$sel_rmn>combined</option>
416 <tr><td>Order bugs by</td><td>
417 <select name=ordering>
418 <option value=raw$sel_ordraw>bug number</option>
419 <option value=normal$sel_ordnor>section, oldest first</option>
420 <option value=reverse$sel_ordrev>section, newest first</option>
423 <tr><td>Only include bugs tagged with </td><td><input name=include value="$includetags"> or that have <input name=includesubj value="$includesubj"> in their subject</td></tr>
424 <tr><td>Exclude bugs tagged with </td><td><input name=exclude value="$excludetags"> or that have <input name=excludesubj value="$excludesubj"> in their subject</td></tr>
425 <tr><td>Only show bugs older than</td><td><input name=mindays value="$vismindays" size=5> days, and younger than <input name=maxdays value="$vismaxdays" size=5> days</td></tr>
426 <tr><td colspan=2><input value="Reload page" type="submit"> with new settings</td></tr>
429 print "</table></form></div>\n";
432 print "<p>$tail_html";
434 print "</body></html>\n";
436 sub pkg_htmlindexentrystatus {
443 if ($status{severity} eq 'normal') {
445 } elsif (isstrongseverity($status{severity})) {
446 $showseverity = "Severity: <em class=\"severity\">$status{severity}</em>;\n";
448 $showseverity = "Severity: <em>$status{severity}</em>;\n";
451 $result .= pkg_htmlpackagelinks($status{"package"}, 1);
453 my $showversions = '';
454 if (@{$status{found_versions}}) {
455 my @found = @{$status{found_versions}};
457 s{/}{ } foreach @found;
458 $showversions .= join ', ', map htmlsanit($_), @found;
460 if (@{$status{fixed_versions}}) {
461 $showversions .= '; ' if length $showversions;
462 $showversions .= '<strong>fixed</strong>: ';
463 my @fixed = @{$status{fixed_versions}};
465 s{/}{ } foreach @fixed;
466 $showversions .= join ', ', map htmlsanit($_), @fixed;
468 $result .= " ($showversions)" if length $showversions;
471 $result .= $showseverity;
472 $result .= pkg_htmladdresslinks("Reported by: ", \&submitterurl,
473 $status{originator});
474 $result .= ";\nOwned by: " . htmlsanit($status{owner})
475 if length $status{owner};
476 $result .= ";\nTags: <strong>"
477 . htmlsanit(join(", ", sort(split(/\s+/, $status{tags}))))
479 if (length($status{tags}));
481 my @merged= split(/ /,$status{mergedwith});
482 my $mseparator= ";\nMerged with ";
483 for my $m (@merged) {
484 $result .= $mseparator."<A class=\"submitter\" href=\"" . bugurl($m) . "\">#$m</A>";
489 if (length($status{done})) {
490 $result .= "<br><strong>Done:</strong> " . htmlsanit($status{done});
491 $days = ceil($debbugs::gRemoveAge - -M buglog($status{id}));
493 $result .= ";\n<strong>Will be archived" . ( $days == 0 ? " today" : $days == 1 ? " in $days day" : " in $days days" ) . "</strong>";
495 $result .= ";\n<strong>Archived</strong>";
499 unless (length($status{done})) {
500 if (length($status{forwarded})) {
501 $result .= ";\n<strong>Forwarded</strong> to "
502 . maybelink($status{forwarded});
504 my $daysold = int((time - $status{date}) / 86400); # seconds to days
508 $font = "em" if ($daysold > 30);
509 $font = "strong" if ($daysold > 60);
510 $efont = "</$font>" if ($font);
511 $font = "<$font>" if ($font);
513 my $yearsold = int($daysold / 365);
514 $daysold -= $yearsold * 365;
516 $result .= ";\n $font";
518 push @age, "1 year" if ($yearsold == 1);
519 push @age, "$yearsold years" if ($yearsold > 1);
520 push @age, "1 day" if ($daysold == 1);
521 push @age, "$daysold days" if ($daysold > 1);
522 $result .= join(" and ", @age);
523 $result .= " old$efont";
533 sub pkg_htmlizebugs {
541 my $footer = "<h2 class=\"outstanding\">Summary</h2>\n";
543 my @dummy = ($debbugs::gRemoveAge, @debbugs::gSeverityList, @debbugs::gSeverityDisplay); #, $debbugs::gHTMLExpireNote);
546 return "<HR><H2>No reports found!</H2></HR>\n";
550 @bugs = sort {$b<=>$a} @bugs;
552 @bugs = sort {$a<=>$b} @bugs;
556 my @common_grouping = ( 'severity', 'pending' );
557 my %common_grouping_order = (
558 'pending' => [ qw( pending forwarded pending-fixed fixed done absent ) ],
559 'severity' => \@debbugs::gSeverityList,
561 my %common_grouping_display = (
562 'pending' => 'Status',
563 'severity' => 'Severity',
565 my %common_headers = (
567 "pending" => "outstanding",
568 "pending-fixed" => "pending upload",
569 "fixed" => "fixed in NMU",
570 "done" => "resolved",
571 "forwarded" => "forwarded to upstream software authors",
572 "absent" => "not applicable to this version",
574 'severity' => \%debbugs::gSeverityDisplay,
576 my %common_reverse = ( 'pending' => $pend_rev, 'severity' => $sev_rev );
578 'show_list_header' => 1,
579 'show_list_footer' => 1,
581 my $common_raw_sort = $raw_sort;
585 foreach my $bug (@bugs) {
586 my %status = %{getbugstatus($bug)};
588 next if bugfilter($bug, %status);
590 my $html = sprintf "<li><a href=\"%s\">#%d: %s</a>\n<br>",
591 bugurl($bug), $bug, htmlsanit($status{subject});
592 $html .= pkg_htmlindexentrystatus(\%status) . "\n";
593 my $key = join( '_', map( {$status{$_}} @common_grouping ) );
594 $section{$key} .= $html;
596 foreach my $grouping ( @common_grouping ) {
597 $count{"${grouping}_$status{$grouping}"}++;
599 $anydone = 1 if $status{pending} eq 'done';
600 push @status, [ $bug, \%status, $html ];
604 if ($common_raw_sort) {
605 $result .= "<UL class=\"bugs\">\n" . join("", map( { $_->[ 2 ] } @status ) ) . "</UL>\n";
607 my (@order, @headers);
608 for( my $i = 0; $i < @common_grouping; $i++ ) {
609 my $grouping_name = $common_grouping[ $i ];
610 my @items = @{ $common_grouping_order{ $grouping_name } };
611 @items = reverse( @items ) if ( $common_reverse{ $grouping_name } );
615 foreach my $grouping ( @items ) {
616 push @neworder, map( { "${_}_$grouping" } @order );
617 push @newheaders, map( { "$_ - $common_headers{$grouping_name}{$grouping}" } @headers );
620 @headers = @newheaders;
623 push @headers, map( { $common_headers{$common_grouping[$i]}{$_} } @items );
626 $header .= "<ul>\n<div class=\"msgreceived\">";
627 for ( my $i = 0; $i < @order; $i++ ) {
628 my $order = $order[ $i ];
629 next unless defined $section{$order};
630 my $count = $count{"_$order"};
631 my $bugs = $count == 1 ? "bug" : "bugs";
632 $header .= "<li><a href=\"#$order\">$headers[$i]</a> ($count $bugs)</li>\n";
634 $header .= "</ul></div>\n";
635 for ( my $i = 0; $i < @order; $i++ ) {
636 my $order = $order[ $i ];
637 next unless defined $section{$order};
638 if ($common{show_list_header}) {
639 my $count = $count{"_$order"};
640 my $bugs = $count == 1 ? "bug" : "bugs";
641 $result .= "<H2 CLASS=\"outstanding\"><a name=\"$order\"></a>$headers[$i] ($count $bugs)</H2>\n";
643 $result .= "<H2 CLASS=\"outstanding\">$headers[$i]</H2>\n";
645 $result .= "<div class=\"msgreceived\">\n<UL class=\"bugs\">\n";
646 $result .= $section{$order};
647 $result .= "</UL>\n</div>\n";
649 $footer .= "<ul>\n<div class=\"msgreceived\">";
650 foreach my $grouping ( @common_grouping ) {
651 my $local_result = '';
652 foreach my $key ( @{$common_grouping_order{ $grouping }} ) {
653 my $count = $count{"${grouping}_$key"};
655 $local_result .= "<li>$count $common_headers{$grouping}{$key}</li>\n";
657 if ( $local_result ) {
658 $footer .= "<li>$common_grouping_display{$grouping}<ul>\n$local_result</ul></li>\n";
661 $footer .= "</div></ul>\n";
664 $result = $header . $result if ( $common{show_list_header} );
665 #$result .= "<hr><p>" . $debbugs::gHTMLExpireNote if $debbugs::gRemoveAge and $anydone;
666 $result .= $footer if ( $common{show_list_footer} );
670 sub pkg_htmlpackagelinks {
672 return unless defined $pkgs and $pkgs ne '';
674 my @pkglist = splitpackages($pkgs);
677 my $openstrong = $strong ? '<strong>' : '';
678 my $closestrong = $strong ? '</strong>' : '';
680 return 'Package' . (@pkglist > 1 ? 's' : '') . ': ' .
683 '<a class="submitter" href="' . pkgurl($_) . '">' .
684 $openstrong . htmlsanit($_) . $closestrong . '</a>'
689 sub pkg_htmladdresslinks {
690 my ($prefixfunc, $urlfunc, $addresses) = @_;
691 if (defined $addresses and $addresses ne '') {
692 my @addrs = getparsedaddrs($addresses);
693 my $prefix = (ref $prefixfunc) ? $prefixfunc->(scalar @addrs)
696 join ', ', map { sprintf '<a class="submitter" href="%s">%s</a>',
697 $urlfunc->($_->address),
698 htmlsanit($_->format) || '(unknown)'
701 my $prefix = (ref $prefixfunc) ? $prefixfunc->(1) : $prefixfunc;
702 return sprintf '%s<a class="submitter" href="%s">(unknown)</a>', $prefix, $urlfunc->('');
708 <script type="text/javascript">
712 var a = document.getElementById("a_" + i);
713 if (a.style.display == "none") {
714 a.style.display = "";
716 a.style.display = "none";
721 for (var i = 1; ; i++) {
722 var a = document.getElementById("b_" + x + "_" + i);
723 if (a == null) break;
724 var ischecked = a.checked;
725 for (var j = 1; ; j++) {
726 var b = document.getElementById("b_" + x + "_"+ i + "_" + j);
727 if (b == null) break;
741 sub pkg_htmlselectsuite {
742 my $id = sprintf "b_%d_%d_%d", $_[0], $_[1], $_[2];
743 my @suites = ("stable", "testing", "unstable", "experimental");
744 my %suiteaka = ("stable", "sarge", "testing", "etch", "unstable", "sid");
745 my $defaultsuite = "unstable";
747 my $result = sprintf '<select name=dist id="%s">', $id;
748 for my $s (@suites) {
749 $result .= sprintf '<option value="%s"%s>%s%s</option>',
750 $s, ($defaultsuite eq $s ? " selected" : ""),
751 $s, (defined $suiteaka{$s} ? " (" . $suiteaka{$s} . ")" : "");
753 $result .= '</select>';
757 sub pkg_htmlselectarch {
758 my $id = sprintf "b_%d_%d_%d", $_[0], $_[1], $_[2];
759 my @arches = qw(alpha amd64 arm hppa i386 ia64 m68k mips mipsel powerpc s390 sparc);
761 my $result = sprintf '<select name=arch id="%s">', $id;
762 $result .= '<option value="any">any architecture</option>';
763 for my $a (@arches) {
764 $result .= sprintf '<option value="%s">%s</option>', $a, $a;
766 $result .= '</select>';
771 return pkg_etc_url($pkg, "pkg", 0) if defined($pkg);
772 return pkg_etc_url($src, "src", 0) if defined($src);
773 return pkg_etc_url($maint, "maint", 0) if defined($maint);
774 return pkg_etc_url($submitter, "submitter", 0) if defined($submitter);
775 return pkg_etc_url($severity, "severity", 0) if defined($severity);
776 return pkg_etc_url($tag, "tag", 0) if defined($tag);