#!/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