#! /usr/bin/gforth

create namebuffer 1024 allot
s" CHANGETHIS/home/sk/.www/" constant path-offset
namebuffer path-offset cmove

s" QUERY_STRING" getenv 5 - constant filename-len
5 + namebuffer path-offset + filename-len cmove

include CHANGETHIS/home/sk/devel/execmarkup.fs

s" Content-type: text/html" type cr cr
namebuffer path-offset filename-len + ' included catch
[if] 2drop namebuffer path-offset filename-len + w/o create-file
drop close-file drop [then]
depth [if] mm. [then]
" <p><a href=\"sendfs.cgi?page=" m.
s" QUERY_STRING" getenv drop 5 + filename-len type
" \">Edit page</a>" m.
bye