Change default timeout for continuation responder. Update live updater

and todo list code for stream and read word changes.
cvs
Chris Double 2005-02-16 01:38:21 +00:00
parent a22dffcd62
commit c1ca6b761e
3 changed files with 8 additions and 8 deletions

View File

@ -35,7 +35,7 @@ USE: lists
: get-live-updater-js* ( stream -- string )
#! Read all lines from the stream, creating a string of the result.
dup freadln dup [ , "\n" , get-live-updater-js* ] [ drop fclose ] ifte ;
dup stream-readln dup [ , "\n" , get-live-updater-js* ] [ drop stream-close ] ifte ;
: get-live-updater-js ( filename -- string )
#! Return the liveUpdater javascript code as a string.

View File

@ -95,13 +95,13 @@ USE: hashtables
: read-todo ( -- <todo> )
#! Read a todo list from the current input stream.
read url-decode read url-decode <todo>
read str>number [
read-line url-decode read-line url-decode <todo>
read-line str>number [
dup
<namespace> [
read url-decode "yes" = "complete?" set
read url-decode "priority" set
read url-decode "description" set
read-line url-decode "yes" = "complete?" set
read-line url-decode "priority" set
read-line url-decode "description" set
] extend add-todo-item
] times ;

View File

@ -45,9 +45,9 @@ USE: inspector
#! Number of seconds to timeout continuations in
#! continuation table. This value will need to be
#! tuned. I leave it at 24 hours but it can be
#! higher/lower as needed. Default to 12 hours for
#! higher/lower as needed. Default to 15 minutes for
#! testing.
12 3600 * ;
900 ;
: redirect-enabled?
#! Set to true if you want the post-redirect-get pattern