Artifact
42f3462c683350a9a1507918802cd3a697665ce8:
Attachment "smtp.patch" to
ticket [1242629fff]
added by
usus
2005-07-22 04:35:34.
*** smtp.tcl.org 2005-07-21 23:18:16.000000000 +0200
--- smtp.tcl 2005-07-21 23:19:10.000000000 +0200
***************
*** 900,907 ****
if {$response(code) == 334} {
set challenge [base64::decode $response(diagnostic)]
set reply [hmac_hex $options(-password) $challenge]
! set reply [base64::encode \
! "$options(-username) [string tolower $reply]"]
set result [smtp::talk $token 300 $reply]
array set response $result
}
--- 900,907 ----
if {$response(code) == 334} {
set challenge [base64::decode $response(diagnostic)]
set reply [hmac_hex $options(-password) $challenge]
! set reply [string map {"\n" ""} [base64::encode \
! "$options(-username) [string tolower $reply]"]]
set result [smtp::talk $token 300 $reply]
array set response $result
}
