;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: utils.lisp,v 1.7 2003/07/16 20:40:43 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" "302 Redirect")
+ (write-header-line "Status" "307 Temporary Redirect")
(write-header-line "Location" url)
+ ;;(write-header-line "Keep-Socket" "1")
+ ;;(write-header-line "Connection" "Keep-Alive")
(write-string "end" *modlisp-socket*)
(write-char #\NewLine *modlisp-socket*)
(force-output *modlisp-socket*)