[claw-cvs] r145 - trunk/main/claw-as/src

[Andrea Chiumenti]

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)))))