picolisp

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:
M
ersatz/picolisp.jar
 | 
0

M
lib/http.l
 | 
7
++++---
M
src64/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