Monitoring Sessions








procedure TUniServerModule.UniGUIServerModuleControlPanelLogin(
ASession: TUniGUISession;
const AUser, APassword: string;
var LoginValid: Boolean;
LoginAttempt: Integer);
begin
if (AUser = 'valid admin user') and (APassword = 'strong pwd') then
begin
LoginValid := True;
if LowerCase(AUser) = 'admin' then
ASession.AllowSessionAdmin := True
else
ASession.AllowSessionAdmin := False;
end;
end;