2015-03-09 19:16 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* contrib/hbtip/smtpcli.prg ! consume whole EHLO output after STARTTLS
2015-03-09 19:16:12 +01:00
parent acc1a252e8
commit f832dbe9a4
2 changed files with 5 additions and 1 deletions
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -10,6 +10,10 @@
     * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
 */

+2015-03-09 19:16 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * contrib/hbtip/smtpcli.prg
+    ! consume whole EHLO output after STARTTLS
+
 2015-03-09 18:33 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
  * contrib/hbtip/smtpcli.prg
    ! added missing space after AUTH PLAIN
--- a/contrib/hbtip/smtpcli.prg
+++ b/contrib/hbtip/smtpcli.prg
@@ -169,7 +169,7 @@ METHOD StartTLS() CLASS TIPClientSMTP
      ::EnableSSL( .T. )
      ActivateSSL( Self )
      ::inetSendAll( ::SocketCon, "EHLO " + iif( Empty( ::cClientHost ), "TIPClientSMTP", ::cClientHost ) + ::cCRLF )
-      RETURN ::GetOk()
+      RETURN ::DetectSecurity()
   ENDIF

   RETURN .F.