qw($gVersionTimeIndex),
qw($gSimpleVersioning),
qw($gCVETracker),
- qw($gSendmail $gLibPath $gSpamScan @gExcludeFromControl),
+ qw($gSendmail @gSendmailArguments $gLibPath $gSpamScan @gExcludeFromControl),
qw(%gSeverityDisplay @gTags @gSeverityList @gStrongSeverities),
qw(%gTagsSingleLetter),
qw(%gSearchEstraier),
# untaint $ENV{DEBBUGS_CONFIG_FILE} if it's owned by us
# This enables us to test things that are -T.
if (exists $ENV{DEBBUGS_CONFIG_FILE}) {
- if (${[stat($ENV{DEBBUGS_CONFIG_FILE})]}[4] = $<) {
+ if (${[stat($ENV{DEBBUGS_CONFIG_FILE})]}[4] == $<) {
$ENV{DEBBUGS_CONFIG_FILE} =~ /(.+)/;
$ENV{DEBBUGS_CONFIG_FILE} = $1;
}
set_default(\%config,'sendmail','/usr/lib/sendmail');
+=item sendmail_arguments
+
+Default arguments to pass to sendmail. Defaults to C<qw(-oem -oi)>.
+
+=cut
+
+set_default(\%config,'sendmail_arguments',[qw(-oem -oi)]);
+
=item spam_scan
Whether or not spamscan is being used; defaults to 0 (not being used
sub read_config{
my ($conf_file) = @_;
if (not -e $conf_file) {
- print STDERR "configuration file '$conf_file' doesn't exist; skipping it";
+ print STDERR "configuration file '$conf_file' doesn't exist; skipping it\n" if $DEBUG;
return;
}
# first, figure out what type of file we're reading in.