More meta expressions in DispatchBottle

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 390f164..7d5f930 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -1660,6 +1660,8 @@ begin
           for k := 0 to (Action as TBottleChainLogAction).LogNames.Count-1 do begin
             LogName := (Action as TBottleChainLogAction).LogNames[k];
             LogName := StringReplace(LogName, '%channel%', Dat['Channel'], [rfReplaceAll]);
+            LogName := StringReplace(LogName, '%ghost%', Dat['TargetGhost'], [rfReplaceAll]);
+            LogName := StringReplace(LogName, '%date%', DateTimeToStr(Now()), [rfReplaceAll]);
             LogNameList.Add(LogName);
           end;
         end;