Actualizar nuestros formularios personalizados para el login en web
Juan Carlos Trigo Díaz  Mayo 25 2011
Juan Carlos Trigo Díaz  Mayo 25 2011
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.
Image:Actualizar nuestros formularios personalizados para el login en web

Buenos vamos a nuestra base de datos Domino Web Server Configurator

Abrimos
nuestros formularios personalizados

Image:Actualizar nuestros formularios personalizados para el login en web
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.

Image:Actualizar nuestros formularios personalizados para el login en web

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.

Image:Actualizar nuestros formularios personalizados para el login en web

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

Actualizar nuestros formularios personalizados para el login en web