diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 12:06:34 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 12:06:34 +0000 |
commit | 5e61585d76ae77fd5e9e96ebabb57afa4d74880d (patch) | |
tree | 2b467823aaeebc7ef8bc9e3cabe8074eaef1666d /mantools/xpostconf | |
parent | Initial commit. (diff) | |
download | postfix-5b7b6342ca8708be5ee306c089f8c5b3d3d122d8.tar.xz postfix-5b7b6342ca8708be5ee306c089f8c5b3d3d122d8.zip |
Adding upstream version 3.5.24.upstream/3.5.24upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'mantools/xpostconf')
-rwxr-xr-x | mantools/xpostconf | 153 |
1 files changed, 153 insertions, 0 deletions
diff --git a/mantools/xpostconf b/mantools/xpostconf new file mode 100755 index 0000000..6721e0a --- /dev/null +++ b/mantools/xpostconf @@ -0,0 +1,153 @@ +#!/usr/bin/perl + +use Getopt::Std; + +# xpostconf - extract parameter info from postconf prototype file + +# Usage: xpostconf [options] protofile [parameter...] +# +# -b: Brief output: print only the first sentence of each definition +# +# -c: print the classes named on the command line (default: all). +# +# -h: print help message. +# +# -p: print the parameters named on the command line (default: all). +# +# -s specfile: process the entries listed in the named file: ordinary +# text is copied as is, +# %CLASS class-name mode +# %PARAM param-name mode +# are replaced by the respective information. Mode is b (brief) +# f (full) or i (ignore). +# +# If no -s is specified, extracts the named parameter text (all +# parameters by default). + +$opt_b = undef; +$opt_c = undef; +$opt_p = undef; +$opt_s = undef; +$opt_v = undef; +getopts("bcps:v"); + +die "Usage: $0 [-bcpv] [-s specfile] protofile [parameter...]\n" + unless $protofile = shift(@ARGV); + +# Save one definition. + +sub save_text { + if ($category eq "PARAM") { + $param_text{$name} = $text; + if ($opt_v) { + printf "saving entry %s %.20s..\n", $name, $text; + } + } elsif ($category eq "CLASS") { + $class_text{$name} = $text; + if ($opt_v) { + printf "saving class %s %.20s..\n", $name, $text; + } + } else { + die "Unknown category: $category. Need PARAM or CLASS.\n"; + } +} + +# Read the whole file even if we want to print only one parameter. + +open(POSTCONF, $protofile) || die " cannot open $protofile: $!\n"; + +while(<POSTCONF>) { + + next if /^#/ && $text eq ""; + next unless ($name || /\S/); + + if (/^%(PARAM|CLASS)/) { + + # Save the accumulated text. + + if ($name && $text) { + save_text(); + } + + # Reset the parameter name and accumulated text. + + $name = $text = ""; + $category = $1; + + # Accumulate the parameter name and default value. + + do { + $text .= $_; + } while(($_ = <POSTCONF>) && /\S/); + ($junk, $name, $junk) = split(/\s+/, $text, 3); + + } + + # Accumulate the text in the class or parameter definition. + + $text .= $_; + +} + +# Save the last definition. + +if ($name && $text) { + save_text(); +} + +# If working from a spec file, emit output in the specified order. + +if ($opt_s) { + open(SPEC, "$opt_s") || die "cannot open $opt_s: $!\m"; + while(<SPEC>) { + if (/^%/) { + ($category, $name, $mode) = split(/\s+/, substr($_, 1)); + if ($category eq "CLASS") { + die "Unknown class name: $name.\n" + unless $text = $class_text{$name}; + } elsif ($category eq "PARAM") { + die "Unknown parameter name: $name.\n" + unless $text = $param_text{$name}; + } else { + die "Unknown category: $category. Need CLASS or PARAM\n"; + } + if ($mode eq "i") { + next; + } elsif ($mode eq "b") { + $text =~ s/\.\s.*/.\n\n/s; + } elsif ($mode ne "p") { + die "Unknown mode: $mode. Need b or p or i,\n"; + } + print $text, "\n"; + } else { + print; + } + } + exit; +} + +# Print all the parameters. + +if ($opt_c) { + $what = \%class_text; +} else { + $what = \%param_text; +} + +if ($#ARGV < 0) { + for $name (sort keys %{$what}) { + $text = ${$what}{$name}; + $text =~ s/\.\s.*/.\n\n/s if ($opt_b); + print $text, "\n"; + } +} + +# Print parameters in the specified order. + +else { + for $name (@ARGV) { + $text = ${$what}{$name}; + $text =~ s/\.\s.*/.\n\n/s if ($opt_b); + print $text; + } +} |