Append TLS header to SMTP payload

when CLIENT_ACCEPTED {
    set ehlo 0
    SSL::disable
}
when SERVER_CONNECTED {
    TCP::collect
}
when CLIENT_DATA {
    set lcpayload [string tolower [TCP::payload]]
    if { $lcpayload starts_with "ehlo" } {
        set ehlo 1
        TCP::release
        serverside { TCP::collect }
    } elseif { $lcpayload starts_with "starttls" } {
        TCP::respond "220 Ready to start TLS\r\n"
        TCP::payload replace 0 [TCP::payload length] ""
        TCP::release
        SSL::enable
    } else {
        TCP::release
    }
}
when SERVER_DATA {
    set lspayload [string tolower [TCP::payload]]
    if { $ehlo == 1 and not ( $lspayload contains "starttls" ) } {
        if { $lspayload contains "250 ok\r\n" } {
            TCP::payload replace [expr [TCP::payload length] - 8] 0 "250-STARTTLS\r\n"
        }
    }
    TCP::release
    clientside { TCP::collect }
}