Событие успешной регистрации нового пользователя.
procedure OnRegistered(iCID, iUIN: integer; var iRole: integer; var bBlocked: boolean);
begin
// your own code
end;
begin
end.
Вместо комментария может быть любой ваш код.
Параметр |
Тип |
Значение |
---|---|---|
iCID |
integer |
Connection ID клиента, уникальный сеансовый идентификатор в онлайн-структуре сетевых подключений к серверу; |
iUIN |
integer |
числовой идентификатор только что зарегистрированного пользователя; |
iRole |
integer |
индекс группы прав пользователя, число. Его можно изменить; |
bBlocked |
boolean |
изменяемый параметр. False (по умолчанию) — пользователю разрешено подключаться к серверу, True — учётная запись пользователя будет заблокирована. |
procedure OnRegistered(iCID, iUIN: integer; var iRole: integer; var bBlocked: boolean);
var
sGroupName: string;
x: integer;
begin
sGroupName := mGetRoleNameByID(iRole);
if sGroupName = 'Guests' then x := mGetRoleIDByName('MyGroupForAllNewUsers');
if x <> -1 then iRole := x;
end;
begin
end.
Скрипт "ловит" событие успешной регистрации нового пользователя и, если группа прав, которая ему назначена — "Guests", то автоматически переносит его в предварительно созданную группу прав "MyGroupForAllNewUsers".