Change default timeout for continuation responder. Update live updater
and todo list code for stream and read word changes.cvs
parent
a22dffcd62
commit
c1ca6b761e
|
|
@ -35,7 +35,7 @@ USE: lists
|
||||||
|
|
||||||
: get-live-updater-js* ( stream -- string )
|
: get-live-updater-js* ( stream -- string )
|
||||||
#! Read all lines from the stream, creating a string of the result.
|
#! 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 )
|
: get-live-updater-js ( filename -- string )
|
||||||
#! Return the liveUpdater javascript code as a string.
|
#! Return the liveUpdater javascript code as a string.
|
||||||
|
|
|
||||||
|
|
@ -95,13 +95,13 @@ USE: hashtables
|
||||||
|
|
||||||
: read-todo ( -- <todo> )
|
: read-todo ( -- <todo> )
|
||||||
#! Read a todo list from the current input stream.
|
#! Read a todo list from the current input stream.
|
||||||
read url-decode read url-decode <todo>
|
read-line url-decode read-line url-decode <todo>
|
||||||
read str>number [
|
read-line str>number [
|
||||||
dup
|
dup
|
||||||
<namespace> [
|
<namespace> [
|
||||||
read url-decode "yes" = "complete?" set
|
read-line url-decode "yes" = "complete?" set
|
||||||
read url-decode "priority" set
|
read-line url-decode "priority" set
|
||||||
read url-decode "description" set
|
read-line url-decode "description" set
|
||||||
] extend add-todo-item
|
] extend add-todo-item
|
||||||
] times ;
|
] times ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -45,9 +45,9 @@ USE: inspector
|
||||||
#! Number of seconds to timeout continuations in
|
#! Number of seconds to timeout continuations in
|
||||||
#! continuation table. This value will need to be
|
#! continuation table. This value will need to be
|
||||||
#! tuned. I leave it at 24 hours but it can 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.
|
#! testing.
|
||||||
12 3600 * ;
|
900 ;
|
||||||
|
|
||||||
: redirect-enabled?
|
: redirect-enabled?
|
||||||
#! Set to true if you want the post-redirect-get pattern
|
#! Set to true if you want the post-redirect-get pattern
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue