picolisp

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:
M
lib/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)