use Mail::Address;
use POSIX qw(ceil);
use Storable qw(dclone);
+use Scalar::Util qw(looks_like_number);
use List::AllUtils qw(max);
use File::stat;
=item fixed -- arrayref of fixed versions
+=item format -- optional image format override
+
=item width -- optional width of graph
=item height -- optional height of graph
fixed => {type => ARRAYREF,
default => [],
},
+ format => {type => SCALAR,
+ optional => 1,
+ },
width => {type => SCALAR,
optional => 1,
},
for my $type (qw(maint owner submitter correspondent)) {
next unless exists $param{$type};
for my $target (make_list($param{$type})) {
- my $addr = getparsedaddrs($target);
- $addr = defined $addr?$addr->address:'';
if ($has_options) {
push @links,
(munge_url('pkgreport.cgi?',
$_);
} make_list($param{bug}) if exists $param{bug};
} else {
- push @links, map {('bugreport.cgi?bug='.uri_escape_utf8($_),
- $_)}
+ push @links,
+ map {my $b = ceil($_);
+ ('bugreport.cgi?bug='.$b,
+ $b)}
+ grep {looks_like_number($_)}
make_list($param{bug}) if exists $param{bug};
}
my @return;