User inactivity timeout flag

This commit is contained in:
mysticbbs 2012-07-30 18:18:51 -04:00
parent bee95ca79e
commit 4bc000b98b
1 changed files with 1 additions and 1 deletions

View File

@ -1276,7 +1276,7 @@ Begin
InMacro := False; InMacro := False;
If TBBSCore(Core).CheckTimeOut Then If TBBSCore(Core).CheckTimeOut Then
If (Config.Inactivity > 0) and (TimerSeconds - TBBSCore(Core).TimeOut >= Config.Inactivity) Then Begin If (Config.Inactivity > 0) and (Session.User.ThisUser.Flags And UserNoTimeOut = 0) and (TimerSeconds - TBBSCore(Core).TimeOut >= Config.Inactivity) Then Begin
TBBSCore(Core).SystemLog('Inactivity timeout'); TBBSCore(Core).SystemLog('Inactivity timeout');
OutFullLn (TBBSCore(Core).GetPrompt(136)); OutFullLn (TBBSCore(Core).GetPrompt(136));
Halt(0); Halt(0);