-if (defined $pkg) {
- $tag = "package $pkg";
- @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', $pkg)};
-} elsif (defined $src) {
- $tag = "source $src";
- my @pkgs = getsrcpkgs($src);
- push @pkgs, $src if ( !grep(/^\Q$src\E$/, @pkgs) );
- @bugs = @{getbugs(sub {my %d=@_; return grep($d{"pkg"} eq $_, @pkgs)}, 'package', @pkgs)};
-} elsif (defined $maint) {
- my %maintainers = %{getmaintainers()};
- $tag = "maintainer $maint";
- my @pkgs = ();
- foreach my $p (keys %maintainers) {
- my $me = $maintainers{$p};
- $me =~ s/\s*\(.*\)\s*//;
- $me = $1 if ($me =~ m/<(.*)>/);
- push @pkgs, $p if ($me eq $maint);
- }
- if ($maint eq "") {
- @bugs = @{getbugs(sub {my %d=@_; my $me;
- ($me = $maintainers{$d{"pkg"}}||"") =~ s/\s*\(.*\)\s*//;
- $me = $1 if ($me =~ m/<(.*)>/);
- return $me eq $maint;
- })};
- } else {
- @bugs = @{getbugs(sub {my %d=@_; my $me;
- ($me = $maintainers{$d{"pkg"}}||"") =~ s/\s*\(.*\)\s*//;
- $me = $1 if ($me =~ m/<(.*)>/);
- return $me eq $maint;
- }, 'package', @pkgs)};
- }
-} elsif (defined $maintenc) {
- my %maintainers = %{getmaintainers()};
- $tag = "encoded maintainer $maintenc";
- @bugs = @{getbugs(sub {my %d=@_;
- return maintencoded($maintainers{$d{"pkg"}} || "")
- eq $maintenc
- })};
-} elsif (defined $submitter) {
- $tag = "submitter $submitter";
- @bugs = @{getbugs(sub {my %d=@_; my $se;
- ($se = $d{"submitter"} || "") =~ s/\s*\(.*\)\s*//;
- $se = $1 if ($se =~ m/<(.*)>/);
- return $se eq $submitter;
- }, 'submitter-email', $submitter)};
-} elsif (defined($severity) && defined($status)) {
- $tag = "$status $severity bugs";
- @bugs = @{getbugs(sub {my %d=@_;
- return ($d{"severity"} eq $severity)
- && ($d{"status"} eq $status);
- })};
-} elsif (defined($severity)) {
- $tag = "$severity bugs";
- @bugs = @{getbugs(sub {my %d=@_;
- return ($d{"severity"} eq $severity);
- }, 'severity', $severity)};
-}
-
-my $result = htmlizebugs(\@bugs);
-
-print "Content-Type: text/html\n\n";
+
+# addusers for source and binary packages being searched for
+my $pkgsrc = getpkgsrc();
+my $srcpkg = getsrcpkgs();
+for my $package (# For binary packages, add the binary package
+ # and corresponding source package
+ make_list($param{package}||[]),
+ (map {defined $pkgsrc->{$_}?($pkgsrc->{$_}):()}
+ make_list($param{package}||[]),
+ ),
+ # For source packages, add the source package
+ # and corresponding binary packages
+ make_list($param{src}||[]),
+ (map {defined $srcpkg->{$_}?($srcpkg->{$_}):()}
+ make_list($param{src}||[]),
+ ),
+ ) {
+ next unless defined $package;
+ add_user($package.'@'.$config{usertag_package_domain},
+ \%ut,\%bugusertags,\%seen_users,\%cats,\%hidden)
+ if defined $config{usertag_package_domain};
+}
+
+
+# walk through the keys and make the right get_bugs query.
+
+my $form_option_variables = {};
+$form_option_variables->{search_key_order} = [@package_search_key_order];
+
+# Set the title sanely and clean up parameters
+my @title;
+my @temp = @package_search_key_order;
+while (my ($key,$value) = splice @temp, 0, 2) {
+ next unless exists $param{$key};
+ my @entries = ();
+ for my $entry (make_list($param{$key})) {
+ # we'll handle newest below
+ next if $key eq 'newest';
+ my $extra = '';
+ if (exists $param{dist} and ($key eq 'package' or $key eq 'src')) {
+ my %versions = get_versions(package => $entry,
+ (exists $param{dist}?(dist => $param{dist}):()),
+ (exists $param{arch}?(arch => $param{arch}):(arch => $config{default_architectures})),
+ ($key eq 'src'?(arch => q(source)):()),
+ no_source_arch => 1,
+ return_archs => 1,
+ );
+ my $verdesc;
+ if (keys %versions > 1) {
+ $verdesc = 'versions '. join(', ',
+ map { $_ .' ['.join(', ',
+ sort @{$versions{$_}}
+ ).']';
+ } keys %versions);
+ }
+ else {
+ $verdesc = 'version '.join(', ',
+ keys %versions
+ );
+ }
+ $extra= " ($verdesc)" if keys %versions;
+ }
+ if ($key eq 'maint' and $entry eq '') {
+ push @entries, "no one (packages without maintainers)"
+ }
+ else {
+ push @entries, $entry.$extra;
+ }
+ }
+ push @title,$value.' '.join(' or ', @entries) if @entries;
+}
+if (defined $param{newest}) {
+ my $newest_bug = newest_bug();
+ @bugs = ($newest_bug - $param{newest} + 1) .. $newest_bug;
+ push @title, 'in '.@bugs.' newest reports';
+ $param{bugs} = [exists $param{bugs}?make_list($param{bugs}):(),
+ @bugs,
+ ];
+}
+
+my $title = $gBugs.' '.join(' and ', map {/ or /?"($_)":$_} @title);
+@title = ();
+
+#yeah for magick!
+@bugs = get_bugs((map {exists $param{$_}?($_,$param{$_}):()}
+ grep {$_ ne 'newest'}
+ keys %package_search_keys, 'archive'),
+ usertags => \%ut,
+ );
+
+# shove in bugs which affect this package if there is a package or a
+# source given (by default), but no affects options given
+if (not exists $param{affects} and not exists $param{noaffects} and
+ (exists $param{src} or
+ exists $param{package})) {
+ push @bugs, get_bugs((map {my $key = $_;
+ exists $param{$key}?($key =~ /^(?:package|src)$/?'affects':$key,
+ ($key eq 'src'?[map {"src:$_"}make_list($param{$key})]:$param{$_})):()}
+ grep {$_ ne 'newest'}
+ keys %package_search_keys, 'archive'),
+ usertags => \%ut,
+ );
+}
+
+# filter out included or excluded bugs
+
+
+if (defined $param{version}) {
+ $title .= " at version $param{version}";
+}
+elsif (defined $param{dist}) {
+ $title .= " in $param{dist}";
+}
+
+$title = html_escape($title);
+
+my @names; my @prior; my @order;
+determine_ordering(cats => \%cats,
+ param => \%param,
+ ordering => \$ordering,
+ names => \@names,
+ prior => \@prior,
+ title => \@title,
+ order => \@order,
+ );
+
+# strip out duplicate bugs
+my %bugs;
+@bugs{@bugs} = @bugs;
+@bugs = keys %bugs;
+
+my $result = pkg_htmlizebugs(bugs => \@bugs,
+ names => \@names,
+ title => \@title,
+ order => \@order,
+ prior => \@prior,
+ ordering => $ordering,
+ bugusertags => \%bugusertags,
+ bug_rev => $bug_rev,
+ bug_order => $bug_order,
+ repeatmerged => $param{repeatmerged},
+ include => $include,
+ exclude => $exclude,
+ this => $this,
+ options => \%param,
+ (exists $param{dist})?(dist => $param{dist}):(),
+ );
+
+print "Cache-Control: public, max-age=300\n";
+print "Content-Type: text/html; charset=utf-8\n\n";