Как автоматически переименовать пользователя WEB-поддержки сразу после регистрации на сайте?
Добавлено: Пт июн 01, 2018 4:02 pmВерсия сервера 7.0 и старше.
Используем событие OnRegistered:
Скрипт срабатывает на событие новой регистрации пользователя. Он проверяет, что новый пользователь имеет стандартную группу прав "WEB guests". Если да — переименовывает его, добавляя к нику префикс "(Веб клиент)" из текстовой константы.
Текст скрипта:
Используем событие OnRegistered:
Скрипт срабатывает на событие новой регистрации пользователя. Он проверяет, что новый пользователь имеет стандартную группу прав "WEB guests". Если да — переименовывает его, добавляя к нику префикс "(Веб клиент)" из текстовой константы.
Текст скрипта:
Код: Выделить всё
// ---------------------------------------
// Script created by Alexey Pikurov
// 01.06.2018 15:33:51
// ---------------------------------------
const
PREFIX = '(Веб клиент)';
procedure OnRegistered(iCID, iUIN: integer; var iRole: integer; var bBlocked: boolean);
var
sGroupName, sNickName: string;
x: integer;
begin
sGroupName := mGetRoleNameByID(iRole);
if sGroupName = 'WEB guests' then begin
sNickName := mGetUserAttribute(iUIN, 'InternalNickName');
if pos(PREFIX, sNickName) = 0 then mSetUserAttribute(iUIN, 'InternalNickName', PREFIX + ' ' + sNickName);
end;
end;
begin
end.