From 1960c0c60b65776c3c6a9acb6b7c54eb47539e78 Mon Sep 17 00:00:00 2001
From: "Jean-Marc Pigeon (Delson)" <jmp@safe.ca>
Date: Sat, 3 May 2025 09:37:04 -0400
Subject: [PATCH] Working to check smtps protocol handling

---
 Makefile     | 16 +++++++++++++---
 lib/devsoc.c |  1 +
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index 8e3e7d7..513b9f1 100644
--- a/Makefile
+++ b/Makefile
@@ -92,7 +92,7 @@ go465	:
 			-cert certs/localhost_cert.pem	\
 			-CAfile certs/safe_CA.pem	\
 			-tls1_2				\
-			-connect mailprod0.safe.ca:465
+			-connect $(TESTIP):1065
 
 xxx	:
 		@ clear
@@ -138,7 +138,7 @@ onercvr	:  debug
 		-f					\
 		$(EMLPAR)
 
-emlrcvr	:  clean debug newtest		#starting email receiver
+emlrcvr	:  prepare			#starting email receiver
 	   @ echo
 	   @ echo "--------------"
 	   @ echo "starting $@"
@@ -146,7 +146,16 @@ emlrcvr	:  clean debug newtest		#starting email receiver
 		$(EMLPAR)$(TESTITER)
 	   @ echo "--------------"
 
-valrcvr	:  clean debug newtest		#valgring of emlrcvr
+eml465	:  prepare
+	   @ echo
+	   @ echo "--------------"
+	   @ echo "starting $@"
+	   @ $(TESTDIR)/$(SBINDIR)/emlrcvr		\
+		-r $(TESTDIR)				\
+		-d 1					\
+		smtps:$(TESTIP):1065:1
+
+valrcvr	:  prepare			#valgring of emlrcvr
 	   @ echo "emlrec valgrind test"
 	   @ valgrind					\
 		--leak-check=full			\
@@ -171,6 +180,7 @@ norcvr	:
 		  kill -TERM				\
 			`cat $(LOCKDIR)/emlrcvr.lock`;	\
 		 fi
+prepare	:  clean debug newtest
 
 #to kill all remaining emlrcvr process
 killall	:
diff --git a/lib/devsoc.c b/lib/devsoc.c
index 0ea2327..3411a04 100644
--- a/lib/devsoc.c
+++ b/lib/devsoc.c
@@ -373,6 +373,7 @@ while (proceed==true) {
           newsoc->modtls=true;
           if ((newsoc->tls=tls_opentls(newsoc->handle,true))==(TLSTYP *)0) {
             (void) rou_alert(0,"%s Unable to get a TLS channel",OPEP);
+            newsoc->modtls=false;
             phase=999;      //trouble trouble
             }
           break;
-- 
2.47.3