#! /bin/sh

umask 022

# postmulti(1) contract:
#
# Arguments:
#  postmulti-script -e <edit_command>
#
# Environment:
#
# All actions:
#
#  MAIL_CONFIG   - config_directory of primary instance
#  command_directory  - From primary instance
#  daemon_directory  - From primary instance
#  meta_directory  - From primary instance
#  shlib_directory  - From primary instance
#  config_directory  - config_directory of target instance
#  queue_directory  - queue_directory of target instance
#  data_directory  - data_directory of target instance
#
# Create, destroy, import and deport:
#
#  multi_instance_directories - New value for primary instance
#
# Create, import and assign (unset == nochange, "-" == clear):
#
#  multi_instance_group  - New value for target instance
#  multi_instance_name  - New value for target instance

: ${MAIL_CONFIG:?"do not invoke this command directly"}
: ${command_directory:?"do not invoke this command directly"}
: ${daemon_directory:?"do not invoke this command directly"}
: ${meta_directory:?"do not invoke this command directly"}
: ${shlib_directory:?"do not invoke this command directly"}

USAGE="$0 -e create|destroy|import|deport|enable|disable|assign|init"
usage() { echo "$0: Error: Usage: $USAGE" >&2; exit 1; }

TAG="$MAIL_LOGTAG/postmulti-script"
fatal() { postlog -p fatal -t "$TAG" "$1"; exit 1; }

# args: add|del $dir
#
update_cfdirs() {
    op=$1
    dir=$2

    alt=`postconf -h alternate_config_directories` || return 1

    shift $# # Needed on SunOS where bare "set --" is NOP!
    IFS="$IFS,"; set -- $alt; IFS="$BACKUP_IFS"
    keep=
    found=
    # Portability: SunOS "sh" needs 'in "$@"' for one-line for-loop.
    for d in "$@"; do [ "$d" = "$dir" ] && found=1 || keep="$keep $d"; done

    set -- "multi_instance_directories = $multi_instance_directories"

    case $op in
    add) test -n "$found" ||
  set -- "$@" "alternate_config_directories =$keep $dir";;
    del) test -n "$found" &&
  set -- "$@" "alternate_config_directories =$keep";;
      *) return 1;;  # XXX: Internal error
    esac
    postconf -e "$@" || return 1
}

assign_names() {
    # Set the instance name and group
    #
    test -n "$multi_instance_name" && {
 test "$multi_instance_name" = "-" && multi_instance_name=
 set -- "$@" "multi_instance_name = $multi_instance_name"
    }
    test -n "$multi_instance_group" && {
 test "$multi_instance_group" = "-" && multi_instance_group=
 set -- "$@" "multi_instance_group = $multi_instance_group"
    }
    test $# -eq 0 || postconf -c "$config_directory" -e "$@" || return 1
}

# Process command-line options and parameter settings. Work around
# brain damaged shells. "IFS=value command" should not make the
# IFS=value setting permanent. But some broken standard allows it.

BACKUP_IFS="$IFS"
action=

while getopts ":e:" opt
do
    case $opt in
    e) action="$OPTARG";;
    *) usage;;
    esac
done
shift `expr $OPTIND - 1`

# Check for valid action and required instance name
case "$action" in
 create|import|destroy|deport|enable|disable|assign|init) ;;
             *) usage;;
esac
test $# -eq 0 || usage

case $action in
init)
    postconf -e \
     'multi_instance_wrapper = ${command_directory}/postmulti -p --' \
     'multi_instance_enable = yes'
    exit $? ;;
esac

# Backport note: "-x" requires 2.10 or later, and is not essential here.
#
wrapper=`postconf -hx multi_instance_wrapper` || exit 1
enable=`postconf -hx multi_instance_enable` || exit 1

test -n "$wrapper" ||
    fatal "multi_instance_wrapper is empty, run 'postmulti -e init' first."

test "$enable" = "yes" ||
    fatal "multi_instance_enable!=yes, run 'postmulti -e init' first."

: ${config_directory:?"Invalid empty target instance config_directory"}

