Kill sessions on server

imperyal · 2019-02-27 19:45:15

Hello!

I need to kill sessions from a specific user group on the server... Is this possible?

Thank you!

ab · 2019-02-28 11:54:25

From the server side?

Use TSQLRestServer.fSessions.Lock / SessionDelete then fSessions.Unlock.

imperyal · 2019-02-28 13:29:08

SessionDelete is not public... I was trying to do this from an interface (TInjectableObjectRest), using self.Server

imperyal · 2019-02-28 14:00:04

I'm inheriting my own TSQLRestServer class, I can call SessionDelete now like advised on this topic, but I can't call/find TSQLRestServer.fSessions.Lock.

Thank you!

Last edited by imperyal (2019-02-28 14:00:20)

ab · 2019-02-28 14:48:00

There is a fSessions: TObjecTListLocked field in the TSQLRestServer class.

imperyal · 2019-02-28 15:45:12

Yes, that's right. But there is no Lock method on fSessions[] that I can find.

imperyal · 2019-02-28 16:41:33

Ok, I think that's TSQLRestServer.fSessions.Safe.Lock / TSQLRestServer.fSessions.Safe.Unlock

Let's hope I don't need any additional help, Thank you.

imperyal · 2019-02-28 17:16:13

For other people that may need something like this:

procedure TDCS_ServerDB.kill_otherGroupSessions(Ctxt: TSQLRestServerURIContext);
var
  i:           integer;
  currSession: TAuthSession;
begin
  self.fSessions.Safe.Lock;

  for i := self.fSessions.Count - 1 downto 0 do
      begin
      currSession := (self.fSessions[i] as TAuthSession);

      if (currSession.GroupID     = Ctxt.SessionGroup) and
         (currSession.IDCardinal <> Ctxt.Session)      then
         self.SessionDelete(i, Ctxt);
      end;

  self.fSessions.Safe.UnLock;
end;

I think this is OK. Any suggestions ab?

Thank you for prompt help.

ab · 2019-02-28 18:09:17

A little try ... finally between the Lock and the UnLock, for safety.

imperyal · 2019-02-28 20:12:24

This is all implemented now and working as we want, nice!

Thank you

mORMot Open Source

#1 2019-02-27 19:45:15

Kill sessions on server

#2 2019-02-28 11:54:25

Re: Kill sessions on server

#3 2019-02-28 13:29:08

Re: Kill sessions on server

#4 2019-02-28 14:00:04

Re: Kill sessions on server

#5 2019-02-28 14:48:00

Re: Kill sessions on server

#6 2019-02-28 15:45:12

Re: Kill sessions on server

#7 2019-02-28 16:41:33

Re: Kill sessions on server

#8 2019-02-28 17:16:13

Re: Kill sessions on server

#9 2019-02-28 18:09:17

Re: Kill sessions on server

#10 2019-02-28 20:12:24

Re: Kill sessions on server

Board footer