#!/local/bin/tclsh
#
# test bifftk
#
# $Header: /local/homes/pkern/xp/RCS/bifftst,v 1.1 1998/06/09 17:52:22 pkern Exp $

set sockfile "$env(HOME)/.biff_me"

# a biff test message.
set mailbiff [ format "%c\r
New mail for <me@here> has arrived:\r
---\r
Date:	%s
\rFrom:	<bifftst@here>
\rTo:	moi, myself, me
\rSubject: just testing
\r
\rJust a test line.
\rAnd here's another line.
\r...more...
\r" 7 [clock format [clock seconds]] ]


if {[ catch { set sd [ socket -local "" $sockfile ]} errmsg ]} {
	puts $errmsg
	exit 1
}
fconfigure $sd -translation binary
puts -nonewline $sd $mailbiff

# uncomment for debugging.
#puts [ fconfigure $sd ]
#puts $mailbiff