Author: achiumenti Date: Wed Oct 1 07:56:41 2008 New Revision: 98
Modified: trunk/main/claw/src/lisplet.lisp Log: several bugfixes and enhancements
Modified: trunk/main/claw/src/lisplet.lisp ============================================================================== --- trunk/main/claw/src/lisplet.lisp (original) +++ trunk/main/claw/src/lisplet.lisp Wed Oct 1 07:56:41 2008 @@ -258,5 +258,5 @@ (string-not-equal (claw-script-name) login-page-url)) (redirect-to-https (format nil "~a~a" *root-path* (lisplet-login-page lisplet)))) ((and sslport (not (= (claw-server-port) sslport))) - (redirect-to-https (format nil "~a~a" *root-path* (car protected-resource))) + (redirect-to-https (format nil "~a/~a" *root-path* (car protected-resource))) (throw 'handler-done nil)))))))))