From c851e72c57adff8dfc8066a8f9d5fd4e8fa09261 Mon Sep 17 00:00:00 2001
From: Matthew Saunders Brown <msb@stackaas.com>
Date: Mon, 15 Feb 2021 09:51:04 -0800
Subject: [PATCH] initial version of bin/vmail-mboxes-del.sh

---
 bin/vmail-mboxes-del.sh | 100 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 100 insertions(+)
 create mode 100644 bin/vmail-mboxes-del.sh

diff --git a/bin/vmail-mboxes-del.sh b/bin/vmail-mboxes-del.sh
new file mode 100644
index 0000000..7a7ecf1
--- /dev/null
+++ b/bin/vmail-mboxes-del.sh
@@ -0,0 +1,100 @@
+#!/bin/bash
+#
+# vmail-stack
+# https://git.stack-source.com/msb/vmail-stack
+# MIT License Copyright (c) 2021 Matthew Saunders Brown
+
+# load config
+source /usr/local/etc/vmail.conf
+
+help()
+{
+  thisfilename=$(basename -- "$0")
+  echo "$thisfilename"
+  echo "Delete email account."
+  echo ""
+  echo "usage: $thisfilename fullemail"
+  echo ""
+  echo "  -f          Force - don't prompt for confirmation."
+  echo "  -h          Print this help."
+  echo ""
+  echo "              Enter account to delete in full email address format."
+  exit
+}
+
+# check for and set email address info
+if [ -n "$1" ]; then
+  if [ $1 == "-h" ]; then
+    help
+  elif [[ ! $1 =~ ^- ]] ; then
+    email=$1
+    shift
+    if [[ $email =~ "@" ]] ; then
+      local_part=${email%@*}
+      domain=${email##*@}
+      if ! vmail::validate_domain $domain; then
+        echo "ERROR: $domain is not a valid domain name."
+        exit 1
+      fi
+    else
+      echo "ERROR: $email is not a valid email address."
+      help
+    fi
+  fi
+fi
+
+# set any options that were passed
+while getopts "fh" opt; do
+  case "${opt}" in
+    f )
+      force=true
+      ;;
+    h )
+      help
+      exit;;
+    \? )
+      echo "Invalid option: $OPTARG" 1>&2
+      exit;;
+  esac
+done
+
+# build query
+dbcmd="mysql --defaults-extra-file=$MYSQL_CONNECTION_INFO_FILE"
+dbcmdopts="-s -r -N -e"
+
+# get email address id which also works to confirm address exists
+dbquery="SELECT vm_mboxes.id FROM vm_mboxes, vm_domains WHERE vm_mboxes.mbox='$local_part' AND vm_mboxes.domain_id=vm_domains.id AND vm_domains.domain='$domain'"
+mboxes_id=`$dbcmd $dbcmdopts "$dbquery"`
+
+if [ -z "$mboxes_id" ]; then
+  echo "ERROR: Email address $email does not exist."
+  exit 1
+elif [ "$mboxes_id" -gt '0' ]; then
+  if [ -n "$force" ] || vmail::yesno "Delete $email now?"; then
+    dbquery="DELETE FROM vm_mboxes WHERE vm_mboxes.id='$mboxes_id'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    dbquery="DELETE FROM sa_userpref WHERE username='$email'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    dbquery="DELETE FROM vm_aliases WHERE mbox_id='$mboxes_id'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    dbquery="DELETE FROM vm_autoresponders WHERE mbox_id='$mboxes_id'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    dbquery="DELETE FROM vm_filters WHERE mbox_id='$mboxes_id'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    dbquery="DELETE FROM vm_forwards WHERE mbox_id='$mboxes_id'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    dbquery="DELETE FROM vm_greylisting WHERE recipient='$email'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    dbquery="DELETE FROM vm_greylisting WHERE recipient LIKE '$local_part+%@$domain'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    # this should be sufficient for rc due to ON DELETE CASCADE foreign key references
+    dbquery="DELETE FROM rc_users WHERE username='$email'"
+    echo $dbcmd $dbcmdopts "\"$dbquery\""
+    echo "rm -r $VMAIL_DIR/$domain/$local_part"
+    echo "SUCCESS: $email removed from system."
+    exit 0
+  fi
+else
+  echo "ERROR: System error querying vmail database"
+  exit 1
+fi