* Sun Nov 17 2024 <jpp@koozali.org> 1.0-2.sme

- listen only via sockets
- use both unix user and virtual users
- groups and pseudonyms implemented in virtual maps
- support smarthost with and without auth
- support global and per domain delegated mail server
- support ssl
- uses qmail - recipient delimiter in left part of email.
- all domains set as local domains in mydestination
- message_size_limit
- local and remote concurency limit

root/usr/bin/dotqmail

@@ -0,0 +1,125 @@
+#!/usr//bin/zsh -f
+# credit https://www.gentei.org/~yuuji/software/dotqmail/
+# original work of HIROSE Yuuji yuuji@example.org
+# license none
+setopt multios
+dotqm=${DOTQMAIL:-.qmail}
+DQHOME=${DQHOME:-$HOME}
+cd $DQHOME
+DEFAULTSPOOL=./Maildir/
+PATH=${PATH}:/usr/sbin:/usr/lib; export PATH
+if [ -s $DQHOME/.dotqmailexts ]; then
+  while IFS=: read ext home; do
+    home=${home/\~\//$HOME/}
+    home=${(e)home}
+    case $EXTENSION in
+      $ext|${ext}-*)
+	if [ -d $home ]; then
+	  DQHOME=`(cd $home; pwd)`; break
+	fi ;;
+    esac
+  done < $DQHOME/.dotqmailexts
+fi
+DQBASE=$DQHOME/${dotqm}-
+cd $DQHOME
+
+export EXT=${EXTENSION//+/-}
+export EXT2=${${(M)EXT%%-*}/-/}
+export EXT3=${${(M)EXT2%%-*}/-/}
+export EXT4=${${(M)EXT3%%-*}/-/}
+# $HOST manipulation is not symmetrical with $EXT
+# If $HOSTn has no dots, $HOST(n+1) has same name as $HOSTn
+export HOST=$DOMAIN
+export HOST2=${HOST%.*}
+export HOST3=${HOST2%.*}
+export HOST4=${HOST3%.*}
+
+fdq=''
+x=${(L)EXT//./:}
+dq=${DQBASE}$x
+function maildirmake() {
+  mkdir -m 700 $1 && mkdir -m 700 $1/{new,cur,tmp}
+}
+[[ -n "$DEBUG" ]] && echo PPP:dq=$dq >> $HOME/ddebug
+
+if [[ $USER == $LOCAL ]]; then
+  fdq=$DQHOME/${1:-${dotqm}}
+  [[ -s $fdq ]] || echo "$DEFAULTSPOOL" > $fdq
+elif [[ -s $dq ]]; then
+  fdq=$dq
+else
+  while [[ x"$x" != x"" ]]; do
+    x=${${(M)x##*-}%-}
+    dq=${DQBASE}$x${x:+-}default
+    if [[ -s $dq ]]; then
+      fdq=$dq; break
+    fi
+  done
+  dq=${DQBASE}$x${x:+-}default
+  if [[ -s $dq ]]; then
+    fdq=$dq
+  fi
+fi
+function maildir() {
+  [[ -d $1 ]] || maildirmake $1
+  dir=$1/new
+  host=`hostname`
+  zmodload zsh/datetime || exit 111
+  (echo -n "$RPLINE"; cat) > $dir/$EPOCHSECONDS.$$.$host
+}
+function mbox() {
+  # no locking! do not use poor mbox!
+  (echo -n $UFLINE
+   echo -n $RPLINE
+   cat
+   echo) >> $1
+}
+
+flush() {
+  [[ -n "$DEBUG" ]] && echo out=$out >> $HOME/ddebug
+  ###echo found: $fdq, default: $DEFAULT, out=$out
+  [[ -n "$DEBUG" ]] && env > $DQHOME/ENV
+  #eval "cat ${out:->/dev/null}"
+  eval "echo '$body' | sed 1,2d ${out:->/dev/null}"
+  out=""
+}
+[[ -n "$DEBUG" ]] && echo fdq=$fdq >> $HOME/ddebug
+
+if [[ -n "$fdq" && -s $fdq ]]; then
+  default=${EXT/$x/}
+  [[ x"$default" != x"" ]] && export DEFAULT=${default#-}
+  IFS= body=`cat`
+  export UFLINE="${${(@f)body}[1]}"$'\n'
+  export RPLINE="${${(@f)body}[2]}"$'\n'
+  if [[ -e ${fdq}-owner ]]; then
+    # If .qmail-ext-owner exists, use local-owner@domain. (dot-qmail(5))
+    newsender="-f ${LOCAL}-owner@$DOMAIN "
+    echo newsender=$newsender >> $HOME/ddebug
+  fi
+  cat $fdq | while read -r line; do
+    case "$line" in
+      \#*) ;;
+      \|*)
+	# A program line should executed sequentially and should be
+	# ceased further instructions when program exits at 99.
+	[ "$out" ] && flush
+	echo "$body" | eval "${line#\|}"
+	[ $? = 99 ] && exit 0
+	;;
+      # Other instructions should be processed simultaneously.
+      .*/|/*/)
+        out="$out > >(maildir $line)" ;;
+      .*|/*)
+        out="$out > >(mbox $line)" ;;
+      *)
+        out="$out > >(sendmail ${newsender}-- ${line#\&})" ;;
+    esac
+    ec=$?
+    [[ -n "$DEBUG" ]] && echo "$ec by [$line]" >> $HOME/ddebug
+  done
+  flush
+  exit 0
+else
+  # not found
+  exit 111
+fi