archive => {type => BOOLEAN,
default => 0,
},
+ owner => {type => SCALAR|ARRAYREF,
+ optional => 1,
+ },
src => {type => SCALAR|ARRAYREF,
optional => 1,
},
} @src_packages;
}
if (exists $param{submitter}) {
- my @p_addrs = map {$_->address}
- map {lc(getparsedaddrs($_))}
+ my @p_addrs = map {lc($_->address)}
+ map {getparsedaddrs($_)}
__make_list($param{submitter});
my @f_addrs = map {$_->address}
getparsedaddrs($submitter||'');
use base qw(Exporter);
use Debbugs::Config qw(:globals);
+use List::Util qw(min);
BEGIN {
($VERSION) = q$Revision: 1.4 $ =~ /^Revision:\s+([^\s+])/;
my %c = ("nam" => $stanza{"Cat${i}"});
$c{"def"} = $stanza{"Cat${i}Default"}
if defined $stanza{"Cat${i}Default"};
- $c{"ord"} = [ split /,/, $stanza{"Cat${i}Order"} ]
- if defined $stanza{"Cat${i}Order"};
+ if (defined $stanza{"Cat${i}Order"}) {
+ my @temp = split /\s*,\s*/, $stanza{"Cat${i}Order"};
+ my $min = min(@temp);
+ @temp = map {$_-$min} @temp;
+ $c{ord} = [@temp];
+ }
my @pri; my @ttl;
for my $l (split /\n/, $stanza{"Cat${i}Options"}) {
if ($l =~ m/^\s*(\S+)\s+-\s+(.*\S)\s*$/) {
"normal" => [ qw(status severity classification) ],
);
-my ($pkg, $src, $maint, $maintenc, $submitter, $severity, $status, $tag, $usertag);
+my ($pkg, $src, $maint, $maintenc, $submitter, $severity, $status, $tag, $usertag,
+ $owner,
+ );
my %which = (
'pkg' => \$pkg,
'severity' => \$severity,
'tag' => \$tag,
'usertag' => \$usertag,
+ 'owner' => \$owner,
);
my @allowedEmpty = ( 'maint' );
return grep(exists $tags{$_}, @tags);
})};
}
+elsif (defined $owner) {
+ $title = "bugs owned by $owner";
+ $title .= " in $dist" if defined $dist;
+ my @owners = split /,/, $tag;
+ my %bugs = ();
+ @bugs = get_bugs(owner=>\@owners);
+
+}
$title = htmlsanit($title);
my @names; my @prior; my @title; my @order;
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
print "<HTML><HEAD>\n" .
- "<TITLE>$gProject$Archived $gBug report logs: $title</TITLE>\n" .
+ "<TITLE>$title -- $gProject$Archived $gBug report logs</TITLE>\n" .
qq(<link rel="stylesheet" href="$gWebHostBugDir/css/bugs.css" type="text/css">) .
"</HEAD>\n" .
'<BODY onload="pagemain();">' .
$h->{"nam"} = $param{"nam$i"}
if (defined $param{"nam$i"});
- $h->{"ord"} = [ split /,/, $param{"ord$i"} ]
+ $h->{"ord"} = [ split /\s*,\s*/, $param{"ord$i"} ]
if (defined $param{"ord$i"});
- $h->{"ttl"} = [ split /,/, $param{"ttl$i"} ]
+ $h->{"ttl"} = [ split /\s*,\s*/, $param{"ttl$i"} ]
if (defined $param{"ttl$i"});
push @c, $h;
$i = 0;
for my $c (@cats) {
- $i++;
+ $i++;
push @prior, $c->{"pri"};
push @names, ($c->{"nam"} || "Bug attribute #" . $i);
if (defined $c->{"ord"}) {
push @order, [ 0..$#{$prior[-1]} ];
}
my @t = @{ $c->{"ttl"} } if defined $c->{ttl};
- if (($#t+1) < $#{$prior[-1]}) {
- push @t, map { toenglish($prior[-1]->[$_]) } ($#t+1)..($#{$prior[-1]});
+ if ($#t < $#{$prior[-1]}) {
+ push @t, map { toenglish($prior[-1][$_]) } @t..($#{$prior[-1]});
}
push @t, $c->{"def"} || "";
push @title, [@t];
addbugtoindex("package", $bug, split /[\s,]+/, $fdata->{"package"});
addbugtoindex("tag", $bug, split /[\s,]+/, $fdata->{"keywords"});
addbugtoindex('submitter-email', $bug,
- map {$_->address} getparsedaddrs($fdata->{originator}));
+ map {lc($_->address)} getparsedaddrs($fdata->{originator}));
addbugtoindex("severity", $bug, $fdata->{"severity"});
- addbugtoindex("owner", $bug, $fdata->{"owner"});
+ addbugtoindex("owner", $bug,
+ map {lc($_->address)} getparsedaddrs($fdata->{"owner"}));
}
}