Artifacts Associated With Ticket 2cc408bd36869239

1. Ticket change [ad5da5f1b3] (rid 4184) by anonymous on 2025-11-05 07:17:32:

   1. foundin initialized to: "2.0b2"
   2. icomment:

      I have the successfully built the latest source code of Tcl TLS (https://core.tcl-lang.org/tcltls/info/4dfbd811b4a163f7) with OpenSSL 3.0.18 on both Linux and Windows. While the simple testing failed, the test worked fine with old 1.7/1.8 with OpenSSL 1.1.1k.
      ---------------------
      C:\xtor\sbin>tcl \devmap\tcltls\Email.tcl
      ::mime::1
      Trying smtp.sina.com...
      <-- 220 smtp-250-22.smtpsmail.fmail.yf.sinanode.com ESMTP
      --> EHLO cnshntwu02 (wait upto 300 seconds)
      <-- 250-smtp-250-22.smtpsmail.fmail.yf.sinanode.com
      <-- 250-AUTH LOGIN PLAIN
      <-- 250-AUTH=LOGIN PLAIN
      <-- 250-STARTTLS
      <-- 250 8BITMIME
      --> STARTTLS (wait upto 300 seconds)
      <-- 220 ready for tls
      --> EHLO cnshntwu02 (wait upto 300 seconds)
      ^C
      
      
      The script goes like,
      
      #Initialize Email Option Array
      set aMail(SERVER) "smtp SERVER address"
      set aMail(PORT) 587
      set aMail(FROM) "xxx@xxxm" 
      set aMail(FROM_NAME) "System (c) - Do Not Reply"
      set aMail(TO) "wrenashe@gmail.com"
      set aMail(SUBJ) "Tcltls-2.0b2 test result"
      set aMail(MSG) "Tcltls-2.0b2 test result"
      set aMail(IMPORTANCE) ""
      set sEmailRc "" 
      set oMailToken [mime::initialize -canonical text/html -string $aMail(MSG)]
      puts $oMailToken
      set sMailUser "cistesting@sina.com"
      set sMailPass "Password01&"
      if {[catch { set sEmailRc [smtp::sendmessage $oMailToken \
          -originator $aMail(FROM) \
          -recipients $aMail(TO) \
          -servers $aMail(SERVER) \
          -ports $aMail(PORT) \
      	-username $sMailUser \
      	-password $sMailPass \
          -header [list From "\"$aMail(FROM_NAME)\" <$aMail(FROM)>"] \
          -header [list To $aMail(TO)] \
          -header [list Importance $aMail(IMPORTANCE)] \
          -header [list Subject $aMail(SUBJ)] -usetls 1  -debug 1 ]} sErrMsg]} {
      	puts "Notification failed - $sErrMsg"
      } else {
          if { $sEmailRc !=  "" } {
            puts "Notification failed - $sEmailRc"
          } else {
            puts "Notification sent - $aMail(TO)"
          }
      }
      mime::finalize $oMailToken
      unset oMailToken
      

   3. login: "anonymous"
   4. mimetype: "text/x-markdown"
   5. severity initialized to: "Critical"
   6. status initialized to: "Open"
   7. title initialized to: "Does 2.0b2 work with OpenSSL 3.0.x?"
   8. type initialized to: "Code Defect"

2. Ticket change [c0854f929b] (rid 4185) by bohagan on 2025-12-07 23:41:00:

   1. icomment:

      Yes, it should work with OpenSSL 1.1.1 up to at least 3.5. The formatting got munged in your description, so it's hard to tell what happened. Did it abort with an error, lock-up, never connect, etc?
      

   2. login: "bohagan"
   3. mimetype: "text/plain"
   4. priority changed to: "Immediate"
   5. resolution changed to: "Open"

3. Ticket change [59a1c08882] (rid 4186) by bohagan on 2025-12-07 23:49:34:

   1. icomment:

      I didn't see any package requires, so I assume you are using the tcllib mime and smtp packages? Also, since this is a beta release make sure you do a "package prefer latest" before "package require tls". Without it, an older version may be used.
      

   2. login: "bohagan"
   3. mimetype: "text/plain"