;;;; 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.8 2003/07/19 20:32:47 kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
,result)))
(defun redirect-to-location (url)
- (write-header-line "Status" "302 Redirect")
+ (write-header-line "Status" "301 Moved Permanently")
(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*)