#!/usr/bin/env cgi-factor USING: assocs environment formatting io kernel sequences splitting xml xml.syntax xml.writer multiline ; IN: board-cgi : parse-cgi ( string -- assoc ) "&" split [ "=" split ] map ; : ?thread ( -- thread/f ) "QUERY_STRING" os-env parse-cgi "thread" of ; : ?board ( -- board/f ) "QUERY_STRING" os-env parse-cgi "board" of ; : favi-safe-comet ( src container -- ) ! "Avoiding Javascript, by using even more Javascript!" [[ ]] printf ; :: view-thread ( thread reply -- )

XML> pprint-xml thread "thread-wrapper" favi-safe-comet reply "reply-wrapper" favi-safe-comet ; : html-head ( -- xml ) XML> ; : board-index ( -- )

/roman/ - Romance Works

/meta/ - Site Discussion

XML> pprint-xml ; : board-return ( -- ) ?board "/cgi-bin/board.cgi?board=" prepend class="return"> Return? XML> pprint-xml ; : index-return ( -- ) Return to Index XML> pprint-xml ; ! == Script: "Content-type: text/html; charset=utf8\r\n" print html-head pprint-xml ?board [ "thread.cgi" "reply.cgi" [ "/cgi-bin/" "QUERY_STRING" os-env "?" prepend surround ] bi@ view-thread ] [ board-index ] if ?thread [ board-return ] [ index-return ] if