cgi/pkgreport.cgi

   1 #!/usr/bin/perl -w
   2
   3 package debbugs;
   4
   5 use strict;
   6 use CGI qw/:standard/;
   7
   8 require '/debian/home/ajt/newajbug/common.pl';
   9 #require '/usr/lib/debbugs/common.pl';
  10 require '/usr/lib/debbugs/errorlib';
  11
  12 require '/etc/debbugs/config';
  13 require '/etc/debbugs/text';
  14
  15 my $pkg = param('pkg');
  16 my $maint = defined $pkg ? undef : param('maint');
  17 my $maintenc = (defined $pkg || defined $maint) ? undef : param('maintenc');
  18 my $submitter = (defined $pkg || defined $maint || defined $maintenc) ? undef : param('submitter');
  19 my $repeatmerged = (param('repeatmerged') || "yes") eq "yes";
  20 my $archive = (param('archive') || "no") eq "yes";
  21
  22 $pkg = 'ALL' unless (defined($pkg) || defined($maint) || defined($maintenc)) || defined($submitter);
  23
  24 my $Archived = $archive ? "Archived" : "";
  25
  26 my $this = "";
  27
  28 my %indexentry;
  29 my %maintainer = &getmaintainers();
  30 my %strings = ();
  31
  32 my $dtime=`date -u '+%H:%M:%S GMT %a %d %h'`;
  33 chomp($dtime);
  34 my $tail_html = $debbugs::gHTMLTail;
  35 $tail_html =~ s/SUBSTITUTE_DTIME/$dtime/;
  36
  37 my $tag;
  38 if (defined $pkg) {
  39     $tag = "package $pkg";
  40 } elsif (defined $maint) {
  41     $tag = "maintainer $maint";
  42 } elsif (defined $maintenc) {
  43     $tag = "maintainer $maintenc";
  44 } else {
  45     $tag = "submitter $submitter";
  46 }
  47
  48 set_option("repeatmerged", $repeatmerged);
  49 set_option("archive", $archive);
  50
  51 my @bugs;
  52 if (defined $pkg) {
  53     @bugs = pkgbugs($pkg);
  54 } elsif (defined $maint) {
  55     @bugs = maintbugs($maint);
  56 } elsif (defined $maintenc) {
  57     @bugs = maintbugs($maintenc);
  58 } else {
  59     @bugs = submitterbugs($submitter);
  60 }
  61
  62 my $result = htmlizebugs(@bugs);
  63
  64 print header;
  65 print start_html(
  66         -TEXT => "#000000",
  67         -BGCOLOR=>"#FFFFFF",
  68         -LINK => "#0000FF",
  69         -VLINK => "#800080",
  70         -title => "$debbugs::gProject $Archived $debbugs::gBug report logs: $tag");
  71
  72 print h1("$debbugs::gProject $Archived $debbugs::gBug report logs: $tag");
  73
  74 if (defined $maintainer{$pkg}) {
  75     print "<p>Maintainer for $pkg is <a href=\""
  76           . mainturl($maintainer{$pkg}) . "\">"
  77           . htmlsanit($maintainer{$pkg}) . "</a>.</p>\n";
  78 }
  79
  80 if (defined $pkg) {
  81     print "<p>Note that with multi-binary packages there may be other\n";
  82     print "reports filed under the different binary package names.</p>\n";
  83 } elsif (defined $maint || defined $maintenc) {
  84     print "<p>Note that maintainers may use different Maintainer fields for\n";
  85     print "different packages, so there may be other reports filed under\n";
  86     print "different addresses.\n";
  87 } elsif (defined $submitter) {
  88     print "<p>Note that people may use different email accounts for\n";
  89     print "different bugs, so there may be other reports filed under\n";
  90     print "different addresses.\n";
  91 }
  92
  93 print $result;
  94
  95 print hr;
  96 print "$tail_html";
  97
  98 print end_html;