Adding discredit on bad authentication

diff --git a/lib/lvleml.c b/lib/lvleml.c
index 855a9ae3a03b9ff504f63da0c53f16b355e24fac..f541246e539f226f3dce506edcb453f36ee8d9fd 100644 (file)
--- 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;