+# if fqdn is name.dom3.dom2.dom1.hr, check if this host is MX for
+# either dom3.dom2.dom1.hr, dom2.dom1.hr or dom1.hr and dump highest level
+# domain on stdout
+cp_get_mx_domain() {
+ [ "$CP_SCRIPT_DEBUG" ] && set -vx
+
+ local domains d host
+
+ host=$(hostname -f)
+ RET="$host"
+ if ! echo "$host" | grep -q '\.'; then
+ return
+ fi
+ if [ ! -x /usr/bin/host ]; then
+ # no host command
+ return
+ fi
+ domains=$(/bin/hostname -f | awk -F. '
+ {
+ for (i=2; i<NF; i++) {
+ for (j=i; j<NF; j++) {
+ printf "%s", $(j)"."
+ };
+ print $NF
+ }
+ }' )
+ for d in $domains
+ do
+ mxes=$(/usr/bin/host -t mx $d)
+ # handle output of both /usr/bin/host providers
+ mxes=$(echo "$mxes"|\
+ awk '/mail is handled by/ || /MX/ {print $NF}'|sed 's/\.$//')
+ if echo "$mxes" |egrep -q "^$host$"; then
+ RET="$d"
+ fi
+ done
+
+ [ -z "$CP_ECHO_RETURN" ] || echo "$RET"
+}
+
+_cp_customize() {
+ [ "$CP_SCRIPT_DEBUG" ] && set -vx
+ # < input functions > output_functions
+ # new-prefix list-of-functions
+ perl -e '
+ $prefix = shift; %keep = (); $output = "";
+ $keep{$_} = 1 for @ARGV;
+ # add dependent functions
+ %deps = (
+ get_ifaddr => [ "get_ifdefault" ],
+ get_netaddr => [ "get_ifdefault", "get_ifaddr", "get_ifmask" ],
+ check_and_backup => [ "backup_conffile" ],
+ check_and_sed => [ "mv" ],
+ get_ldap_realm => [ "get_ldap_suffix" ],
+ );
+ foreach my $f (keys(%keep)) {
+ if (exists($deps{$f})) {
+ $keep{$_} = 1 for (@{$deps{$f}});
+ }
+ }
+ while (<STDIN>) {
+ if (/^_?cp_(\w+) *\(\) *\{/) {
+ if (! exists($keep{$1})) {
+ while (<STDIN>) { last if /^\}/; } # skip it
+ next;
+ } else {
+ $output .= "\n";
+ }
+ }
+ next if /^\s*(\#|$)/;
+ $output .= $_;
+ }
+ $output =~ s/\b(_?)cp_/$1${prefix}_/sg;
+ $prefix = uc($prefix);
+ $output =~ s/\b(_?)CP_/$1${prefix}_/sg;
+ print $output;
+ ' -- $*
+}