#!/usr/bin/perl
use lib '.';
+
use strict;
use warnings;
-use PVE::RESTHandler;
-use Data::Dumper;
+use PVE::RESTHandler;
use PMG::Config;
dnsbl_threshold => 1,
verifyreceivers => 1,
greylist => 1,
+ greylistmask4 => 1,
+ greylist6 => 1,
+ greylistmask6 => 1,
spf => 1,
hide_received => 1,
dwarning => 1,
banner => 1,
before_queue_filtering => 1,
ndr_on_block => 1,
+ smtputf8 => 1,
}],
'mail-tls' => [
'mail' , {
relay => 1,
relaynomx => 1,
relayport => 1,
+ relayprotocol => 1,
smarthost => 1,
smarthostport => 1,
}],
my ($sec, $hash) = @{$key_groups->{$group}};
next if $sec ne 'mail';
foreach my $k (keys %$hash) {
- die "unknown key '$k'" if !defined($properties->{$k});
+ if (!defined($properties->{$k})) {
+ warn "\n WARNING: unknown key '$k'";
+ next;
+ }
$found_mail_keys->{$k} = 1;
}
}
foreach my $k (keys %$properties) {
next if $skiped_keys->{$k};
next if $k =~ m/^max_(filters|policy|smtpd_in|smtpd_out)$/;
- die "undocumented key '$k'" if !defined($found_mail_keys->{$k});
+
+ if (!defined($found_mail_keys->{$k})) {
+ die "undocumented key '$k'" if !$ENV{PMG_DOCS_IGNORE_MISSING_KEY};
+ warn "WARNING: undocumented key '$k'\n";
+ }
}
}
return 1 if $select_keys && !$select_keys->{$key};
return 0;
};
-
+
print PVE::RESTHandler::dump_properties(
$properties, 'asciidoc', 'config', $filter);
}
if (defined($single_section)) {
die "no such section '$single_section'" if !$found;
}
-
+
exit(0);