archive => {type => BOOLEAN,
default => 0,
},
+ owner => {type => SCALAR|ARRAYREF,
+ optional => 1,
+ },
src => {type => SCALAR|ARRAYREF,
optional => 1,
},
my @bugs;
while (<$flatfile>) {
next unless m/^(\S+)\s+(\d+)\s+(\d+)\s+(\S+)\s+\[\s*([^]]*)\s*\]\s+(\w+)\s+(.*)$/;
- my ($pkg,$bug,$status,$submitter,$severity,$tags) = ($1,$2,$3,$4,$5,$6,$7);
+ my ($pkg,$bug,$time,$status,$submitter,$severity,$tags) = ($1,$2,$3,$4,$5,$6,$7);
next if exists $param{bug} and not grep {$bug == $_} __make_list($param{bugs});
if (exists $param{pkg}) {
my @packages = splitpackages($pkg);
} @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||'');