fix 3619: Add HTTPS to list of network services

[pmg-docs.git] / gen-pmg.conf.5-opts.pl

diff --git a/gen-pmg.conf.5-opts.pl b/gen-pmg.conf.5-opts.pl
index 21c2a1996f0ca6e5a99ba205153fef9aadd2aaab..23cad7c18d87166500a7c616d377b408836b956c 100755 (executable)
--- a/gen-pmg.conf.5-opts.pl
+++ b/gen-pmg.conf.5-opts.pl
@@ -7,8 +7,6 @@ use warnings;
 
 use PVE::RESTHandler;
 
-use Data::Dumper;
-
 use PMG::Config;
 
 my $types = PMG::Config::Base->lookup_types;
@@ -32,6 +30,9 @@ my $key_groups = {
            dnsbl_threshold => 1,
            verifyreceivers => 1,
            greylist => 1,
+           greylistmask4 => 1,
+           greylist6 => 1,
+           greylistmask6 => 1,
            spf => 1,
            hide_received => 1,
            dwarning => 1,
@@ -81,14 +82,21 @@ if (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";
+       }
     }
 }