use Debbugs::Config qw(:config);
use Params::Validate qw(:types validate_with);
+use Debbugs::Packages;
+
BEGIN{
($VERSION) = q$Revision: 1.1 $ =~ /^Revision:\s+([^\s+])/;
$DEBUG = 0 unless defined $DEBUG;
$default_header{"X-$config{project}-PR-Source"} = $1;
}
else {
- my $pkg_src = getpkgsrc();
+ my $pkg_src = Debbugs::Packages::getpkgsrc();
$default_header{"X-$config{project}-PR-Source"} = $pkg_src->{$param{data}{package}};
}
}
sub send_mail_message{
my %param = validate_with(params => \@_,
spec => {sendmail_arguments => {type => ARRAYREF,
- default => [qw(-odq -oem -oi)],
+ default => $config{sendmail_arguments},
},
parse_for_recipients => {type => BOOLEAN,
default => 0,
},
},
);
- my @sendmail_arguments = qw(-odq -oem -oi);
+ my @sendmail_arguments = @{$param{sendmail_arguments}};
push @sendmail_arguments, '-f', $param{envelope_from} if exists $param{envelope_from};
my @recipients;