result.error = Will return FALSE if the login is successful. result.RedirectURL Successful Login - Will contain the name of the page set as the redirect page after login from the web security configuration. If TargetPage has a value, result.RedirectURL will have the value from TargetPage. Failed Login - Will contain the name of the page set as the "Redirect page - login" from the web security settings.
A valid Userid for a user in the security system
A valid password for a user in clear text (not encrypted) .
Optional. The name of a page to navigate to after a successful login. This overrides any page defined in the security settings.
Log in user on a web page using supplied values. Returns <pointer>.error, <pointer>.RedirectURL. If error = .F. , RedirectURL will contain the target page. If error = .T., it will return the login redirect page.
The A5WS_Login_User() will login a user using the web security system. the UserID and Password must match the values saved in the security system for a valid user. If the login suceeds, Result.Error will return 'FALSE' and Result.RedirectURL will contain name of the page set as the "Redirect page after login" from the web the security settings . If TargetPage has a value, result.RedirectURL will have the value from TargetPage. If the login fails, Result.Error will return 'TRUE' and Result.RedirectURL will contain the page designated in the security settings as the "Redirect page - Login".
The following example attempts to login a user with a UserID = "firstname.lastname@example.org" and a password = "Password". This user does NOT exist in the system. The page designated as the login page in the security configuration is "login.a5w"
dim pResult as p pResult = a5ws_Login_User("email@example.com","Password") ?pResult = error = .T. RedirectURL = "login.a5w"
The following example attempts to login a user with a UserID = "firstname.lastname@example.org" and a password = "Password". This user DOES exist in the system. A TargetPage is supplied.
dim pResult as p pResult = a5ws_Login_User("email@example.com","Password","administration.a5w") ?pResult = error = .F. RedirectURL = "administration.a5w"
Note - once you have a value for RedirectURL, you need to redirect the user, for example:
if return.error = .f. response.redirect("index.a5w") ' login success page else response.redirect("message.a5w") ' login failed message page end if
Web applications only.