D 2025-11-05T07:17:32.949
J foundin 2.0b2
J icomment I\shave\sthe\ssuccessfully\sbuilt\sthe\slatest\ssource\scode\sof\sTcl\sTLS\s(https://core.tcl-lang.org/tcltls/info/4dfbd811b4a163f7)\swith\sOpenSSL\s3.0.18\son\sboth\sLinux\sand\sWindows.\sWhile\sthe\ssimple\stesting\sfailed,\sthe\stest\sworked\sfine\swith\sold\s1.7/1.8\swith\sOpenSSL\s1.1.1k.\r\n---------------------\r\nC:\\xtor\\sbin>tcl\s\\devmap\\tcltls\\Email.tcl\r\n::mime::1\r\nTrying\ssmtp.sina.com...\r\n<--\s220\ssmtp-250-22.smtpsmail.fmail.yf.sinanode.com\sESMTP\r\n-->\sEHLO\scnshntwu02\s(wait\supto\s300\sseconds)\r\n<--\s250-smtp-250-22.smtpsmail.fmail.yf.sinanode.com\r\n<--\s250-AUTH\sLOGIN\sPLAIN\r\n<--\s250-AUTH=LOGIN\sPLAIN\r\n<--\s250-STARTTLS\r\n<--\s250\s8BITMIME\r\n-->\sSTARTTLS\s(wait\supto\s300\sseconds)\r\n<--\s220\sready\sfor\stls\r\n-->\sEHLO\scnshntwu02\s(wait\supto\s300\sseconds)\r\n^C\r\n\r\n\r\nThe\sscript\sgoes\slike,\r\n\r\n#Initialize\sEmail\sOption\sArray\r\nset\saMail(SERVER)\s"smtp\sSERVER\saddress"\r\nset\saMail(PORT)\s587\r\nset\saMail(FROM)\s"xxx@xxxm"\s\r\nset\saMail(FROM_NAME)\s"System\s(c)\s-\sDo\sNot\sReply"\r\nset\saMail(TO)\s"wrenashe@gmail.com"\r\nset\saMail(SUBJ)\s"Tcltls-2.0b2\stest\sresult"\r\nset\saMail(MSG)\s"Tcltls-2.0b2\stest\sresult"\r\nset\saMail(IMPORTANCE)\s""\r\nset\ssEmailRc\s""\s\r\nset\soMailToken\s[mime::initialize\s-canonical\stext/html\s-string\s$aMail(MSG)]\r\nputs\s$oMailToken\r\nset\ssMailUser\s"cistesting@sina.com"\r\nset\ssMailPass\s"Password01&"\r\nif\s{[catch\s{\sset\ssEmailRc\s[smtp::sendmessage\s$oMailToken\s\\\r\n\s\s\s\s-originator\s$aMail(FROM)\s\\\r\n\s\s\s\s-recipients\s$aMail(TO)\s\\\r\n\s\s\s\s-servers\s$aMail(SERVER)\s\\\r\n\s\s\s\s-ports\s$aMail(PORT)\s\\\r\n\t-username\s$sMailUser\s\\\r\n\t-password\s$sMailPass\s\\\r\n\s\s\s\s-header\s[list\sFrom\s"\\"$aMail(FROM_NAME)\\"\s<$aMail(FROM)>"]\s\\\r\n\s\s\s\s-header\s[list\sTo\s$aMail(TO)]\s\\\r\n\s\s\s\s-header\s[list\sImportance\s$aMail(IMPORTANCE)]\s\\\r\n\s\s\s\s-header\s[list\sSubject\s$aMail(SUBJ)]\s-usetls\s1\s\s-debug\s1\s]}\ssErrMsg]}\s{\r\n\tputs\s"Notification\sfailed\s-\s$sErrMsg"\r\n}\selse\s{\r\n\s\s\s\sif\s{\s$sEmailRc\s!=\s\s""\s}\s{\r\n\s\s\s\s\s\sputs\s"Notification\sfailed\s-\s$sEmailRc"\r\n\s\s\s\s}\selse\s{\r\n\s\s\s\s\s\sputs\s"Notification\ssent\s-\s$aMail(TO)"\r\n\s\s\s\s}\r\n}\r\nmime::finalize\s$oMailToken\r\nunset\soMailToken
J login anonymous
J mimetype text/x-markdown
J severity Critical
J status Open
J title Does\s2.0b2\swork\swith\sOpenSSL\s3.0.x?
J type Code\sDefect
K 2cc408bd36869239a2bbfed8908af37f38a8b95c
U anonymous
Z d14264a2b22d5ced0093fe9f344c281a