Clipper On Line • Ver Tópico - Letodb -> leto_users

Letodb -> leto_users

Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.

Moderador: Moderadores

 

Letodb -> leto_users

Mensagempor asimoes » 22 Set 2015 18:52

Pessoal,

Estou qurendo testar um acesso ao servidor letodb informando usuário e senha:

Meu código de teste é esse:

cServidorDB:='//'+cIpAddServer+':'+cPortaServer+HB_PS()

DO WHILE Leto_Connect( cServidorDB, "admin", "senha"   ) == -1
nRes := leto_Connect_Err()
      IF nRes == LETO_ERR_LOGIN
         hwg_MsgStop("Login failed","Erro")
      ELSEIF nRes == LETO_ERR_RECV
          hwg_MsgStop("Recv Error","Erro")
      ELSEIF nRes == LETO_ERR_SEND
          hwg_MsgStop("Send Error","Erro")
      ELSE
          hwg_MsgStop("No connection","Errro"
      ENDIF
      hwg_DoEvents()
ENDDO


No letodb.ini

Habilitei:

; if 1, user authentication is necessary to
; login to the server;
Pass_for_Login = 1

Tem também Pass_File = "leto_users"

É neste arquivo que se grava os usuários/senhas para acesso?

Já procurei nao google e não achei uma dica sequer.
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4154
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 292 vezes
Mens.Curtidas: 208 vezes

Letodb -> leto_users

Mensagempor esbasso » 28 Set 2015 22:14

Não tentou isso

4.2 Authentication

To turn authentication subsystem on you need to set one of the following
letodb.ini parameters to 1: Pass_for_Login, Pass_for_Manage, Pass_for_Data. But before
you need to create, at least, one user with admin rights, because when authentication
subsystem works, only authenticated users with admin rights are able to add/change users
and passwords.
To add a user, you need to include a call of LETO_USERADD() in your client side
program, for example:

LETO_USERADD( "admin", "secret:)", "YYY" )

where "YYY" is a string, which gives rights to admin, manage and write access. You may
also use the utils/manager/console.prg program to set or change authentication data.

Pelo que entendi é necessário primeiro criar um usuario com direitos administrativos e depois adicionar os demais usuarios
No ini tem de ter
Pass_File = "leto_users" - the path and name of users info file;
Luis Fernando Basso
Desenvolvedor VFP + XHARBOUR + HWGUI
lfbasso@gmail.com
http://www.engersoft.com.br
esbasso
Colaborador

Colaborador
 
Mensagens: 320
Data de registro: 24 Jan 2007 16:49
Cidade/Estado: CHAPECO/SC
Curtiu: 0 vez
Mens.Curtidas: 4 vezes

Letodb -> leto_users

Mensagempor asimoes » 29 Set 2015 09:45

Olá Esbasso,

Fiz o seguinte:

No letodb.ini

; if 1, user authentication is necessary to
; login to the server;
Pass_for_Login = 1

Tentei:

LETO_USERADD( "admin", "secret:)", "YYY" )

Antes do

DO WHILE Leto_Connect( cServidorDB, "admin", "secret:)" ) == -1
      nRes := leto_Connect_Err()
      IF nRes == LETO_ERR_LOGIN
         hwg_MsgStop("Login failed")
         lConnect:=.F.
         EXIT
      ELSEIF nRes == LETO_ERR_RECV
         hwg_MsgStop("Recv Error")
         lConnect:=.F.
         EXIT
      ELSEIF nRes == LETO_ERR_SEND
         hwg_MsgStop("Send Error")
         lConnect:=.F.
         EXIT
      ELSE
         hwg_MsgStop("No connection")
         lConnect:=.F.
         EXIT
      ENDIF
      hwg_DoEvents()
   ENDDO


E sempre dá Login failed
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4154
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 292 vezes
Mens.Curtidas: 208 vezes

Letodb -> leto_users

Mensagempor asimoes » 29 Set 2015 09:49

O que eu não entendi é como informar os usuários no leto_users
No letodb.log dá: ERROR! ParseCommand()
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4154
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 292 vezes
Mens.Curtidas: 208 vezes




Retornar para Banco de Dados

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro