httpsrv Como criar e usar session e cookie.

[ciacpd]

Olá Pessoal,
Estive fazendo uns testes no servidor uhttpd que vem junto com o harbour 3.2 pasta extras.
Até ai tudo bem funciona legal, só que gostaria de fazer um simples cadastro utilizando session para passar variáveis como parâmetros e não estou conseguindo nem criar as session e cookie para realizar as operações com banco de dados.
Se alguém já usou e for possível me passe uma orientação para que eu continue os teste.
Desde já obrigado.

[Kapiaba]

https://github.com/vszakats/harbour-cor ... ession.prg

https://github.com/harbour/core/blob/ma ... uhttpd.prg

https://github.com/vszakats/harbour-cor ... s/info.prg

[ciacpd]

João no exemplo info.prg linhas 68, 69, 72 e 73 da erro, mas não consigo ver a mensagem.
São estes mesmos arquivos dos links que me passou que estou testando.

[Kapiaba]

My good friend Daniel, você já sabe como funciona: POST o ERROR.LOG. Abs.

Dá erro... é muito subjetivo... Eu acho.... kkkkkkkkkkkkkkkkkkkkkk

Talvez, falte este programa aqui:

https://github.com/harbour/core/blob/ma ... cookie.prg

[Vlademiro]

Eu testei esses exemplos com sucesso, porém não estou com o projeto aqui no momento.

O que posso adiantar é que ele grava as sessões em uma pasta chamada session, se não me engano. Caso essa pasta não exista dentro da pasta do servidor você tem que criá-la manualmente.

[Vlademiro]

A estrutura do meu está assim

Código: Selecionar todos

uhttpd
      home
             cgi-bin
             css
             images
             js
             xsl
    logs
    modules
    sessions   <============== Esse eu criei
  

Os módulos são compilados assim : hbmk2 modules.hbp e os arquivos hrb ficam em cgi-bin dentro de home.

[ciacpd]

Olá Vlademiro, Obrigado vou testar.
João não é criado o log de erro, quando aparece aquela msg de error igual a do clipper, logo é atualizado alguns dados e bagunça a mensagem, e não fecha o programa quando dá erro, e não cria log nenhum de erro de programa só das páginas acessadas.

Coloquei um dashboard bootstrap sb admin 2 para testar e ficou show, agora o que eu quero é atualizar o painel de notificações acessando base de dados.

Editei a função abaixo para não precisar colocar o hrb ni arquivo ini, ficou mais prático

Código: Selecionar todos

STATIC FUNCTION FileUnAlias( cScript )

   LOCAL cFileName, x , xfileseek

   xfileseek:= "." + hb_ps()+'home/cgi-bin'+ cScript + '.hrb'
   xfileseek:=StrTran( xfileseek, "/", hb_ps() )

   // Checking if the request contains a Script Alias
   IF hb_HHasKey( s_hScriptAliases, cScript )
      // in this case I have to substitute the alias with the real file name
      cFileName := s_hScriptAliases[ cScript ]
      // substitute macros
      cFileName := StrTran( cFileName, "$(DOCROOT_DIR)", _SERVER[ "DOCUMENT_ROOT" ] )
      cFileName := StrTran( cFileName, "$(APP_DIR)", s_cApplicationRoot )
   ENDIF

   IF cFileName == NIL
      // Checking if the request contains an alias
      FOR EACH x IN s_hAliases
         IF x:__enumKey() == Left( cScript, Len( x:__enumKey() ) )
            cFileName := x + SubStr( cScript, Len( x:__enumKey() ) + 1 )
            // substitute macros
            cFileName := StrTran( cFileName, "$(DOCROOT_DIR)", _SERVER[ "DOCUMENT_ROOT" ] )
            cFileName := StrTran( cFileName, "$(APP_DIR)", s_cApplicationRoot )
            EXIT
         ENDIF
      NEXT
      // incluido para localizar arquivos *.hrb sem precisar incluir alias no ini
      IF cFileName == NIL
         IF file( xfileseek )
            cFileName := xfileseek
         endif
      endif
   ENDIF

   RETURN cFileName

[ciacpd]

Agora sim está criando o arquivo com o conteúdo da session.
Muito obrigado João(Kapiaba) e Vlademiro