From 751a1d7172b529578005231ede41cc16606949c5 Mon Sep 17 00:00:00 2001
From: "Jean-Marc Pigeon (Delson)" <jmp@safe.ca>
Date: Fri, 15 Aug 2025 15:48:17 -0400
Subject: [PATCH] Adding discredit on bad authentication

---
 lib/lvleml.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/lvleml.c b/lib/lvleml.c
index 855a9ae..f541246 100644
--- a/lib/lvleml.c
+++ b/lib/lvleml.c
@@ -794,6 +794,7 @@ while (proceed==true) {
         static char *cmt="no authentication on clear chanel";
         (void) eml_transmit(contact,true,"%d 5.7.0 %s",FAILED,cmt);
         (void) setterminator(contact,cmt);
+        contact->credit=-1;     //"Bad boy"
         phase=999;      //No need to go further 
         }
       break;
-- 
2.47.3