picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit d3ecafd0f0de4a70f2b8c0086f4eb56db57a9805
parent 3b6a5049942fce03ee5642bde631180e44fe48bf
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 28 Jan 2011 11:27:07 +0100

Reverted session IP adddress check
This was not a good idea. Conflicts with httpGate, home/main.l and/or *PRG
Diffstat:
Mlib/http.l | 14+++++---------
1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/lib/http.l b/lib/http.l @@ -1,9 +1,9 @@ -# 27jan11abu +# 24jan11abu # (c) Software Lab. Alexander Burger # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked # *Sock *Agent *ContLen *MPartLim *MPartEnd "*HtSet" -# *Post *Url *Timeout *SesId *SesAdr *ConId *ConAdr +# *Post *Url *Timeout *SesId *ConId # *Referer *Cookies "*Cookies" (default @@ -127,7 +127,6 @@ (setq *Port% (not *Gate) *SesId (pack (in "/dev/urandom" (rd 7)) "~") - *SesAdr *Adr *Sock (port *HPorts '*Port) ) (timeout *Timeout) ) ) @@ -184,7 +183,7 @@ (task (close S)) (off S) (throw "http") ) ) - (if (or (<> *ConId *SesId) (<> *ConAdr *SesAdr)) + (if (<> *ConId *SesId) (if *ConId (out S (http404)) (task (close S)) @@ -240,11 +239,8 @@ (use (L @X @Y Pil) (setq *Http1 (format (car @H)) *Chunked (gt0 *Http1) Pil) (if (index "~" @U) - (setq - *ConId (pack (head @ @U)) - @U (cdr (nth @U @)) - *ConAdr *Adr ) - (off *ConId *ConAdr) ) + (setq *ConId (pack (head @ @U)) @U (cdr (nth @U @))) + (off *ConId) ) (while (setq L (line)) (cond ((match '(~(chop "Host: ") . @X) L)