Vyššie na [Platon] / scripts / shell / sysadmin

External aliases support was implemented.

#!/bin/sh

#
# qmail-manage.sh - handles qmail's mail users and mailboxes
#
# Developed by Ondrej Jombik <nepto@php.net>
# Copyright (c) 2003 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 20/05/2003 - created
# 28/05/2003 - support for startup()/finish() functions
#            - virtualdomains and rcpthosts are handled
# 16/06/2003 - option --help implemented
#            - extended command line parsing with --alias option
#            - local aliases implemented
# 17/06/2003 - external aliases implemented
#

# $Platon: scripts/shell/sysadmin/qmail-manage.sh,v 1.5 2003/06/19 09:11:48 nepto Exp $

#
# SYSTEM COMMANDS CONFIGURATION
#

ECHO="/bin/echo";
CAT="/bin/cat";
MV="/bin/mv";
GREP="/usr/bin/grep";
SED="/usr/bin/sed";
HTPASSWD="/usr/local/sbin/htpasswd";
MAILDIRMAKE="/var/qmail/bin/maildirmake";
PRG="` echo \"$0\" | sed 's/^.*\/\([^\/]*\)$/\1/g' `";

#
# FILES, PATHS AND DIRECTORIES
#

file_temp="/tmp/$PRG";
file_default_dotqmail="/var/qmail/users/qmail";
file_virtualdomains="/var/qmail/control/virtualdomains";
file_rcpthosts="/var/qmail/control/rcpthosts";
DIR_DOMAINS="/var/qmail/domains";
DIR_PASSWORDS="/var/qmail/domains.pw";
DIR_MAILBOX="/usr/mailbox";

#
# FUNCTIONS
#

startup() # modify this function to fit your needs
{
    # nothing
}

finish() # modify this function to fit your needs
{
    /var/qmail/users/passwordrehash;
    /var/qmail/users/domainsrehash;
}

#
# ***** DO NOT ALTER ANYTHING BELOW THIS LINE *****
#

usage()
{
    $ECHO "$PRG [ --help ] [ --alias <aliased> ] <e-mail-address> <password>";
    exit 1;
}

error()
{
    $ECHO "$PRG: ERROR: $1";
    exit 2;
}

warning()
{
    $ECHO "$PRG: WARNING: $1";
}

notice()
{
    $ECHO "$PRG: NOTICE: $1";
}

# check param count
if [ $# -lt 1 ]; then
    usage;
fi

# command line parsing
for option; do
    # If the previous option needs an argument, assign it.
    if test -n "$prev"; then
        eval "$prev=\$option";
        prev=;
        continue;
    fi

    case "$option" in
        -*=*) optarg=`echo "$option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
        *) optarg= ;;
    esac

    case "$option" in

        --alias | --alia | --ali | --al | --a | \
         -alias |  -alia |  -ali |  -al |  -a)
            prev='alias' ;;

        --alias=* | --alia=* | --ali=* | --al=* | --a=* | \
         -alias=* |  -alia=* |  -ali=* |  -al=* |  -a=*)
            alias="$optarg" ;;

        --help | --hel | --he | --h | -help | -hel | -he | -h)
            usage; ;;

        -*)
            error "invalid option '$option'; use --help to show usage" 1>&2;
            exit 1; ;;

        *)
            # get e-mail and password
            if [ -z "$email" ]; then
                email="$option";
            else
                if [ -z "$password" ]; then
                    password="$option";
                else
                    error "too many parameter on command line";
                fi
            fi
        ;;
    esac
done

# alias flag
alias_f='';
if [ "$alias" ]; then
    alias_f='1';
fi

# check if e-mail address seems to be valid
if [ "` $ECHO \"$email\" | $GREP -E '^[^@     ]+@[^@     ]+\.[^@     ]+$' `" ]; then
    # do nothing
else
    error "bad e-mail address";
fi

# check if alias e-mail address seems to be valid
if [ $alias_f ]; then
    if [ "` $ECHO \"$alias\" | $GREP -E '^[^@     ]+@[^@     ]+\.[^@     ]+$' `" ]; then
        # do nothing
    else
        error "bad alias e-mail address";
    fi
fi

# call startup() function
startup;

# extract username, domain, domain2, password2 and mailbox
# - domain2 has last point substitued for dash
# - password is encrypted password
username="`  $ECHO \"$email\" | $SED 's/@.*$//g' `";
domain="`    $ECHO \"$email\" | $SED 's/^.*@//g' `";
domain2="`   $ECHO \"$domain\" | $SED 's/^\(.*\)\.\([^\.]*\)$/\1-\2/g' `";
password2="` $HTPASSWD -nb DUMMY \"$password\" | sed 's/DUMMY://g' `";
mailbox="$DIR_MAILBOX/$domain2/$email";
qmail_key="=$domain2-$username";
alias_username="` $ECHO \"$alias\" | $SED 's/@.*$//g' `";
alias_domain="`   $ECHO \"$alias\" | $SED 's/^.*@//g' `";
alias_qmail_key="=$domain2-$alias_username";

