6 use POSIX qw(strftime tzset nice);
8 #require '/usr/lib/debbugs/errorlib';
9 #require '/usr/lib/debbugs/common.pl';
10 require '/debian/home/ajt/newajbug/common.pl';
12 require '/etc/debbugs/config';
13 require '/etc/debbugs/text';
17 my %param = readparse();
19 my $indexon = $param{'indexon'} || 'pkg';
20 if ($indexon !~ m/^(pkg|maint|submitter)/) {
21 quit("You have to choose something to index on");
24 my $repeatmerged = ($param{'repeatmerged'} || "yes") eq "yes";
25 my $archive = ($param{'archive'} || "no") eq "yes";
26 #my $include = $param{'include'} || "";
27 #my $exclude = $param{'exclude'} || "";
29 my $Archived = $archive ? "Archived" : "";
31 my %maintainers = &getmaintainers();
37 my $dtime = strftime "%a, %e %b %Y %T UTC", localtime;
38 my $tail_html = $debbugs::gHTMLTail;
39 $tail_html = $debbugs::gHTMLTail;
40 $tail_html =~ s/SUBSTITUTE_DTIME/$dtime/;
42 set_option("repeatmerged", $repeatmerged);
43 set_option("archive", $archive);
44 #set_option("include", { map {($_,1)} (split /[\s,]+/, $include) })
46 #set_option("exclude", { map {($_,1)} (split /[\s,]+/, $exclude) })
53 if ($indexon eq "pkg") {
55 %count = countbugs(sub {my %d=@_; return $d{"pkg"}});
56 $note = "<p>Note that with multi-binary packages there may be other\n";
57 $note .= "reports filed under the different binary package names.</p>\n";
60 sprintf('<a href="%s">%s</a> '
61 . '(maintained by <a href="%s">%s</a>',
64 mainturl($maintainers{$pkg}),
65 htmlsanit($maintainers{$pkg}));
67 } elsif ($indexon eq "maint") {
69 %count = countbugs(sub {my %d=@_;
70 return emailfromrfc822($maintainers{$d{"pkg"}} || "");
72 $note = "<p>Note that maintainers may use different Maintainer fields for\n";
73 $note .= "different packages, so there may be other reports filed under\n";
74 $note .= "different addresses.</p>\n";
76 my $maint = shift; my $maintfull = $maint;
77 foreach my $x (values %maintainers) {
78 if (emailfromrfc822($x) eq $maint) {
79 $maintfull = $x; last;
82 sprintf('<a href="%s">%s</a>',
84 htmlsanit($maintfull));
86 } elsif ($indexon eq "submitter") {
89 %count = countbugs(sub {my %d=@_; my $f = $d{"submitter"} || "";
90 my $em = emailfromrfc822($f);
91 $fullname{$em} = $f if (!defined $fullname{$em});
96 sprintf('<a href="%s">%s</a>',
98 htmlsanit($fullname{$sub}));
100 $note = "<p>Note that people may use different email accounts for\n";
101 $note .= "different bugs, so there may be other reports filed under\n";
102 $note .= "different addresses.</p>\n";
105 my $result = "<ul>\n";
106 foreach my $x (sort keys %count) {
107 $result .= "<li>" . $linksub->($x) . " has $count{$x} bugs</li>\n";
109 $result .= "</ul>\n";
111 print "Content-Type: text/html\n\n";
113 print "<HTML><HEAD><TITLE>\n" .
114 "$debbugs::gProject $Archived $debbugs::gBug reports by $tag\n" .
115 "</TITLE></HEAD>\n" .
116 '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#800080">' .
118 print "<H1>" . "$debbugs::gProject $Archived $debbugs::gBug report logs: $tag" .
127 print "</body></html>\n";