claw-cvs November 2008

claw-cvs@common-lisp.net

1 participants
17 discussions

[claw-cvs] r148 - trunk/main/claw-as/src
by Andrea Chiumenti 19 Nov '08

19 Nov '08

Author: achiumenti Date: Wed Nov 19 22:36:18 2008 New Revision: 148 Log: redirect-to-https bugfix (when no ssl port is defined) 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 Wed Nov 19 22:36:18 2008 @@ -232,11 +232,13 @@ "Redirects a request sent through http using https" (let* ((connector (clawserver-connector *clawserver*)) (path (or uri (claw-request-uri))) - (sslport (if (claw-proxified-p) - (clawserver-proxy-https-port *clawserver*) - (connector-sslport connector)))) - (claw-redirect path :host (claw-host-name) :port sslport - :protocol :https))) + (sslport (and (connector-sslport connector) (if (claw-proxified-p) + (clawserver-proxy-https-port *clawserver*) + (connector-sslport connector))))) + (claw-redirect path :host (claw-host-name) :port (or sslport (connector-port connector)) + :protocol (if sslport + :https + :http)))) (defmethod lisplet-check-authorization ((lisplet lisplet)) (let* ((connector (clawserver-connector *clawserver*))

1 0

[claw-cvs] r147 - trunk/main/claw-as/src
by Andrea Chiumenti 19 Nov '08

19 Nov '08

Author: achiumenti Date: Wed Nov 19 22:29:28 2008 New Revision: 147 Log: typo bug 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 Wed Nov 19 22:29:28 2008 @@ -219,7 +219,7 @@ welcome-page)) :protocol protocol :port port))) - (lisplet-dispatch-request lisplet uri))))) + (lisplet-dispatch-request lisplet uri)))) (defmethod lisplet-protect ((lisplet lisplet) location roles) (let ((protected-resources (lisplet-protected-resources lisplet)))

1 0

[claw-cvs] r146 - trunk/main/claw-as/src
by Andrea Chiumenti 14 Nov '08

14 Nov '08

Author: achiumenti Date: Fri Nov 14 12:27:54 2008 New Revision: 146 Log: code cleanup 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:27:54 2008 @@ -214,9 +214,9 @@ (if (claw-proxified-p) (clawserver-proxy-https-port *clawserver*) (claw-server-port))))) - (claw-redirect (if (ends-with-subseq "/" uri) - (format nil "~a~a" uri (subseq welcome-page 1)) - (format nil "~a/~a" uri (subseq welcome-page 1))) + (claw-redirect (format nil "~a~a" uri (if (ends-with-subseq "/" uri) + (subseq welcome-page 1) + welcome-page)) :protocol protocol :port port))) (lisplet-dispatch-request lisplet uri)))))

1 0

[claw-cvs] r145 - trunk/main/claw-as/src
by Andrea Chiumenti 14 Nov '08

14 Nov '08

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

1 0

[claw-cvs] r144 - trunk/main/claw-as/src
by Andrea Chiumenti 14 Nov '08

14 Nov '08

