ЛИНТЕР

Изменение графика работы пользователя

Спецификация

<изменение графика работы пользователя>::=

ALTER USER [имя пользователя] {ENABLE | DISABLE} LOGIN
{ALWAYS | график по времени | график по дням}

<график по времени>::=

FROM время начала работы
TO время окончания работы [FOR дни работы]

<график по дням>::=

[SINCE дата начала]|[UNTIL дата окончания]

<время начала работы>::=

'HH:MM'

<время окончания работы>::=

'HH:MM'

<дни работы>::=

день недели{[, день недели] ...}

<день недели>::=

'MON' | 'TUE' | 'WED' | 'THU' | 'FRI' | 'SAT' | 'SUN'

<дата начала>::=

'DD.MM.YYYY'

<дата окончания>::=

'DD.MM.YYYY'

Синтаксические правила

<График по времени> задается по Гринвичу и округляется в меньшую сторону до ближайшего получасового интервала.
Значение '00:00', заданное в качестве конца диапазона времени, рассматривается как окончание суток.

Общие правила

Конструкция ENABLE LOGIN разрешает, DISABLE LOGIN запрещает пользователю доступ к БД в указанные периоды времени.
Опция ALWAYS устанавливает (ENABLE LOGIN) или запрещает (DISABLE LOGIN) ежедневный круглосуточный период доступа к БД в течение всего времени её существования (при создании пользователя задаётся ENABLE LOGIN ALWAYS).
Если опция FROM <время начала работы> не задана, по умолчанию используется начало суток.
Если опция TO <время окончания работы> не задана, по умолчанию используется конец суток.
Если опция FOR <дни работы> не задана, по умолчанию используется все дни недели.

Примеры

! 1)
alter user GUEST enable login for 'MON','WED','SUN' since '16.06.2010' until '20.06.2010' from '12:50' to '16:45';

! 2) Установка доступности к БД сотрудника GUEST на время испытательного срока c 01.04.2018 по 01.06.2018
alter user GUEST enable login since '01.04.2018';
alter user GUEST enable login until '01.06.2018';

! Посмотреть период и длительность испытательного срока
select rowid from $$$usr where $$$s34='GUEST';

44

select cast getraw($$$s35,88,16) as date,
       cast getraw($$$s35,104,16) as date
  from $$$usr where rowid=44;

01.04.2018:00:00:00 01.06.2018:00:00:00

! 3) Посмотреть маску запрещенных для доступа дней недели
alter user U1 disable login for 'SAT','SUN';

! Битовая маска
select 'Доступ запрещен: ' ||
       (case when (GetByte($$$S35,120) & 0x1) = 0
         then '0' else '1' end) ||
       (case when (GetByte($$$S35,120) & 0x2) = 0
         then '0' else '1' end) ||
       (case when (GetByte($$$S35,120) & 0x4) = 0
         then '0' else '1' end) ||
       (case when (GetByte($$$S35,120) & 0x8) = 0
         then '0' else '1' end) ||
       (case when (GetByte($$$S35,120) & 0x10) = 0
         then '0' else '1' end) ||
       (case when (GetByte($$$S35,120) & 0x20) = 0
         then '0' else '1' end) ||
       (case when (GetByte($$$S35,120) & 0x40) = 0
         then '0' else '1' end)
  from LINTER_SYSTEM_USER.$$$USR
  where $$$S32=0 and $$$S34 like 'GUEST';

|Доступ запрещен: 0000011|

! 4) Посмотреть ограничение доступа к БД по дням недели
create or replace user guest identified by '12345678';

alter user GUEST DISABLE LOGIN
  FROM '01:45' TO '02:15' for 'MON', 'FRI';

select
  case d when 0 then 'MON' when 1 then 'TUE' when 2 then 'WED'
    when 3 then 'THU' when 4 then 'FRI' when 5 then 'SAT'
    when 6 then 'SUN' end, /* день */
  to_char(
    cast (cast (to_date ('30', 'MI') as decimal) * sh as date),
      'HH:MI') /* время начала */ || '-' ||
  to_char(to_date('00:30', 'HH:MI') +
    cast (cast (to_date ('30', 'MI') as decimal) * sh as date),
      'HH:MI') /* время окончания */
from
  (select level-1 d from $$$usr
    start with rowid=1 connect by level < 7), /* дни */
  (select level-1 sh from $$$usr
    start with rowid=1 connect by level < 48),
    /* получасовые промежутки */
  LINTER_SYSTEM_USER.$$$USR
where
  $$$S32=0 and $$$S34 like 'GUEST' and
  ((GetByte($$$S35,18+d*6+sh/8) &
    cast (power(2,mod(sh,8)) as int)) <> 0);

MON 01:30-02:00
FRI 01:30-02:00