fix: log > ban ip address, not working with AM/PM time locale

rejetto · May 30, 2020 · 8be3ff6 · 8be3ff6
1 parent df5fa09
commit 8be3ff6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/main.pas b/main.pas
@@ -4174,11 +4174,11 @@ procedure Tmainfrm.add2log(lines:string; cd:TconnData=NIL; clr:Tcolor=Graphics.c
 if logFontSize > 0 then
   logBox.SelAttributes.size:=logFontSize;
 logBox.SelAttributes.Color:=clRed;
-logBox.SelText:=ts+' ';
+logBox.SelText:=ts+'  ';
 if addr > '' then
   begin
   logBox.SelAttributes.Color:=ADDRESS_COLOR;
-  logBox.SelText:=addr+' ';
+  logBox.SelText:=addr+'  ';
   end;
 logBox.SelAttributes.color:=clr;
 logBox.SelText:=first+CRLF;
@@ -11258,7 +11258,7 @@ function Tmainfrm.ipPointedInLog():string;
 if pt.y >= logbox.lines.count then
   exit;
 s:=logbox.lines[pt.y];
-s:=reGet(s, '^\S+ +(\S+@)?(\S+):\d+ ', 2);
+s:=reGet(s, '.+  (\S+@)?(\S+):\d+ ', 2);
 if checkAddressSyntax(s,FALSE) then
   result:=s;
 end; // ipPointedInLog