From edbfd4eaebb9cf74d610564d64c8c3f127a08fdf Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Mon, 9 Oct 2000 22:47:16 +0000
Subject: [PATCH] Added `redirector-resource' from MASH.

---
 src/main/resource.cl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/main/resource.cl b/src/main/resource.cl
index 8b37f36..6ae7d52 100644
--- a/src/main/resource.cl
+++ b/src/main/resource.cl
@@ -84,3 +84,18 @@
 	(return `(let ((,data-sym (parse-form-data ,request)))
 		   (let ,bindings
 		     ,@body)))))
+
+;;; Some further utility resources
+
+;;; Redirection
+
+(defclass redirector-resource (resource)
+  ((code :initarg :code :initform +HTTP-Code-Moved-Temporarily+
+         :reader redirector-resource-code)
+   (destination :initarg :destination
+                :reader redirector-resource-destination)))
+
+(defmethod access-resource ((resource redirector-resource) request)
+  (create-standard-response
+   request (redirector-resource-code resource)
+   :location (redirector-resource-destination resource)))