А почему Завершить сессию Не работает?

[bm]

Или не всегда работает.
ЗЫ Тонкий клиент,3-х уровневая арх-ра.

[glibs]

А у вас клиент тонкий? А у сессии?

[bm]

все клиенты тонкие. и сессии.

[George Nordic]

Эх. Тряхну стариной. Вот код, который запускался из startup Applicationa и следил, если ли уже открытые сесси у данного пользователя. Если есть, то по запросу убивал. Для верности было сочетание terninate + notify. Просто terminate не всегда убивал сессии. Попробйте!

PHP код:

//SP0003_CheckSessions_GNRD
void checkAllOpenSessions_flx()
{
    int             counter = 0;
    int             maxSessions;
    int             curSessionId = new xSession().sessionId();
    container       users;
    int             sesId;
    userId          userId;
    ClientType      clientKind;
    date            loginDate;
    int             loginTime;
    str             clientComputerName;
    str             databaseSpid;
    userName        userName;
    AOSClientMode   clientMode;
    int             idleTicks;
    str             info;
    Session         sessionToTerm;
    AOSSessionInfo  testSession;
    ;

    [ users, maxSessions ] = SysUsersOnline::getAllOnlineUserInfo();

    for(counter = 1; counter <= maxSessions; counter++)
    {
        [   sesId,
            userId,
            clientKind,
            loginDate,
            loginTime,
            clientComputerName,
            databaseSpid,
            userName,
            clientMode,
            idleTicks
            ] = conPeek(users, counter);

        if (userId == '-AOS-')
            continue;

        if (sesId != curSessionId && userId == curuserid())
        {
            info = strfmt("????????! ? ???????????? %1 (%2) ??? ???? ???????? ?????? ? ??????? %3 ???????? ? ?????????? %4 %5 ????? ? %6. ??????? ?????? ???????",
                                    UserName,
                                    UserId,
                                    sesId,
                                    clientComputerName,
                                    loginDate,
                                    time2str(loginTime,1,1));
            if (Box::yesNo(info,DialogButton::Yes,"????????! ???? ???????? ??????!","?? - ??????? ?????? ?????? (?????????????), ??? - ??????????") == DialogButton::Yes)
            {
                sessionToTerm = new Session(sesId);
                sessionToTerm.terminate();
                info = strfmt("????????! ???? ?????? ???? ???????? ? ?????????? %1!", clientComputerName);
                testSession = new AOSSessionInfo(sesId);
                if (testSession)
                    AOSSessionInfo::sendMessage(sesId, "????????!", info);
                sessionToTerm.notify();
                sessionToTerm = NULL;
            }
        }
    }
} 


С Уважением,
Георгий

[Dron AKA andy]

Добавил часть приведенного кода под кнопку завершения сессии - не работает все равно Глупость, конечно, но неужели важно, чтобы именно при запуске и именно свои сессии снимать?

[George Nordic]

Андрей! Так затем и писалась данная модификация, т.к. пользователи любили бегать от компа к компу (!) и оставлять за собой открытые сессии. А у нас часто ввод данных (вырабока и т.п) или ограниченние по вводу данных (одобрить маршрут, цену...) завязано на текущего пользователя. Ну, и плюс самые элементарные соображения безопасности. А так.. бардак творился, в общем. (Свою сессию она не убивает, кстати )
Потом появилось вот что: часть сессий "зависало" и ничем их было не выковырять
После этого появились попытки убить с помощью такого кода:

PHP код:

testSession = new AOSSessionInfo(sesId);
if (testSession)
   AOSSessionInfo::sendMessage(sesId, "Внимание, Ваша сессия закрыта!", info);
sessionToTerm.notify(); 


Это я где-то на форуме прочитал, что должно убить 100%
На деле же, кажется, все равно не работает...
в 3х звенке "наглухо" зависшая сессия погибала только при перестарте АОСа

Может, у кого есть какие соображения?

С Уважением,
Георгий

[Vadik]

Developers's Guide \ Executing commands on startup (c)

Note
The startup methods are used for vital system and version specific calls, and you should never modify them directly. Serious consequences may follow if the SYS layer versions of the methods are not called.

А какие права нужны пользователю , чтобы прибивать чужие (неважно, что USERID тот же) сессии?

[George Nordic]

Хороший вопрос.

Беда в том, что даже tuning и admin не убивали "мертвые души"

[George Nordic]

А "независшая" система погибала, (даже на самых маленьких правах !!!) Только при э-э-э... Getting focus. Имхо, при первом же обращении к Б.Д.

[George Nordic]

Ясно. В процессе ответов вспомнился и ответ на вопрос. Вы можете убить сессию из Администрирование -> Активные пользователи, но реально он умрет, когда начнет работать. При первом же щелчке в главном меню (сиречь первом обращении к БД) ему скажут, что его сессию прервали. То же, при посылке сообщения и получения просто фокуса программой.

Но это не объясняет моей проблемы с мертвыми сессиями...

[propeller]

а вот в 2.5 этой кнопочке убить сессию нет ((
можно ли ее туда добавить ?

[Dron AKA andy]

2propeller:
Тему-дубль этого вопроса я прибил, чтобы в 2х темах одинаковые дискуссии не плодились.

Насколько я помню (сейчас 2.5 под рукой нет), кнопка была. Может, на форме убрали? А класс SysUsersTerminate есть в репозитарии?

[propeller]

неа такого нет(

Существуют ли способы убить свою собственную сессию?