Meaningless ghost list report is supressed

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 44d79eb..2ce4044 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -273,7 +273,8 @@ type
     //
     FScriptBuffer: TObjectList;  //\83X\83N\83\8a\83v\83g\83N\83\8a\83A\83o\83b\83t\83@
     //
-    FLastGhostListSend: Int64; //\8d\91\90¨\92²\8d¸\82ð\8dÅ\8cã\82É\91\97\90M\82µ\82½\8e\9e\8d\8f 
+    FLastGhostList: String;    //\83S\81[\83X\83g\83\8a\83X\83g\82Ì\95¶\8e\9a\97ñ
+    FLastGhostListSend: Int64; //\8d\91\90¨\92²\8d¸\82ð\8dÅ\8cã\82É\91\97\90M\82µ\82½\8e\9e\8d\8f
     //
     procedure SetStatusText(const Value: String);
     procedure SetSleeping(const Value: boolean);
@@ -1439,7 +1440,7 @@ begin
   UpdateIfGhostBox; // \83h\83\8d\83b\83v\83_\83E\83\93\82Ì\92\86\90g\82ð\8f\91\82«\8a·\82¦\82é
 
   if (FLastGhostListSend <> 0) and
-    (GetTickCount < FLastGhostListSend + 1000*600) then
+    (GetTickCount < FLastGhostListSend + 1000*60) then
   begin
     Exit;
   end;
@@ -1456,7 +1457,8 @@ begin
         SendOk := true;
       end;
     end;
-    if SendOk then begin
+    if SendOk and (FLastGhostList <> GhostList) then begin
+      FLastGhostList := GhostList;
       Http := THTTPDownloadThread.Create(BottleServer, Pref.CgiNameGhost, GhostList);
       if Pref.UseHttpProxy then begin
         Http.ProxyServer := Pref.ProxyAddress;