Hay alguna manera de recibir sessions o leer cookies?
Veo como recibir en el querystring, pero no me gusta exponer información en el URL.
GRACIAS
Board index mod_harbour Sessions
Tengo una aplicación en clásico ASP.
En sus páginas guardo información en cookies.
En un PRG ejecuto la siguiente función y no puedo leer ninguna cookie.
¿Es así por diseño?
function GetCookies()
local hHeadersIn := AP_HeadersIn()
local cCookies := If( hb_HHasKey( hHeadersIn, "Cookie" ), hb_hGet( hHeadersIn, "Cookie" ), "" )
local aCookies := hb_aTokens( cCookies, ";" )
local cCookie, hCookies := {=>}
for each cCookie in aCookies
hb_HSet( hCookies, SubStr( cCookie, 1, At( "=", cCookie ) - 1 ),;
SubStr( cCookie, At( "=", cCookie ) + 1 ) )
next
return hCookies
Mi problema es que pasar parámetros en el URL hace muy fácil cambiarlos....
En Classic ASP encuentro Server.URLEncode()
¿Hay alguna función en Mod_Harbour para leer ésta información?
Disculpen tantos comentarios....
Leo que las cookies deben estar disponibles.
Ejecute la function SetCookie en los ejemplos, trato de leerla y no regresa nada....
¿Será un problema al leer cualquier cookie?
GRACIAS
Luis,
Revisa los ejemplos setcookie.prg y getcookie.prg:
live demo: (aqui funcionan correctamente)
https://www.modharbour.org/modharbour_samples/setcookie.prg
source code:
https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/setcookie.prg
https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/getcookie.prg
Revisa los ejemplos setcookie.prg y getcookie.prg:
live demo: (aqui funcionan correctamente)
https://www.modharbour.org/modharbour_samples/setcookie.prg
source code:
https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/setcookie.prg
https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/getcookie.prg
Antonio,
¡Muchas gracias!
Combine ambas funciones y no puedo leer la galleta.
Estoy usando IIS en Windows.
Esta es la respuesta
cookie created!
cookies: {""=>""}
Luis,
Estamos implementando unas funciones que faltan en mod_harbour IIS
Te avisamos en cuanto estén disponibles
gracias!
¡Muchas gracias!
Sabiendo que lo van a implementar puedo continuar mi programación y simular la información en la galleta.
Nuevamente… ¡Gracias!
No olviden avisarnos…
Luis,
Puedes obtener el cookie haciendo:
? AP_GetEnv( "HTTP_COOKIE" )
Puedes obtener el cookie haciendo:
? AP_GetEnv( "HTTP_COOKIE" )
function Main()
? ValToChar( GetCookies() )
return nil
function GetCookies()
local cCookies := AP_GetEnv( "HTTP_COOKIE" )
local aCookies := hb_aTokens( cCookies, "; " )
local cCookie, hCookies := {=>}
for each cCookie in aCookies
hb_HSet( hCookies, SubStr( cCookie, 1, At( "=", cCookie ) - 1 ),;
SubStr( cCookie, At( "=", cCookie ) + 1 ) )
next
return hCookiesHemos publicado una nueva versión que ya incluye las funciones de cookies 
Ahora hay que copiar libharbour.dll a c:\windows\System32\inetsrv junto con las DLLs (estan en el repo de mod_harbour):
libcurl.dll, libcrypto-1_1-x64.dll, libssl-1_1-x64.dl
Antonio.
Bajé e instalé los DLLs en c:\windows\system32\inetsrv
Todavía no leo la galleta
Gracias por todo tu trabajo, es asombroso....
Ejecuté ISSRESET
Mismo resulto.
cookie created!
cookies: {""=>""}
Antonio,
DISCULPA.... el nuevo código FUNCIONA. ¡Gracias nuevamente!
Muy bien
Luis,
hay una nueva versión de mod_harbour IIS con soporte de concurrencia (multiples peticiones a la vez) y además
ya no precisa copiar DLLs a ninguna carpeta
pues detecta desde donde se está ejecutando mod_harbour.dll y
busca ahí las DLLs.
https://github.com/FiveTechSoft/mod_harbour/tree/master/IIS/bin
hay una nueva versión de mod_harbour IIS con soporte de concurrencia (multiples peticiones a la vez) y además
ya no precisa copiar DLLs a ninguna carpeta
pues detecta desde donde se está ejecutando mod_harbour.dll ybusca ahí las DLLs.
https://github.com/FiveTechSoft/mod_harbour/tree/master/IIS/bin