;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: utils.lisp,v 1.8 2003/07/19 20:32:47 kevin Exp $
+;;;; $Id: utils.lisp,v 1.9 2003/08/10 17:56:44 kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
,result)))
(defun redirect-to-location (url)
- (write-header-line "Status" "301 Moved Permanently")
+ (write-header-line "Status" "307 Temporary Redirect")
(write-header-line "Location" url)
;;(write-header-line "Keep-Socket" "1")
;;(write-header-line "Connection" "Keep-Alive")