Change default timeout for continuation responder. Update live updater

and todo list code for stream and read word changes.

diff --git a/contrib/cont-responder/live-updater.factor b/contrib/cont-responder/live-updater.factor
index d043398347ea357f454d875852a2f69eef9c13c1..16c28921a14c4683c7cb559ca46ee2c5e4079ad1 100644 (file)
--- a/contrib/cont-responder/live-updater.factor
+++ b/contrib/cont-responder/live-updater.factor
@@ -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.

diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor
index 063cadc9752480db09c7e1584a5270b454e9ae1c..e748f8536b18a969445c11c68b77d716b38d79f3 100644 (file)
--- a/contrib/cont-responder/todo.factor
+++ b/contrib/cont-responder/todo.factor
@@ -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 ;
 

diff --git a/library/httpd/cont-responder.factor b/library/httpd/cont-responder.factor
index 6bde893602bcc19678e5b29c4fdb880325686679..0014567479729727b75382fd8e0aa5b73570859e 100644 (file)
--- a/library/httpd/cont-responder.factor
+++ b/library/httpd/cont-responder.factor
@@ -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