[Simplemail-cvs] simplemail tcp.c,1.51,1.52

[Sebastian B. <sb...@us...>]

Update of /cvsroot/simplemail/simplemail
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25775

Modified Files:
	tcp.c 
Log Message:
Forward more specifc error texts.


Index: tcp.c
===================================================================
RCS file: /cvsroot/simplemail/simplemail/tcp.c,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- tcp.c	21 Feb 2014 06:37:07 -0000	1.51
+++ tcp.c	21 Feb 2014 06:38:32 -0000	1.52
@@ -267,11 +267,29 @@
 	} else
 	{
 		int err = SSL_get_error(conn->ssl, rc);
-		char buf[64];
+		char buf[128];
 		sm_snprintf(buf, sizeof(buf), "SSL_connect() failed with error %d", err);
 		SM_DEBUGF(5,("%s\n", buf));
 		/* TODO: Implement and use proper error API */
 		tell_from_subtask(buf);
+
+		switch (err)
+		{
+			case	SSL_ERROR_SSL:
+					{
+						long err_code;
+						while ((err_code = ERR_get_error()))
+						{
+							char err_buf[120];
+
+							ERR_error_string_n(err_code, err_buf, sizeof(err_buf));
+
+							sm_snprintf(buf, sizeof(buf), "More specific error %d: %s", err_code, err_buf);
+							tell_from_subtask(buf);
+						}
+					}
+					break;
+		}
 	}
 
 	SSL_shutdown(conn->ssl);