diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index d45f86efd10cb1d10e453a7d754ecb9d7a4f8e49..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;
begin
FileName := fFileName;
if fWriteMode = WM_NEWFILE then
- if FileExists(FileName) then
- DeleteFile(FileName);
+ begin
+ try
+ if FileExists(FileName) then DeleteFile(FileName);
+ except // sorry
+ end;
+ end;
FirstRecord := True;
end;