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.
![](/NR13/Aulado13.nsf/6f9d3426a7ef2d9cc12574a600417642/fa005829c9c618d0c125789b0068c704/contenido/0.4BA?OpenElement&FieldElemFormat=gif)
Buenos vamos a nuestra base de datos Domino Web Server Configurator
Abrimos nuestros formularios personalizados
![](/NR13/Aulado13.nsf/6f9d3426a7ef2d9cc12574a600417642/fa005829c9c618d0c125789b0068c704/contenido/0.D0A?OpenElement&FieldElemFormat=png)
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.
![](/NR13/Aulado13.nsf/6f9d3426a7ef2d9cc12574a600417642/fa005829c9c618d0c125789b0068c704/contenido/0.2BE0?OpenElement&FieldElemFormat=png)
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.
![](/NR13/Aulado13.nsf/6f9d3426a7ef2d9cc12574a600417642/fa005829c9c618d0c125789b0068c704/contenido/0.8860?OpenElement&FieldElemFormat=gif)
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
)
|