Sessions

[luiscambuston]

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

[luiscambuston]

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

[luiscambuston]

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?

[luiscambuston]

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

[Antonio Linares]

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

[luiscambuston]

Antonio,

¡Muchas gracias!

Combine ambas funciones y no puedo leer la galleta.

Estoy usando IIS en Windows.

Esta es la respuesta

cookie created!

cookies: {""=>""}

[Antonio Linares]

Luis,

Estamos implementando unas funciones que faltan en mod_harbour IIS

Te avisamos en cuanto estén disponibles

gracias!

[luiscambuston]

¡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…

[Antonio Linares]

Luis,

Puedes obtener el cookie haciendo:

? AP_GetEnv( "HTTP_COOKIE" )

Code: Select all  Expand view

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 hCookies

[Antonio Linares]

Hemos 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

[luiscambuston]

Antonio.

Bajé e instalé los DLLs en c:\windows\system32\inetsrv

Todavía no leo la galleta

Gracias por todo tu trabajo, es asombroso....

[luiscambuston]

Ejecuté ISSRESET

Mismo resulto.

cookie created!

cookies: {""=>""}

[luiscambuston]

Antonio,

DISCULPA.... el nuevo código FUNCIONA. ¡Gracias nuevamente!

[Antonio Linares]

Muy bien

[Antonio Linares]

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