#62 smtpmail.p v5.7 - wait-for hangs

[Mike Bouchard]

When sending a large amount of mail, sometimes my
server will hiccup on connection. It connects, but does
not reply - causing the wait-for to hang indefinitely.

I added a pause to the wait-for to induce a 10 second
timeout to get around this problem:

IF NOT THIS-PROCEDURE:PERSISTENT AND
NOT SESSION:BATCH-MODE THEN DO:
WAIT-FOR CLOSE OF THIS-PROCEDURE PAUSE 10.
IF sending THEN DO: /* we hit the 10 second timeout
*/
ASSIGN
vMessage = "SMTP problems."
sending = NO.
{&LOGGER} vMessage SKIP.
RUN Cleanup.
END.
END.
ELSE IF SESSION:BATCH-MODE THEN DO:

...

END.

Hope this is useful!

--Mike Bouchard