]>
git.proxmox.com Git - pmg-docs.git/blob - gen-pmg.conf.5-opts.pl
5ee41080aec6d2810fce3b04717196cff3c2f36f
12 my $types = PMG
::Config
::Base-
>lookup_types;
14 my $single_section = shift;
27 rejectunknownsender
=> 1,
36 conn_count_limit
=> 1,
38 message_rate_limit
=> 1,
62 # verify if we document all mail settings
63 my $plugin = PMG
::Config
::Base-
>lookup('mail');
64 my $schema = $plugin->updateSchema(1);
65 my $properties = $schema->{properties
};
67 my $found_mail_keys = {};
68 foreach my $group (keys %$key_groups) {
69 my ($sec, $hash) = @{$key_groups->{$group}};
70 next if $sec ne 'mail';
71 foreach my $k (keys %$hash) {
72 die "unknown key '$k'" if !defined($properties->{$k});
73 $found_mail_keys->{$k} = 1;
76 foreach my $k (keys %$properties) {
77 next if $skiped_keys->{$k};
78 next if $k =~ m/^max_(filters|policy|smtpd_in|smtpd_out)$/;
79 die "undocumented key '$k'" if !defined($found_mail_keys->{$k});
86 if ($single_section) {
87 if (my $a = $key_groups->{$single_section}) {
88 my ($sec, $hash) = @$a;
89 $single_section = $sec;
95 foreach my $section (@$types) {
96 my $plugin = PMG
::Config
::Base-
>lookup($section);
97 my $schema = $plugin->updateSchema(1);
98 my $properties = $schema->{properties
};
100 if (defined($single_section)) {
101 next if $section ne $single_section;
103 print ".Section '$section'\n\n";
109 my ($key, $phash) = @_;
110 return 1 if $skiped_keys->{$key};
111 return 1 if $select_keys && !$select_keys->{$key};
115 print PVE
::RESTHandler
::dump_properties
(
116 $properties, 'asciidoc', 'config', $filter);
119 if (defined($single_section)) {
120 die "no such section '$single_section'" if !$found;