+}
+
+# by ico, Wed, 20 Apr 2005 21:09:54 +0200
+cp_get_ldap_realm() {
+ [ "$CP_SCRIPT_DEBUG" ] && set -vx
+
+ local echo_return
+ echo_return="$CP_ECHO_RETURN" # since we're making our own calls
+ # in our own way we need to set CP_ECHO_RETURN the way we want it
+ # but preserving initial state so it could be used afterwards
+ CP_ECHO_RETURN=""
+
+ if [ ! -f /etc/ldap/slapd.conf ]; then
+ echo "cp_get_ldap_realm: /etc/ldap/slapd.conf: No such file" >&2
+ return 2
+ fi
+
+ cp_get_ldap_suffix || true
+ RET="`echo $RET | awk -F, '{print $1}' | awk -F= '{print $2}'`"
+
+ [ -z "$RET" ] && echo "cp_get_ldap_realm: No LDAP REALM in /etc/ldap/slapd.conf" >&2
+ [ -z "$echo_return" ] || echo $RET
+ CP_ECHO_RETURN="$echo_return"
+}
+
+_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;
+ ' -- $*