Author: achiumenti Date: Fri Nov 14 12:20:46 2008 New Revision: 144 Log: fixed 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:20:46 2008 @@ -203,7 +203,22 @@ (lisplet-check-authorization lisplet) (when (= (claw-return-code) +http-ok+) (if (and welcome-page (or (string= uri base-path) (string= uri (concatenate 'string base-path "/")))) - (funcall (cdr (assoc welcome-page (lisplet-pages lisplet)))) + (let* ((protocol (if (= (claw-server-port) + (connector-port (clawserver-connector *clawserver*))) + :http + :https)) + (port (if (equal protocol :http) + (if (claw-proxified-p) + (clawserver-proxy-http-port *clawserver*) + (claw-server-port)) + (if (claw-proxified-p) + (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)) + :protocol protocol + :port port))) (lisplet-dispatch-request lisplet uri))))) (defmethod lisplet-protect ((lisplet lisplet) location roles)

1 0

[claw-cvs] r143 - trunk/main/claw-as/src
by Andrea Chiumenti 13 Nov '08

13 Nov '08

Author: achiumenti Date: Thu Nov 13 07:27:04 2008 New Revision: 143 Log: chancged default connector http and https ports to 4080 and 4443 Modified: trunk/main/claw-as/src/connector.lisp Modified: trunk/main/claw-as/src/connector.lisp ============================================================================== --- trunk/main/claw-as/src/connector.lisp (original) +++ trunk/main/claw-as/src/connector.lisp Thu Nov 13 07:27:04 2008 @@ -216,7 +216,7 @@ (address :initarg :address :accessor connector-address :documentation "The address whe the connector is bound to")) - (:default-initargs :port 80 :sslport 443 + (:default-initargs :port 4080 :sslport 4443 :address *claw-default-server-address* :name 'connector) (:documentation "CONNECTOR is an interface, so you cannot directly use it.

1 0

[claw-cvs] r142 - trunk/main/connectors/hunchentoot
by Andrea Chiumenti 12 Nov '08

12 Nov '08

Author: achiumenti Date: Wed Nov 12 07:54:27 2008 New Revision: 142 Log: deletin old package, the package has moved to claw-as Removed: trunk/main/connectors/hunchentoot/

1 0

[claw-cvs] r141 - trunk/main/claw
by Andrea Chiumenti 12 Nov '08

12 Nov '08

Author: achiumenti Date: Wed Nov 12 07:53:15 2008 New Revision: 141 Log: deletin old package, the package has moved to claw-as Removed: trunk/main/claw/

1 0

[claw-cvs] r140 - in trunk/main/claw.i18n: . src
by Andrea Chiumenti 12 Nov '08

12 Nov '08

Author: achiumenti Date: Wed Nov 12 07:50:49 2008 New Revision: 140 Log: dependencies update Modified: trunk/main/claw.i18n/claw.i18n.asd trunk/main/claw.i18n/src/packages.lisp Modified: trunk/main/claw.i18n/claw.i18n.asd ============================================================================== --- trunk/main/claw.i18n/claw.i18n.asd (original) +++ trunk/main/claw.i18n/claw.i18n.asd Wed Nov 12 07:50:49 2008 @@ -30,8 +30,8 @@ (asdf:defsystem :claw.i18n :name "claw.i18n" :author "Andrea Chiumenti" - :description "Localization library." - :depends-on (:closer-mop :alexandria :cl-ppcre :cl-fad :local-time :split-sequence :parenscript :bordeaux-threads :flexi-streams :md5) + :description "Localization service for CLAW application server." + :depends-on (:claw-as :local-time) :components ((:module src :components ((:file "packages") (:file "i18n" :depends-on ("packages")) Modified: trunk/main/claw.i18n/src/packages.lisp ============================================================================== --- trunk/main/claw.i18n/src/packages.lisp (original) +++ trunk/main/claw.i18n/src/packages.lisp Wed Nov 12 07:50:49 2008 @@ -31,7 +31,7 @@ (defpackage :claw.i18n - (:use :cl :claw :local-time) + (:use :cl :claw-as :local-time) (:shadow :flatten) (:documentation "A service for CLAW application server, that performs internationalization \(i18n)") (:export #:number-format-grouping-separator

1 0

[claw-cvs] r139 - in trunk/main/claw-html.dojo: . src
by Andrea Chiumenti 12 Nov '08

12 Nov '08

Author: achiumenti Date: Wed Nov 12 07:47:21 2008 New Revision: 139 Log: dependencies update Modified: trunk/main/claw-html.dojo/claw-html.dojo.asd trunk/main/claw-html.dojo/src/packages.lisp Modified: trunk/main/claw-html.dojo/claw-html.dojo.asd ============================================================================== --- trunk/main/claw-html.dojo/claw-html.dojo.asd (original) +++ trunk/main/claw-html.dojo/claw-html.dojo.asd Wed Nov 12 07:47:21 2008 @@ -31,7 +31,7 @@ :name "claw-html.dojo" :author "Andrea Chiumenti" :description "claw dojo-1.1.0 integration" - :depends-on (:claw :claw-html :parenscript) + :depends-on (:claw-as :claw-html :parenscript) :components ((:module src :components ((:file "packages") (:file "misc" :depends-on ("packages")) Modified: trunk/main/claw-html.dojo/src/packages.lisp ============================================================================== --- trunk/main/claw-html.dojo/src/packages.lisp (original) +++ trunk/main/claw-html.dojo/src/packages.lisp Wed Nov 12 07:47:21 2008 @@ -31,7 +31,7 @@ (defpackage :claw-html.dojo (:nicknames :dojo) - (:use :cl :claw :claw-html :parenscript) + (:use :cl :claw-as :claw-html :parenscript) (:export :*dojo-directory-name* :djuser-locale :djwidget-dojo-type

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

claw-cvs November 2008