1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!/usr/bin/perl
# Usage: xpostdef postconf.proto >postconf.proto.new
# Update parameter default values in postconf prototype file.
$POSTCONF="postconf";
# Read all the default parameter values. This also provides us with
# a list of all the parameters that postconf knows about.
open(POSTCONF, "$POSTCONF -d|") || die "cannot run $POSTCONF -d: !$\n";
while(<POSTCONF>) {
chop;
if (($name, $defval) = split(/\s+=\s+/, $_, 2)) {
$defval =~ s/&/\&/g;
$defval =~ s/</\</g;
$defval =~ s/>/\>/g;
$defval =~ s/\s+$//;
$defaults{$name} = $defval;
} else {
die "unexpected $POSTCONF output: $_\n";
}
}
close(POSTCONF) || die "$POSTCONF failed: $!\n";
# Censor out default values that are system or version dependent, or
# that don't display well.
$censored = <<EOF;
alias_database
alias_maps
command_directory
command_expansion_filter
config_directory
daemon_directory
default_database_type
default_rbl_reply
execution_directory_expansion_filter
export_environment
forward_expansion_filter
forward_path
html_directory
import_environment
mail_release_date
mail_spool_directory
mail_version
mailbox_delivery_lock
mailq_path
manpage_directory
mydomain
myhostname
mynetworks
newaliases_path
parent_domain_matches_subdomains
proxy_read_maps
queue_directory
readme_directory
sendmail_path
smtpd_expansion_filter
tls_random_source
virtual_mailbox_lock
milter_connect_macros
milter_helo_macros
milter_mail_macros
milter_rcpt_macros
milter_data_macros
milter_unknown_command_macros
milter_end_of_data_macros
EOF
for $name (split(/\s+/, $censored)) {
$defaults{$name} = "see \"postconf -d\" output";
}
# Process the postconf prototype file, and update default values
# with output from the postconf command. Leave alone any defaults
# that postconf didn't know about. This can happen when conditional
# features have been compile time disabled.
$name = $defval = $text = $line = "";
while(<>) {
if (/^%PARAM/) {
# Print the updated parameter text. Keep the old default if
# postconf doesn't have a suitable one.
if ($name) {
$defval = $defaults{$name} if (defined($defaults{$name}));
print "%PARAM $name $defval\n";
}
print $text;
# Reset the parameter name, default, and accumulated text.
$name = $defval = $text = $line = "";
# Accumulate the parameter name and default value.
do {
$_ =~ s/\s+$//;
$line .= " " . $_;
} while(($_ = <POSTCONF>) && /^../);
($junk, $class, $name, $defval) = split(/\s+/, $line, 4);
} else {
# Accumulate the text in the parameter definition.
$_ =~ s/\s+$/\n/;
$text .= $_;
}
}
# Fix the last parameter.
if ($name && $text) {
$defval = $defaults{$name} if (defined($defaults{$name}));
print "%PARAM $name $defval\n$text";
}
|