# sanity check
if [ "$domain" = "$domain2" ]; then
    error 'something went wrong, $domain is equal to $domain2';
fi

# alias sanity check and type extraction
if [ $alias_f ]; then
    if [ "$alias_username" = "$username" ]; then
        error 'alias username is equal to e-mail username';
    fi
    if [ "$alias_domain" != "$domain" ]; then
        alias_f="E"; # external alias
    else
        alias_f="L"; # local alias
    fi
fi

# virtualdomains and rcpthosts file lines
#pokus.sk:pokus-sk
virtualdomains_file_line="$domain:$domain2";
#pokus.sk
rcpthosts_file_line="$domain";

# check if domain is already in virtualdomains file
if [ "` grep -E \"^$virtualdomains_file_line\$\" \"$file_virtualdomains\" `" ]; then
    notice "domain already written in virtualdomains";
else
    notice "domain not written in virtualdomains, appended";
    echo "$virtualdomains_file_line" >> $file_virtualdomains;
fi

# check if domain is already in rcpthosts file
if [ "` grep -E \"^$rcpthosts_file_line\$\" \"$file_rcpthosts\" `" ]; then
    notice "domain already written in rcpthosts";
else
    notice "domain not written in rcpthosts, appended";
    echo "$rcpthosts_file_line" >> $file_rcpthosts;
fi

# check if domain file already exists
if [ -f "$DIR_DOMAINS/$domain" ]; then
    notice "domain file already exists for '$domain'";
    $CAT "$DIR_DOMAINS/$domain" | $GREP -v "^$qmail_key:" > $file_temp;
    $MV $file_temp "$DIR_DOMAINS/$domain";
else
    notice "domain file does not exist for '$domain', created";
    >"$DIR_DOMAINS/$domain";
fi

# check if password file already exists
if [ -f "$DIR_PASSWORDS/$domain" ]; then
    notice "password file already exists for '$domain'";
    $CAT "$DIR_PASSWORDS/$domain" | $GREP -v "^$email:" > $file_temp;
    $MV $file_temp "$DIR_PASSWORDS/$domain";
else
    notice "password file does not exist for '$domain', created";
    >"$DIR_PASSWORDS/$domain";
fi

# if we are making an local alias, get appropriate information
if [ "$alias_f" = "L" ]; then
    notice "extracting real mailbox path for local alias";
    mailbox="` $GREP "^$alias_qmail_key:" "$DIR_DOMAINS/$domain" \
        | sed 's/^[^:]*:[^:]*:[^:]*:[^:]*:\(.[^:]*\):.*$/\1/g' `";
    if [ "X$mailbox" = "X" ]; then
        warning "aliased mailbox not found, however alias was created";
    fi
    
fi

# domain and password file lines
#=pokus-sk-ondrej.jombik:mailbox:888:888:/usr/mailbox/pokus-sk/ondrej.jombik@pokus.sk:::
domain_file_line="$qmail_key:mailbox:888:888:$mailbox:::";
#ondrej.jombik@pokus.sk:9tWbzYa9hWOGY:mailbox:/usr/mailbox/pokus-sk/ondrej.jombik@pokus.sk
password_file_line="$email:$password2:mailbox:$mailbox";

echo "$domain_file_line"   >> "$DIR_DOMAINS/$domain";
if [ ! $alias_f ]; then
    echo "$password_file_line" >> "$DIR_PASSWORDS/$domain";
fi

# nastavit domenovy subor a passwordovy subor vytvorit adresar
# /usr/mailbox/domena/usermailbox v nom vytvorit Maildir
# (/var/qmail/bin/maildirmake) a do toho isteho adresara nakopirovat
# defaultny .qmail subor ktory bude mat niekde zadefinovanu cestu..

if [ "$alias_f" = "L" ]; then
    # do nothing
else
    if [ ! -d "$mailbox" ]; then
        # if this fails we have a really big problem...
        mkdir -p "$mailbox" || error "mailbox '$mailbox' creation failure";
        cd "$mailbox"                                        \
        && $MAILDIRMAKE ./Maildir/                        \
        && cd -                                            \
        && notice "mailbox '$mailbox' was created"        \
        && cp -f "$file_default_dotqmail" "$mailbox/.qmail" 2>/dev/null
    fi;
    if [ "$alias_f" = "E" ]; then
        echo "$alias" > "$mailbox/.qmail";
    fi
fi

# call finish() function
finish;

if :; then
else # just comment this line to enable debug information
    # debug print
    echo "email:     $email";
    echo "alias:     $alias";
    echo "password:  $password";
    echo "password2: $password2";
    echo "username:  $username";
    echo "domain:    $domain";
    echo "domain2:   $domain2";

    echo -e "domain_file_line:\n$domain_file_line";
    echo -e "password_file_line:\n$password_file_line";
fi