2003.08.11 (月) 03:27:32 <Heracules> 制御文字列が混入すると、ログ画面の色が狂います(全て黒文字になる)。
2003.08.11 (月) 03:27:50 <Heracules> その防止の意味での修正です。
shuusei211125:検索文字列への制御文字列の混入をブロック(source by Heracules)

diff --dos -urN 211124/handler.pas 211125/handler.pas
--- 211124/handler.pas	Mon Aug 11 02:59:08 2003
+++ 211125/handler.pas	Mon Aug 11 03:23:14 2003
@@ -3186,12 +3186,18 @@
      if hlist.Count<3 then err:=true
      else
      begin
-       dec:=3;
-       if uppercase(hlist.Strings[1])='CONTAINS' then
-         SearchInclude(search_data,hlist.Strings[2],true)
-       else if uppercase(hlist.Strings[1])='EXCLUDES' then
-         SearchInclude(search_data,hlist.Strings[2],false)
-       else err:=true;
+       for i:=1 to length(hlist.Strings[2]) do
+         if hlist.Strings[2][i] in [Chr(0)..Chr(31),Chr(127)] then
+           err:=true;
+       if not err then
+       begin
+         dec:=3;
+         if uppercase(hlist.Strings[1])='CONTAINS' then
+           SearchInclude(search_data,hlist.Strings[2],true)
+         else if uppercase(hlist.Strings[1])='EXCLUDES' then
+           SearchInclude(search_data,hlist.Strings[2],false)
+         else err:=true;
+       end;
      end;
    end; // end FILENAME
    if hlist.Strings[0]='MAX_RESULTS' then