[Алексей Пикуров]

В константах перечисляете названия конференций, в которых включено ограничение, и группы прав, кому разрешено писать в эти конференции. Все остальные — блокируются. В консоль MyChat Client пользователя пишется уведомление, опционально.

Скрипт "навешивается" на событие OnConfMessage:

OnlyAdvUsersMsgScript.png

OnlyAdvUsersMsgScriptResult.png

Код: Выделить всё

// ---------------------------------------
// Script created by Alexey Pikurov ([email protected])
// 17.01.2021 12:24:45
// ---------------------------------------
const
  NOTIFY_FLAG = true; // true/false: уведомлять пользователя, что он не может писать сообщение в канал
  RESTRICTED_CONFS = '|main|work|sales|Главный|';
  ALLOWED_ROLES    = '|Администраторы|Операторы|';
  
function OnConfMessage(iCID, iUIN, iUID, iMsgType: integer; sConfName, sMsg: string): boolean;
var
  sRoleName: string;
  bFlag: boolean;
begin
  bFlag := true;
  
    if pos('|' + sConfName + '|', RESTRICTED_CONFS) <> 0 then begin
      sRoleName := mGetUserRoleName(iUIN);
    
        if pos('|' + sRoleName + '|', ALLOWED_ROLES) = 0 then begin
          bFlag := false;
          
            if NOTIFY_FLAG then 
              mSendCustomMsgToClientConsoleByCID(iCID, 
                                                 'Извините, вы не можете отправлять сообщения в конференцию #' + sConfName,
                                                 'Status', true, true, 74);
        end;  
    end;
    
  result := bFlag;  
end;

begin

end.

У вас нет необходимых прав для просмотра вложений в этом сообщении.

Team lead
Чат со мной

Подскажите пожалуйста, что я делаю не так? Состоящим в группе "Администраторы" и включив следующий скрипт, мне выдает как и всем сообщение о невозможности отправки.

Код: Выделить всё

// ---------------------------------------
// Script created by Alexey Pikurov ([email protected])
// 17.01.2021 12:24:45
// ---------------------------------------
const
  NOTIFY_FLAG = true; // true/false: уведомлять пользователя, что он не может писать сообщение в канал
  RESTRICTED_CONFS = '|Общая УДМС|';
  ALLOWED_ROLES    = '|Администраторы|Руководители|Специалист по кадрам|';
  
function OnConfMessage(iCID, iUIN, iUID, iMsgType: integer; sConfName, sMsg: string): boolean;
var
  sRoleName: string;
  bFlag: boolean;
begin
  bFlag := true;
  
    if pos('|' + sConfName + '|', RESTRICTED_CONFS) <> 0 then begin
      sRoleName := mGetUserRoleName(iUIN);
    
        if pos('|' + sConfName + '|', ALLOWED_ROLES) = 0 then begin
          bFlag := false;
          
            if NOTIFY_FLAG then 
              mSendCustomMsgToClientConsoleByCID(iCID, 
                                                 'Извините, вы не можете отправлять сообщения в конференцию #' + sConfName,
                                                 'Status', true, true, 74);
        end;  
    end;
    
  result := bFlag;  
end;

begin

end.

[Алексей Пикуров]

Чтобы ответить на этот вопрос, включите логирование и посмотрите, в каком месте скрипт работает не так, как вам хочется.

Team lead
Чат со мной

[Алексей Пикуров]

Могу предположить, что группа прав вашего пользователя не попадает в перечисленный список, скорее всего.

Team lead
Чат со мной

В группе Администраторы....

У вас нет необходимых прав для просмотра вложений в этом сообщении.

[Алексей Пикуров]

Залогируйте iUIN, iUID, sConfName и sRoleName в файл внутри скрипта и посмотрите, что там за данные в момент активации события, чтобы понять, что не так с логикой.

Team lead
Чат со мной

[Алексей Пикуров]

А, всё понятно. Вас не смущает строчка?

Код: Выделить всё

if pos('|' + sConfName + '|', ALLOWED_ROLES) = 0 then begin

Вы ищете, разрешена ли роль, но подставляете туда название конференции.

Team lead
Чат со мной

Так это же с первого сообщения топика скрипт?)

[Алексей Пикуров]

Да, вероятно, опечатка. Поправили сообщение.

Team lead
Чат со мной

[Алексей Пикуров]

Вы же знаете, что весь код в интернете — это г....о Всегда читайте и думайте, что он делает. Все ошибаются.

Team lead
Чат со мной

Спасибо!

[Алексей Пикуров]

Всегда пожалуйста.

Team lead
Чат со мной