# Enable VT100 Emulation
TERM=vt100; export TERM	# Solaris hack to obtain nice dialogs
# Sets path to dialog
DPATH=/opt/opensun/bin
# Set dbmail commands
DBADD=/usr/sbin/dbmail-adduser
DBMAN=/usr/sbin/dbmail-maintenance
# Set Mysql Parameters
MYSQL=/opt/mysql/bin/mysql
DMYSQL=/opt/mysql/bin/mysqldump
MYSQLHOST=localhost
MYSQLUSER=			# A MySql account with access to dbmail db
MYSQLPASSWD=			# MySql account password
# Default parameters
MAILQUOTE=10M			# Default quote for new mail accounts
PMASTERPASS="hello"		# Default password for postmaster account
BAKFILE=/var/tmp/dbmail.bak	# Default backup file

# Reads domains from mysql:dbmail.transport and adds a counter
domlist() {

listdom=`$MYSQL -h $MYSQLHOST -u $MYSQLUSER -p$MYSQLPASSWD -s -e "SELECT domain from dbmail.transport ORDER BY domain"\
 | grep -v domain | grep -v localhost`

domcont=0
for domain in $listdom
do
	domcont=`expr $domcont + 1`
	echo "$domcont $domain"
done	
}

# Add new domain to mysql:dbmail.transport
# Add postmaster to domain, because listdomuser() requiere at least one user
# to work properly.
adddomain() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Add Domain " --no-shadow \
--inputbox "\nWrite down the new domain.\n\n" 15 50 2> /var/tmp/domain.$$

sel=$?
newdomain=`cat /var/tmp/domain.$$`
rm /var/tmp/domain.$$

case $sel in
0)
	$MYSQL -h $MYSQLHOST -u $MYSQLUSER -p$MYSQLPASSWD -s -e "INSERT INTO dbmail.transport VALUES ('$newdomain','dbmail:')"
	$DBADD a postmaster@$newdomain {crypt:}$PMASTERPASS 0 0 postmaster@$newdomain 2> /dev/null
	domtasks
	;;
1 | 255)
	domtasks
	;;
esac
}

# Delete domain in /etc/postfix/transport
deldomain() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Delete Domain " --no-shadow \
--yesno "\nYou really want to delete domain $sdomain ?\n\n" 8 50

sel=$?
case $sel in
0)	$MYSQL -h $MYSQLHOST -u $MYSQLUSER -p$MYSQLPASSWD -s -e "DELETE FROM dbmail.transport WHERE domain='$sdomain'"
	domtasks
	;;
1 | 255)
	usertasks $sdomain
	;;
esac
}

# Generate domain task menu
domtasks() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Domain Tasks " --no-shadow \
--extra-button --extra-label "Add Domain" \
--menu "\nUp/Down selects domain.\n\n" 20 50 11 \
`domlist` 2> /var/tmp/menuitem.$$

sel=$?
menuitem=`cat /var/tmp/menuitem.$$`
rm /var/tmp/menuitem.$$

case $sel in
0)
	sdomain=`domlist | grep -w $menuitem | awk '{print $2}'`
	usertasks $sdomain
	;;
3)
	adddomain
	;;
1 | 255)
	mainmenu
	;;

esac
}

# --- Account Management ---

# Generates user list of selected domain
listdomuser() {
listuser=`$MYSQL -h $MYSQLHOST -u $MYSQLUSER -p$MYSQLPASSWD-s -e "SELECT userid from dbmail.users where userid like '%@$1'" | grep -v userid | awk -F@ '{print $1}'`

usercont=0
for user in $listuser
do
	usercont=`expr $usercont + 1`
	echo "$usercont $user"
done
}

# Starts new user procedure
newlogin() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Add new account to $1 " --no-shadow \
--inputbox "\nWrite down the new account login name.\n\n" 20 50 2> /var/tmp/username.$$

opt=$?
new_username=`cat /var/tmp/username.$$`
rm /var/tmp/username.$$

