# $Header: /home/cvsroot/tcldb/ucodb/Tlib/mailMaven,v 1.1.1.1 1996/10/12 01:08:26 de Exp $
# tcl procs saved on Sun Sep 03 16:19:10 PDT 1995

proc mailMaven {subject text} {

	global maven

        set unique [getclock]
        set tmpf [open /tmp/mail.$unique w]

        puts $tmpf $text

        close $tmpf

        catch {exec mail -s $subject $maven < /tmp/mail.$unique}

	exec rm /tmp/mail.$unique

}

