Author: achiumenti Date: Fri Nov 14 12:25:31 2008 New Revision: 145
Log: fixinig welcome page redirection
Modified: trunk/main/claw-as/src/lisplet.lisp
Modified: trunk/main/claw-as/src/lisplet.lisp ============================================================================== --- trunk/main/claw-as/src/lisplet.lisp (original) +++ trunk/main/claw-as/src/lisplet.lisp Fri Nov 14 12:25:31 2008 @@ -215,8 +215,8 @@ (clawserver-proxy-https-port *clawserver*) (claw-server-port))))) (claw-redirect (if (ends-with-subseq "/" uri) - (format nil "~aindex.html" uri) - (format nil "~a/index.html" uri)) + (format nil "~a~a" uri (subseq welcome-page 1)) + (format nil "~a/~a" uri (subseq welcome-page 1))) :protocol protocol :port port))) (lisplet-dispatch-request lisplet uri)))))