gforth/httpd.fs - diff

Return to httpd.fs CVS log

Up to [gforth] / gforth

version 1.15, 2004/04/10 00:16:55	version 1.16, 2004/05/16 21:16:36
Line 112 Variable maxnum	Line 112 Variable maxnum
Variable htmldir	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-filename htmldir $!len drop
htmldir $@ s" ../" string-prefix?	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 $@ s" ~" string-prefix?	htmldir $@ s" ~" string-prefix?