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
)
|