## Authors: Jonathan Perret and Gerald Lester ##
## Purpose: This sends SMTP mail
## Date: December 27, 1995 ##
##################################################################
## Send SMTP to mail host.
proc sendmail {smtphost toList from subject body {trace 0}} {
if $trace then {
puts stdout "Connecting to $smtphost:25"
}
set sockid [socket $smtphost 25]
puts $sockid "MAIL From:<$from>"
flush $sockid
set result [gets $sockid]
if $trace then {
puts stdout "MAIL From:<$from>\n\t$result"
}
foreach to $toList {
puts $sockid "RCPT To:<$to>"
flush $sockid
}
set result [gets $sockid]
if $trace then {
puts stdout "RCPT To:<$to>\n\t$result"
}
puts $sockid "DATA "
flush $sockid
set result [gets $sockid]
if $trace then {
puts stdout "DATA \n\t$result"
}
puts $sockid "From: <$from>"
puts $sockid "To: <$to>"
puts $sockid "Subject: $subject"
puts $sockid "\n"
foreach line [split $body "\n"] {
puts $sockid "[join $line]"
}
puts $sockid "."
puts $sockid "QUIT"
flush $sockid
set result [gets $sockid]
if $trace then {
puts stdout "QUIT\n\t$result"
}
close $sockid
return;
}