From 7ea40bebddc7e195e3a4277cd53852d9a49266c1 Mon Sep 17 00:00:00 2001
From: "Jean-Marc Pigeon (Delson)" <jmp@safe.ca>
Date: Fri, 15 Aug 2025 15:49:26 -0400
Subject: [PATCH] Bad credit on bad authentication

---
 lib/lvleml.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/lvleml.c b/lib/lvleml.c
index f541246..d0b6f89 100644
--- a/lib/lvleml.c
+++ b/lib/lvleml.c
@@ -794,7 +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"
+        contact->credit-=1;     //"Bad boy"
         phase=999;      //No need to go further 
         }
       break;
@@ -860,6 +860,7 @@ while (proceed==true) {
         (void) log_fprintlog(contact->logptr,true,fmt,BADAUTH,auth,rmtpass);
         (void) sleep(2);
         (void) eml_transmit(contact,true,"%d 5.7.4 authentication failed",BADAUTH);
+        contact->credit-=1;
         }
       else {
         (void) log_fprintlog(contact->logptr,true,fmt,auth);
-- 
2.47.3