diff options
Diffstat (limited to 'src/base/ULog.pas')
| -rw-r--r-- | src/base/ULog.pas | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/src/base/ULog.pas b/src/base/ULog.pas index ea3cda4e..bde4d4e4 100644 --- a/src/base/ULog.pas +++ b/src/base/ULog.pas @@ -100,6 +100,8 @@ type procedure SetLogLevel(Level: integer); function GetLogLevel(): integer; + procedure SetLogFileLevel(Level: integer); + function GetLogFileLevel(): integer; procedure LogMsg(const Text: string; Level: integer); overload; procedure LogMsg(const Msg, Context: string; Level: integer); overload; {$IFDEF HasInline}inline;{$ENDIF} @@ -311,13 +313,21 @@ begin Result := LogLevel; end; +procedure TLog.SetLogFileLevel(Level: integer); +begin + LogFileLevel := Level; +end; + +function TLog.GetLogFileLevel(): integer; +begin + Result := LogFileLevel; +end; + procedure TLog.LogMsg(const Text: string; Level: integer); var LogMsg: string; begin - // TODO: what if (LogFileLevel < LogLevel)? Log to file without printing to - // console or do not log at all? At the moment nothing is logged. - if (Level <= LogLevel) then + if ((Level <= LogLevel) or (Level <= LogFileLevel)) then begin if (Level <= LOG_LEVEL_CRITICAL_MAX) then LogMsg := 'CRITICAL: ' + Text |