En el documento
34- Personalizando el Formulario Web login se explicaba como personalizar el formulario de login en web.
Muchos de nosotros creamos nuestros formularios y hemos ido actualizando nuestros servidores.
El otro día configurando un servidor nuevo, me di cuenta que
hay nuevas variables para identificar nuevos errores ha hacer login.
En version R8 , existe
Internet Lockout, que permite configurar un nuevo limitado de login que al superarse se bloquea el usuario, así evitamos posibles fraudes.
Buenos vamos a nuestra base de datos
Domino Web Server Configurator
Abrimos nuestros
formularios personalizados Si hiciste una copia del formulario
$$LoginUserForm y simplemente le diste tu diseño, tendrás
un texto calculado Cuando se ha actualizado la plantilla al migrar nuestro servidor a R8, podremos observar como nuestra
formula ha cambiado con respecto al nuevo formulario. Simplemente coge el valor del texto calculado del formulario
$$LoginUserForm y
copialo en tus formularios personalizados.
Como puedes observar en las variables existen nuevas opciones, destacando
sLockedOrInvalid, que corresponde cuando tu
usuario ha sido bloqueado por superar el limite de intentos.
Ahora simplemente pon el texto que quieras.
Os pego el que tengo yo por si alguien lo quiere aprovechar.
sDefault := "Por favor identifiquese:";
sNotEnough := "%1, no esta autorizado %2." + @NewLine + @NewLine + "Por favor, haga login con un usuario con acceso suficiente:";
sInvalid := "Ha introducido un usuario o contraseña invalida "+ @NewLine + @NewLine + "Por favor, intentelo otra vez:";
sExpired := "Su sesión ha caducado. Vuelva a identificarse otra vez:";
sOutOfSync := "%1, su login ha sido invalidado por problema en la hora de los servidores." + @NewLine + @NewLine + "(Los servidores necesitan sincronizar su hora para resolver este problema.)" + @NewLine + @NewLine + "Vuelva a identificarse otra vez::";
sLockedOrInvalid := "Su cuenta ha sido bloqueada o es invalida." + @NewLine + @NewLine + "Vuelva a identificarse otra vez:";
"---DNT---";
User := @ProperCase(@Name([CN]; @UserName));
URL := @Right(redirectTo; "/");
URL := @If(@Contains(URL; "?"); @Left(URL; "?"); URL);
List := User:URL;
@For(n:=1; n<=@Elements(List); n:=n+1;
sNotEnough := @ReplaceSubstring(sNotEnough; "%" + @Text(n); List[n]);
sOutOfSync := @ReplaceSubstring(sOutOfSync; "%" + @Text(n); List[n])
);
@If( reasonType = "0"; sDefault;
reasonType = "1"; sNotEnough;
reasonType = "2"; sInvalid;
reasonType = "3"; sExpired;
reasonType = "4"; sOutOfSync;
reasonType = "5"; sLockedOrInvalid;
sDefault
)
juan carlos trigo diazauladominonotesring