1#!/usr/bin/perl 2 3# Extract parameter definitions from the sample-mumble.cf files in 4# order to build the postconf raw data file from which everything 5# will be regenerated. 6 7$POSTCONF="postconf"; 8 9# Suck in the parameter definition text. Skip non-parameter blocks. 10# Strip all but the body text (i.e. strip off the non-comment line 11# that shows the default, since we will use postconf output to supply 12# the actual values). 13 14while(<>) { 15 if (/^[^#]/) { 16 if ($param_name && $saved_text) { 17 $saved_text =~ s/^(\n|#|\s)+//; 18 $saved_text =~ s/(\n|#|\s)+$//; 19 $saved_text =~ s/^# ?/\n/; 20 $saved_text =~ s/\n# ?/\n/g; 21 $definition{$param_name} = $saved_text; 22 $param_name = $saved_text = ""; 23 } 24 next; 25 } 26 if (/^#/ && $param_name) { 27 $saved_text .= $_; 28 next; 29 } 30 if (/^# The (\S+) (configuration )?parameter/) { 31 $param_name = $1; 32 $saved_text = $_; 33 } 34} 35 36# Read all the default parameter values. This also provides us with 37# a list of all the parameters that postconf knows about. 38 39open(POSTCONF, "$POSTCONF -d|") || die "cannot run $POSTCONF: !$\n"; 40while(<POSTCONF>) { 41 chop; 42 if (($name, $value) = split(/\s+=\s+/, $_, 2)) { 43 $defaults{$name} = $value; 44 } else { 45 warn "unexpected $POSTCONF output: $_\n"; 46 } 47} 48close(POSTCONF) || die "$POSTCONF failed: $!\n"; 49 50# Print all parameter definition text that we found, and warn about 51# missing definition text. 52 53for $param_name (sort keys %defaults) { 54 if (defined($definition{$param_name})) { 55 print "#DEFINE $param_name\n\n"; 56 print $definition{$param_name}; 57 print "\n\n"; 58 } else { 59 warn "No definition found for $param_name\n"; 60 } 61} 62