|
2025-12-07
| ||
| 23:49 | • Ticket [2cc408bd36] Does 2.0b2 work with OpenSSL 3.0.x? status still Open with 3 other changes artifact: 59a1c08882 user: bohagan | |
| 23:41 | • Ticket [2cc408bd36]: 5 changes artifact: c0854f929b user: bohagan | |
|
2025-11-05
| ||
| 07:17 | • New ticket [2cc408bd36]. artifact: ad5da5f1b3 user: anonymous | |
| Ticket Hash: | 2cc408bd36869239a2bbfed8908af37f38a8b95c | ||
| Title: | Does 2.0b2 work with OpenSSL 3.0.x? | ||
| Status: | Open | Type: | Code Defect |
| Severity: | Critical | Priority: | Immediate |
| Subsystem: | Resolution: | Open | |
| Last Modified: |
2025-12-07 23:49:34 9.0 days ago |
Created: |
2025-11-05 07:17:32 41.6 days ago |
| Version Found In: | 2.0b2 | ||
| User Comments: | ||||
anonymous added on 2025-11-05 07:17:32:
C:xtorsbin>tcl devmaptcltlsEmail.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 bohagan added on 2025-12-07 23:41:00:
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? bohagan added on 2025-12-07 23:49:34:
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. | ||||