Hi Francesco,
> If it works for you or doesn't, please test this patch in
> contrib\hbtip and report.
The additional two GetOK() calls don't look correct to me,
first of all because they happen right after opening the
connection when no request has been sent out to SMTP server
yet.
Second because GetOK() _is_ actually called after HELO and
EHLO requests in line 124 and 143.
Can you try whether upping the timeout by itself solves your
problems?
Brgds,
Viktor
>
> Index: smtpcli.prg
> ===================================================================
> --- smtpcli.prg (revision 12954)
> +++ smtpcli.prg (working copy)
> @@ -96,10 +97,11 @@
> bTrace := {| cMsg | iif( PCount() > 0, oLog:Add( cMsg ), oLog:Close() )
> }
> ENDIF
>
> ::super:New( oUrl, bTrace, oCredentials )
>
> ::nDefaultPort := iif( ::oUrl:cProto == "smtps", 465, 25 )
> - ::nConnTimeout := 5000
> + ::nConnTimeout := 50000
> ::nAccessMode := TIP_WO // a write only
>
> RETURN Self
> @@ -110,6 +112,10 @@
> RETURN .F.
> ENDIF
>
> + IF ! ::GetOk()
> + RETURN .F.
> + ENDIF
> +
> DEFAULT lTLS TO .F.
>
> IF lTLS
> @@ -129,6 +135,10 @@
> RETURN .F.
> ENDIF
>
> + IF ! ::GetOk()
> + RETURN .F.
> + ENDIF
> +
> DEFAULT lTLS TO .F.
>
> IF lTLS
> _______________________________________________
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
