bad credit set for wrong dohelo and doehlo

diff --git a/lib/lvleml.c b/lib/lvleml.c
index f3061d76808bf897a7dc9cc9c0d96b77fdd0565a..7838bd207b24528898f03d99ccabfe98958aef14 100644 (file)
--- a/lib/lvleml.c
+++ b/lib/lvleml.c
@@ -1405,6 +1405,7 @@ _Bool done;
 if ((done=isgoodfqdn(contact,parameter))==false) {
   (void) eml_transmit(contact,true,"%d 5.5.4 %s.",BADPAR,DETAIL);
   (void) setterminator(contact,"HELO parameter missing");
+  contact->credit-=2;
   }
 else
   (void) linkready(contact,false);
@@ -1456,6 +1457,7 @@ while (proceed==true) {
       if ((done=isgoodfqdn(contact,parameter))==false) {
         (void) eml_transmit(contact,true,"%d 5.5.4 %s.",BADPAR,DETAIL);
         (void) setterminator(contact,"EHLO parameter missing");
+        contact->credit-=2;     //penalty
         phase=999;      //Trouble trouble
         }
       break;