Tcl Library Source Code

Attachment Details
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.
Overview

Artifact ID: 1df035d782ca3012b69e169e58d157ee0e9f3d0b7a44abe4219f31f66aa859e4
Ticket: 83d674b2dd2f15cdebb30a6e280e10ae91138f1d
Date: 2018-05-18 05:44:16
User: anonymous
Artifact Attached: e25874cd53aa4827a94f064fe9ccf7673bc6eaaa9afc48c171dfabd61c626c2c
Filename:diff.txt
Description:This is the attachement requested. Let me know if I can help in some other way. Franco. This is a host using a tls native protocol. smtps.auruba.it has address 185.53.178.7 Thank you.
Content Appended
--- tclradmailsmtp.tcl	2018-05-08 14:31:56.000000000 +0200
+++ /opt/tclrad/lib/tcllib1.19/mime/smtp.tcl	2017-08-08 01:35:08.000000000 +0200
@@ -1,4 +1,3 @@
-# MODIFICATO DALLO STD IN ATTESA DI CHIUSURA MIO TICKET
 # smtp.tcl - SMTP client
 #
 # Copyright (c) 1999-2000 Marshall T. Rose
@@ -102,8 +101,6 @@
 #                          some reason. Return 'insecure' to continue with
 #                          normal SMTP or 'secure' to close the connection and
 #                          try another server.
-#             -tlsimport   after a succesfull socket command, import tls on
-#                          channel - used for native smtps negotiation
 #             -username    These are needed if your SMTP server requires
 #             -password    authentication.
 #
@@ -132,7 +129,6 @@
     set ports [list 25]
     set tlsP 1
     set tlspolicy {}
-    set tlsimport 0
     set username {}
     set password {}
 
@@ -158,7 +154,6 @@
             -queue      {set queueP [boolean $value]}
             -usetls     {set tlsP   [boolean $value]}
             -tlspolicy  {set tlspolicy $value}
-            -tlsimport  {set tlsimport $value}
 	    -maxsecs    {set maxsecs [expr {$value < 0 ? 0 : $value}]}
             -header {
                 if {[llength $value] != 2} {
@@ -426,7 +421,7 @@
 		                -maxsecs $maxsecs -usetls $tlsP \
                                 -multiple $bccP -queue $queueP \
                                 -servers $servers -ports $ports \
-                                -tlspolicy $tlspolicy -tlsimport $tlsimport \
+                                -tlspolicy $tlspolicy \
                                 -username $username -password $password]
 
     if {![string match "::smtp::*" $token]} {
@@ -600,8 +595,6 @@
 #                          the request (one port per server-- defaults to 25).
 #             -usetls      A boolean to indicate we will use TLS if possible.
 #             -tlspolicy   Command called if TLS setup fails.
-#             -tlsimport   after a succesfull socket command, import tls on
-#                          channel - used for native smtps negotiation
 #             -username    These provide the authentication information 
 #             -password    to be used if needed by the SMTP server.
 #
@@ -623,7 +616,6 @@
     array set options [list -debug 0 -client localhost -multiple 1 \
                             -maxsecs 120 -queue 0 -servers localhost \
                             -ports 25 -usetls 1 -tlspolicy {} \
-                            -tlsimport 0 \
                             -username {} -password {}]
     array set options $args
     set state(options) [array get options]
@@ -650,7 +642,6 @@
 
         if {[set code [catch {
             set state(sd) [socket -async $server $port]
-            if { $options(-tlsimport) } { tls::import $state(sd) }
             fconfigure $state(sd) -blocking off -translation binary
             fileevent $state(sd) readable [list ::smtp::readable $token]
         } result]]} {