case $action in
create|import)

    # Atomically install stock main.cf/master.cf files. We install the
    # master.cf file last. Once it is present the instance is complete.
    #
    test -f $config_directory/main.cf -a \
  -f $config_directory/master.cf || {

 test "$action" = "create" || {
     test -f $config_directory/main.cf ||
  fatal "'$config_directory' lacks a main.cf file"
     test -f $config_directory/master.cf ||
  fatal "'$config_directory' lacks a master.cf file"
 }

 test -f $meta_directory/main.cf.proto ||
     fatal "Missing main.cf prototype: $meta_directory/main.cf.proto"
 test -f $meta_directory/master.cf.proto ||
     fatal "Missing master.cf prototype: $meta_directory/master.cf.proto"

 # Create instance-specific directories
 #
 test -d $config_directory ||
     { (umask 022; mkdir -p $config_directory) || exit 1; }
 test -d $queue_directory ||
     { (umask 022; mkdir -p $queue_directory) || exit 1; }
 test -d $data_directory ||
     { (umask 077; mkdir -p $data_directory) || exit 1; }

 tmpdir=$config_directory/.tmp
 (umask 077; mkdir -p $tmpdir) || exit 1
 cp -p $meta_directory/main.cf.proto $tmpdir/main.cf || exit 1

 # Shared install parameters are cloned from user-specified values in
 # the default instance, but only if explicitly set there. Otherwise,
 # they are commented out in the new main.cf file.
 #
 SHARED_PARAMETERS="
     command_directory
     daemon_directory
     meta_directory
     mail_owner
     setgid_group
     sendmail_path
     mailq_path
     newaliases_path
     html_directory
     manpage_directory
     sample_directory
     readme_directory
     shlib_directory
 "

 shift $# # Needed on SunOS where bare "set --" is NOP!
 comment_out=
 for p in $SHARED_PARAMETERS; do
     val=`postconf -nh $p` || exit 1
     test -n "$val" && { set -- "$@" "$p = $val"; continue; }
     comment_out="$comment_out $p"
 done

 # First comment-out any parameters that take default values
 test -n "$comment_out" && {
     postconf -c $tmpdir -# $comment_out || exit 1
 }

 # Now add instance-specific and non-default values.
 # By default, disable inet services and local submission
 # in new instances
 #
 postconf -c $tmpdir -e \
     "queue_directory = $queue_directory" \
     "data_directory = $data_directory" \
     "authorized_submit_users =" \
     "master_service_disable = inet" \
     "$@" || exit 1


 cp -p $meta_directory/master.cf.proto $tmpdir/master.cf || exit 1
 mv $tmpdir/main.cf $config_directory/main.cf || exit 1
 mv $tmpdir/master.cf $config_directory/master.cf || exit 1
 rmdir $tmpdir 2>/dev/null
    }

    # Set instance name and group
    #
    assign_names || exit 1

    # Update multi_instance_directories
    # and drop from alternate_config_directories
    #
    # XXX: Must happen before set-permissions below, otherwise instance
    # is treated as an independent instance by post-install via postfix(1).
    #
    update_cfdirs del $config_directory || exit 1

    # Update permissions of private files. Verifies existence of
    # queue_directory and data_directory, ...
    #
    # XXX: Must happen after instance list updates above, otherwise instance
    # is treated as an independent instance by post-install via postfix(1).
    #
    postfix -c $config_directory set-permissions || exit 1
    ;;

deport)
    # Deporting an already deleted instance?
    #
    [ -f "$config_directory/main.cf" ] || {
 update_cfdirs del $config_directory
 exit $?
    }

    postfix -c "$config_directory" status >/dev/null 2>&1 &&
     fatal "Instance '$config_directory' is not stopped"

    # Update multi_instance_directories
    # and add to alternate_config_directories
    #
    update_cfdirs add $config_directory || exit 1
    ;;

destroy)

    # "postmulti -e destroy" will remove an entire instance only when
    # invoked immediately after "postmulti -e create" (i.e. before
    # other files are added to the instance). We delete only known
    # safe names without "/".
    #
    QUEUE_SUBDIRS="active bounce corrupt defer deferred flush hold \
    incoming maildrop pid private public saved trace"
    #DEBUG=echo
    WARN="postlog -p warn -t $TAG"

    # Locate the target instance
    #
    [ -f "$config_directory/main.cf" ] ||
 fatal "$config_directory/main.cf file not found"

    postfix -c "$config_directory" status >/dev/null 2>&1 &&
     fatal "Instance '$config_directory' is not stopped"

    # Update multi_instance directories
    # and also (just in case) drop from alternate_config_directories
    #
    $DEBUG update_cfdirs del "$config_directory" || exit 1

    # XXX: Internal "postfix /some/cmd" interface.
    #
    postfix -c "$config_directory" /bin/sh -c "
    for q in $QUEUE_SUBDIRS
    do
 $DEBUG rmdir -- \$q || 
     $WARN \`pwd\`/\$q: please verify contents and remove by hand
    done
    "

    postfix -c "$config_directory" /bin/sh -c "
    for dir in \$data_directory \$queue_directory
    do
 $DEBUG rmdir -- \$dir || 
     $WARN \$dir: please verify contents and remove by hand
    done
    "

    # In the configuration directory remove just the main.cf and master.cf
    # files.
    $DEBUG rm -f -- "$config_directory/master.cf" "$config_directory/main.cf" 2>/dev/null
    $DEBUG rmdir -- "$config_directory" || 
 $WARN $config_directory: please verify contents and remove by hand
    ;;

enable)
    postconf -c "$config_directory" -e \
     "multi_instance_enable = yes" || exit 1;;
disable)
    postconf -c "$config_directory" -e \
     "multi_instance_enable = no" || exit 1;;
assign)
    assign_names || exit 1;;
esac

exit 0