diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index e82bfb41149a0533db9173023bafbfe3cce249d2..1a2499060453086ace60781d3c3b85e7fabd995d 100644 (file)
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
+{$MODE DELPHI}
{$R-}
unit e_log;
WriteTime: Boolean = True);
function DecodeIPV4(ip: LongWord): string;
+var
+ e_WriteToStdOut: Boolean = False;
+
implementation
var
var
LogFile: TextFile;
Prefix: ShortString = '';
+ OutStr: String;
begin
if FileName = '' then Exit;
MSG_NOTIFY: Prefix := '***';
end;
if WriteTime then
- Writeln(LogFile, '['+TimeToStr(Time)+'] '+Prefix+' '+TextLine)
+ OutStr := '['+TimeToStr(Time)+'] '+Prefix+' '+TextLine
else
- Writeln(LogFile, Prefix+' '+TextLine);
+ OutStr := Prefix+' '+TextLine;
+ Writeln(LogFile, OutStr);
+ if e_WriteToStdOut then
+ Writeln(OutStr);
finally
Close(LogFile);
end;