[Gd-chatter] r11244 - in trunk/libraries/network: koala/sources/koala web-framework

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Wed Mar 21 19:56:05 2007
New Revision: 11244

Modified:
   trunk/libraries/network/koala/sources/koala/library-unix.dylan
   trunk/libraries/network/koala/sources/koala/library.dylan
   trunk/libraries/network/koala/sources/koala/server.dylan
   trunk/libraries/network/web-framework/library.dylan
Log:
Job: koala
fixed PUT request


Modified: trunk/libraries/network/koala/sources/koala/library-unix.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/library-unix.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/library-unix.dylan	Wed Mar 21 19:56:05 2007
@@ -251,6 +251,7 @@
     resource-not-found-error,
     unimplemented-error,
     internal-server-error,
+    bad-request,
     request-url,
     request-url-tail,
     register-auto-responder;

Modified: trunk/libraries/network/koala/sources/koala/library.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/library.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/library.dylan	Wed Mar 21 19:56:05 2007
@@ -251,6 +251,7 @@
     resource-not-found-error,
     unimplemented-error,
     internal-server-error,
+    bad-request,
     request-url,
     request-url-tail,
     register-auto-responder;

Modified: trunk/libraries/network/koala/sources/koala/server.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/server.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/server.dylan	Wed Mar 21 19:56:05 2007
@@ -624,7 +624,8 @@
                               headers: request.request-headers);
   end;
   process-incoming-headers(request);
-  if (request.request-method == #"post")
+  if (request.request-method == #"post" |
+      request.request-method == #"put")
     read-request-content(request);
   end;
 end read-request;

Modified: trunk/libraries/network/web-framework/library.dylan
==============================================================================
--- trunk/libraries/network/web-framework/library.dylan	(original)
+++ trunk/libraries/network/web-framework/library.dylan	Wed Mar 21 19:56:05 2007
@@ -152,7 +152,7 @@
               parse-document, root, <element>,
               name-setter => xml-name-setter};
   use simple-xml;
-
+  use koala;
   use object-table;
   use storage;
   use web-framework-macro;