case $opt in
0)	newpassword $new_username
	;;
1 | 255)
	usertasks $1
	;;
esac
}

# New user password
newpassword() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Choose password for $1 " --no-shadow \
--cancel-label "Back" \
--inputbox "\nWrite down account password.\n\n" 20 50 2> /var/tmp/password.$$

opt=$?
new_password=`cat /var/tmp/password.$$`
rm /var/tmp/password.$$

case $opt in
0)	newquote $new_username
	;;
1 | 255)
	newlogin $sdomain
	;;
esac
}

# New user mail quote
newquote() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Define mail quote for $1 " --no-shadow \
--cancel-label "Back" \
--inputbox "\nWrite account mail quote. Quote is declared in bytes. Suffix with letter M to declare quote in Megabytes. Write 0 for no quote.\n\n" \
20 50 $MAILQUOTE 2> /var/tmp/quote.$$

opt=$?
new_quote=`cat /var/tmp/quote.$$`
rm /var/tmp/quote.$$

case $opt in
0)	addaccount $new_username $new_password $new_quote
	;;
1 | 255)
	newpassword $sdomain
	;;
esac
}

# Creates account
addaccount() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title "New account confirmation" --no-shadow \
--yesno "\nCreate the account $1@$sdomain with a $3 mail quote?\n\n" 15 50

opt=$?
case $opt in
0)	$DBADD a $1@$sdomain {crypt:}$2 0 $3 $1@$sdomain > /var/tmp/addresult.$$
	$DPATH/dialog --colors \
	--backtitle "\ZbDBMAIL Configuration Interface" \
	--no-shadow \
	--msgbox "`cat /var/tmp/addresult.$$`" 15 70
	rm /var/tmp/addresult.$$
	usertasks $sdomain
	;;
1 | 255)
	newquote $1
	;;
esac
}

# Deletes account
delaccount() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Delete account confirmation " --no-shadow \
--yesno "\nDelete the account $1@$2?\n\n" 15 50

opt=$?
case $opt in
0)	$DBADD d $saccount@$sdomain > /var/tmp/addresult.$$
	$DPATH/dialog --colors \
	--backtitle "\ZbDBMAIL Configuration Interface" \
	--no-shadow \
	--msgbox "`cat /var/tmp/addresult.$$`" 15 70
	rm /var/tmp/addresult.$$
	usertasks $sdomain
	;;
1 | 255)
	accmanage $saccount
	;;
esac
}

# Modify account general fuction
modaccount() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Change $1 for $2 " --no-shadow \
--inputbox "\nSet new value por $1.\n\n" \
20 50 2> /var/tmp/modpara.$$

opt=$?
new_para=`cat /var/tmp/modpara.$$`
rm /var/tmp/modpara.$$

case $opt in
0)	$DBADD c $2 $3 $new_para > /var/tmp/addresult.$$
	$DPATH/dialog --colors \
	--backtitle "\ZbDBMAIL Configuration Interface" \
	--no-shadow \
	--msgbox "`cat /var/tmp/addresult.$$`" 15 70
	rm /var/tmp/addresult.$$
	accmanage $saccount
	;;
1 | 255)
	accmanage $saccount
	;;
esac
}

# Account Management
accmanage() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Manage $1 account" --no-shadow \
--extra-button --extra-label "Delete Account" \
--menu "\nUp/Down to select a task.\n\n" 20 67 11 \
Add	"Add alias" \
Password	"Set account password" \
Quote	"Change mail quote" \
Remove	"Remove alias" \
Rename	"Rename account" \
Show	"Display current settings" \
2> /var/tmp/menuitem.$$

opt=$?
menuitem=`cat /var/tmp/menuitem.$$`
rm /var/tmp/menuitem.$$

