#
proc err args {catch $args e; set e}
lappend auto_path ~/tcl/tls1.7
package re tls
#% 1.7.11
# + nowa wersja tls ?!?!!?!
tls::init -tls1 1
lappend auto_path ~/tcl/tcllib
package re mime
#% 1.5.4
package re smtp
#% 1.4.5
tls::version
#% OpenSSL 0.9.8k 25 Mar 2009
# + czy to aby nie jest ta podatna wersja?!?!
# !!!! do tego miejsca wykonac !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
set m1 [mime::initialize -canonical text/plain \
-encoding 8bit -param {charset UTF-8} \
-string [encoding convertto utf-8 \
{1 A ku ku !!!
2 A ku ku !!!
3 A ku ku !!!
4 A ku ku !!!}]]
# + tworzymy mail prosty ...
#mime::finalize $m1
set pass ???
err smtp::sendmessage $m1 -servers {smtp.amu.edu.pl} -ports {587} \
-username mhanckow -password $pass \
-header {From "mhanckow@amu.edu.pl";} \
-header {To "mhanckow@amu.edu.pl";} \
-header {Subject "qqq5"} \
-debug 1
# + to dziala
if 0 {
# "-debug 1"; z pakietem tls1.5 ten przyklad nie dziala...
<-- 220 mx1.wmi.amu.edu.pl ESMTP Postfix (Debian/GNU)
--> EHLO b3-34.sci.wmi.amu.edu.pl (wait upto 300 seconds)
<-- 250-mx1.wmi.amu.edu.pl
<-- 250-PIPELINING
<-- 250-SIZE 20480000
<-- 250-VRFY
<-- 250-ETRN
<-- 250-STARTTLS
<-- 250-ENHANCEDSTATUSCODES
<-- 250-8BITMIME
<-- 250 DSN
--> STARTTLS (wait upto 300 seconds)
<-- 220 2.0.0 Ready to start TLS
--> EHLO b3-34.sci.wmi.amu.edu.pl (wait upto 300 seconds)
... premature end-of-file from server ...
}
SASL::mechanisms
#% NTLM OTP DIGEST-MD5 CRAM-MD5 LOGIN PLAIN ANONYMOUS
# + pakiet smtp uzywa SASL do uwierzytelniania...
# mam nadzieje ze te mechnizmy sa wystarczajace...
set pass ???
err smtp::sendmessage $m1 -servers {smtp.gmail.com} -ports {587} \
-username mhanckow -password $pass \
-header {From "mhanckow@gmail.com";} \
-header {To "mhanckow@amu.edu.pl";} \
-header {Subject "qqq12"} \
-debug 1
# + dziala ok, ale we From musi byc gmail.com !!!
# ...
exit