version 1.11, 2002/06/02 21:19:09
|
version 1.12, 2002/09/14 08:20:19
|
Line 113 Variable htmldir
|
Line 113 Variable htmldir
|
|
|
: rework-htmldir ( addr u -- addr' u' / ior ) |
: rework-htmldir ( addr u -- addr' u' / ior ) |
htmldir $! htmldir $@ compact.. htmldir $!len drop |
htmldir $! htmldir $@ compact.. htmldir $!len drop |
htmldir $@ 3 min s" ../" compare 0= |
htmldir $@ s" ../" string-prefix? |
IF -1 EXIT THEN \ can't access below current directory |
IF -1 EXIT THEN \ can't access below current directory |
htmldir $@ 1 min s" ~" compare 0= |
htmldir $@ s" ~" string-prefix? |
IF UserDir $@ htmldir dup $@ 2dup '/ scan '/ skip |
IF UserDir $@ htmldir dup $@ 2dup '/ scan '/ skip |
nip - nip $ins |
nip - nip $ins |
ELSE DocumentRoot $@ htmldir 0 $ins THEN |
ELSE DocumentRoot $@ htmldir 0 $ins THEN |
Line 144 Variable htmldir
|
Line 144 Variable htmldir
|
|
|
: .connection ( -- ) |
: .connection ( -- ) |
." Connection: " |
." Connection: " |
connection $@ s" Keep-Alive" compare 0= maxnum @ 0> and |
connection $@ s" Keep-Alive" str= maxnum @ 0> and |
IF connection $@ type cr |
IF connection $@ type cr |
." Keep-Alive: timeout=15, max=" maxnum @ 0 .r cr |
." Keep-Alive: timeout=15, max=" maxnum @ 0 .r cr |
-1 maxnum +! ELSE ." close" cr maxnum off THEN ; |
-1 maxnum +! ELSE ." close" cr maxnum off THEN ; |