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 57981f41e32813848e2d7e99513bff6e71fed9c8
parent 1b7fad32d16b85c1856f34eba7fa11a806060aad
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 28 Jan 2011 16:22:02 +0100

Corrected version of session IP adddress check
Diffstat:
Mersatz/picolisp.jar | 0
Mlib/http.l | 7++++---
Msrc64/version.l | 2+-
3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar Binary files differ. diff --git a/lib/http.l b/lib/http.l @@ -1,9 +1,9 @@ -# 24jan11abu +# 28jan11abu # (c) Software Lab. Alexander Burger # *Home *Gate *Host *Port *Port1 *Port% *Http1 *Chunked # *Sock *Agent *ContLen *MPartLim *MPartEnd "*HtSet" -# *Post *Url *Timeout *SesId *ConId +# *Post *Url *Timeout *SesAdr *SesId *ConId # *Referer *Cookies "*Cookies" (default @@ -126,6 +126,7 @@ (unless *SesId (setq *Port% (not *Gate) + *SesAdr *Adr *SesId (pack (in "/dev/urandom" (rd 7)) "~") *Sock (port *HPorts '*Port) ) (timeout *Timeout) ) ) @@ -183,7 +184,7 @@ (task (close S)) (off S) (throw "http") ) ) - (if (<> *ConId *SesId) + (if (or (<> *ConId *SesId) (and *SesAdr (<> @ *Adr))) (if *ConId (out S (http404)) (task (close S)) diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ # 28jan11abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 5 10) +(de *Version 3 0 5 11) # vi:et:ts=3:sw=3