[Gd-chatter] r11773 - trunk/libraries/network/koala/sources/koala

[andreas at gwydiondylan.org]

Author: andreas
Date: Thu Apr  3 13:25:31 2008
New Revision: 11773

Modified:
   trunk/libraries/network/koala/sources/koala/errors.dylan
   trunk/libraries/network/koala/sources/koala/library-unix.dylan
   trunk/libraries/network/koala/sources/koala/urls.dylan
Log:
job: minor

Temporarily redirect.


Modified: trunk/libraries/network/koala/sources/koala/errors.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/errors.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/errors.dylan	Thu Apr  3 13:25:31 2008
@@ -136,6 +136,11 @@
     "The requested document has moved permanently to %s",
     location;
 
+define http-error moved-temporarily-redirect (<http-redirect-error>)
+    302
+    "The document has moved temporarily to %s",
+    loction;
+
 define http-error see-other-redirect (<http-redirect-error>)
     303 "See Other";
 

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	Thu Apr  3 13:25:31 2008
@@ -176,7 +176,8 @@
     count-query-values,
     application-error,
     current-url,
-    redirect-to;
+    redirect-to,
+    redirect-temporarily-to;
 
   // Virtual hosts
   create
@@ -260,6 +261,7 @@
 
   create
     moved-permanently-redirect,
+    moved-temporarily-redirect,
     see-other-redirect,
     unauthorized-error;
 

Modified: trunk/libraries/network/koala/sources/koala/urls.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/urls.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/urls.dylan	Thu Apr  3 13:25:31 2008
@@ -21,3 +21,15 @@
 define method redirect-to (url :: <url>)
   redirect-to(build-uri(url));
 end;
+
+define open generic redirect-temporarily-to (object :: <object>);
+
+define method redirect-temporarily-to (url :: <string>)
+  let headers = current-response().response-headers;
+  add-header(headers, "Location", url);
+  moved-temporarily-redirect(headers: headers);
+end method redirect-to;
+
+define method redirect-temporarily-to (url :: <url>)
+  redirect-to(build-uri(url));
+end;