-sub submitterbugs {
- my $submitter = shift;
- my $chk = sub {
- my %d = @_;
- ($subemail = $d{"submitter"}) =~ s/\s*\(.*\)\s*//;
- if ($subemail =~ m/<(.*)>/) { $subemail = $1 }
- return $subemail eq $submitter;
- };
- return getbugs($chk);
-}
-
-sub severitybugs {
- my $status = shift;
- my $severity = shift;
- my $chk = sub {
- my %d = @_;
- return ($d{"severity"} eq $severity) && ($d{"status"} eq $status);
- };
- return getbugs($chk);
-}
-
-sub maintbugs {
- my $maint = shift;
- my %maintainers = getmaintainers();
- my $chk = sub {
- my %d = @_;
- ($maintemail = $maintainers{$d{"pkg"}} || "") =~ s/\s*\(.*\)\s*//;
- if ($maintemail =~ m/<(.*)>/) { $maintemail = $1 }
- return $maintemail eq $maint;
- };
- return getbugs($chk);
-}
-
-sub maintencbugs {
- my $maintenc = shift;
- my %maintainers = getmaintainers();
- return getbugs(sub {my %d=@_; return maintencoded($maintainers{$d{"pkg"}} || "") eq $maintenc});
-}
-
-sub pkgbugs {
- my $inpkg = shift;
- return getbugs( sub { my %d = @_; return $inpkg eq $d{"pkg"} });
-}
-