case $opt in
0)	
	case $menuitem in
	Add)	modaccount alias $saccount@$sdomain +a
		;;
	Password)
		modaccount password $saccount@$sdomain +p
		;;
	Quote)	modaccount quote $saccount@$sdomain -q
		;;
	Remove)	modaccount alias $saccount@$sdomain -a
		;;
	Rename)	modaccount rename $saccount$sdomain s
		;;
	Show)	$DBADD s $saccount@$sdomain > /var/tmp/addresult.$$
		$DPATH/dialog --colors \
		--backtitle "\ZbDBMAIL Configuration Interface" \
		--no-shadow \
		--msgbox "`cat /var/tmp/addresult.$$`" 15 70
		rm /var/tmp/addresult.$$
		accmanage $saccount
		;;
	esac
	;;
3)	delaccount $saccount $sdomain
	;;
1 | 255)
	usertasks $sdomain
	;;
esac
}

# Generates user tasks menu
usertasks() {

$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Manage $1 domain" --no-shadow \
--extra-button --extra-label "Add User" \
--help-button --help-label "Delete Domain" \
--menu "\nUp/Down to select a user.\n\n" 20 67 11 \
`listdomuser $1` \
2> /var/tmp/menuitem.$$

opt=$?
menuitem=`cat /var/tmp/menuitem.$$`
rm /var/tmp/menuitem.$$

case $opt in
0)	saccount=`listdomuser $sdomain | grep -w $menuitem | awk '{print $2}'`
	accmanage $saccount
	;;
2)	deldomain
	;;
3)	newlogin $sdomain
	;;
1 | 255)
	domtasks
	;;
esac
}

# Maintenace general function
maintenance() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Maintenace Task Confirmation " --no-shadow \
--yesno "\nExecute $1 maintenace task?\n\n" 15 50

sel=$?
case $sel in
0)	# You can insert here a custom DBMail stop procedure
	$DBMAN $2 > /var/tmp/addresult.$$
	$DPATH/dialog --colors \
	--backtitle "\ZbDBMAIL Configuration Interface" \
	--no-shadow \
	--tailbox /var/tmp/addresult.$$ 15 70
	rm /var/tmp/addresult.$$
	# You can insert here a custom DBMail start procedure
	mainmenu
	;;
1 | 255)
	mainmenu
	;;
esac
}

# Database backup fuction
dbackup() {
$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Backup Confirmation " --no-shadow \
--yesno "\nBackup DBMail databases now?\n\n" 15 50

sel=$?
case $sel in
0)	$DMYSQL -h $MYSQLHOST -u $MYSQLUSER -p$MYSQLPASSWD -B dbmail > $BAKFILE
	echo "DBMail backup done!" > /var/tmp/addresult.$$
	$DPATH/dialog --colors \
	--backtitle "\ZbDBMAIL Configuration Interface" \
	--no-shadow \
	--tailbox /var/tmp/addresult.$$ 15 70
	rm /var/tmp/addresult.$$
	mainmenu
	;;
1 | 255)
	mainmenu
	;;
esac

}

# Main Menu
mainmenu() {

$DPATH/dialog --colors \
--backtitle "\ZbDBMAIL Configuration Interface" \
--title " Main Menu " --no-shadow \
--cancel-label "Exit" \
--menu "\nUp/Down to choose an option.\nEnter to select.\n\n" 20 60 6 \
Backup "Create database backup" \
Delete "Set messages to final deletion" \
Fix "Search for unconnect mailboxes/messages" \
Manage "Manage domains/accounts" \
Purge "Purge deleted messages" 2> /var/tmp/menuitem.$$

opt=$?
menuitem=`cat /var/tmp/menuitem.$$`
rm /var/tmp/menuitem.$$

case $opt in
0)
	case $menuitem in
	Backup)
		dbackup
		;;
	Delete)	maintenance delete -d
		;;
	Fix)	maintenance fix -f
		;;
	Manage)	domtasks
		;;
	Purge)  maintenance purge -p
		;;
	esac
	;;
1 | 255)
	clear
	exit 0
	;;
esac
}

# --- Start Script ---

mainmenu