;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: package.lisp,v 1.6 2003/07/16 20:40:43 kevin Exp $
+;;;; $Id: package.lisp,v 1.7 2003/07/19 20:32:47 kevin Exp $
;;;; *************************************************************************
(in-package #:cl-user)
#:*number-worker-requests*
#:*number-server-requests*
#:*ml-server*
+ #:*close-modlisp-socket*
;; base.lisp
#:modlisp-start
;;;; 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*)