##################################################################
     ## Authors: Jonathan Perret and Gerald Lester                   ##
     ## Purpose: This sends SMTP mail                                ##
     ##    Date: December 27, 1995                                   ##
     ## (mod for ESMTP server by Igor Volobouev, 03/06/02)           ##
     ##################################################################

     ## 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
        # Get whatever junk the server is throwing at us until there
        # is an acceptable status word. The junk may be there because
        # we did not use the HELO command, and the server is ESMTP
        # instead of just SMTP.
        set result ""
        while {1} {
            set tmp [gets $sockid]
            append result $tmp "\n"
            set extended_code [string range $tmp 0 3]
            if {[string compare [string range $extended_code end end] "-"]} {
                break
            }
        }
        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;
     }