#!/usr/dt/bin/dtksh editCB() { dtaction Compose $FILE } main() { XtInitialize TOPLEVEL dtSend DtSend "$@" DtDbLoad DtDtsFileToAttributeValue DESC $FILE \ "DESCRIPTION" XmCreateMessageDialog SEND $TOPLEVEL motd \ dialogTitle:"DtSend" \ helpLabelString:"Email" \ messageString:"${DESC}" XmMessageBoxGetChild CANCEL $SEND \ DIALOG_CANCEL_BUTTON XtUnmanageChild $CANCEL XtAddCallback $SEND okCallback exit XtAddCallback $SEND helpCallback editCB XtManageChild $SEND XtMainLoop } if [ $# -eq 1 ]; then FILE=$1 else FILE="/etc/motd" fi