//verifica login nRes is int = gpwCheckUser(LOGINUSER, SENHACRIPT)
// If the login failed IF nRes <> gpwOk and nRes <> 0
SWITCH nRes //1 CASE gpwError: Error("Error while initializing the groupware.") //2 CASE gpwUnknownUser: Error("Unknown user.") //3 CASE gpwInvalidPassword: Error("Invalid password") END
EndProgram() // erro
ELSE IF nRes = gpwOk and nRes = 0
Info("ok = gpwok")
END |