Author: achiumenti Date: Sat Dec 13 14:37:20 2008 New Revision: 150

Log: several bug fixes

Modified: trunk/main/claw-as/src/mime-type.lisp trunk/main/claw-as/src/packages.lisp trunk/main/claw-demo/src/frontend/auth.lisp trunk/main/claw-demo/src/frontend/main.lisp trunk/main/connectors/claw-hunchentoot-connector/src/packages.lisp

Modified: trunk/main/claw-as/src/mime-type.lisp ============================================================================== --- trunk/main/claw-as/src/mime-type.lisp (original) +++ trunk/main/claw-as/src/mime-type.lisp Sat Dec 13 14:37:20 2008 @@ -293,7 +293,7 @@ ("text/html" "html" "htm" "shtml") ("text/iuls" "uls") ("text/mathml" "mml") - ("text/plain" "asc" "txt" "text" "diff" "pot") + ("text/plain" "asc" "txt" "text" "diff" "pot" "log") ("text/richtext" "rtx") ("text/rtf" "rtf") ("text/scriptlet" "sct" "wsc")

Modified: trunk/main/claw-as/src/packages.lisp ============================================================================== --- trunk/main/claw-as/src/packages.lisp (original) +++ trunk/main/claw-as/src/packages.lisp Sat Dec 13 14:37:20 2008 @@ -183,6 +183,7 @@

#:principal #:current-principal + #:current-config #:principal-name #:principal-roles #:user-locale

Modified: trunk/main/claw-demo/src/frontend/auth.lisp ============================================================================== --- trunk/main/claw-demo/src/frontend/auth.lisp (original) +++ trunk/main/claw-demo/src/frontend/auth.lisp Sat Dec 13 14:37:20 2008 @@ -41,7 +41,7 @@ (:documentation "Authorization configuration for application atuhentication and authorization management."))

-(defmethod configuration-login ((configuration configuration)) +(defmethod configuration-login ((configuration demo-configuration)) (let ((claw-demo-backend:*claw-demo-db* (db-connect))) (multiple-value-bind (user password) (if (eq (lisplet-authentication-type *claw-current-lisplet*) :basic)

Modified: trunk/main/claw-demo/src/frontend/main.lisp ============================================================================== --- trunk/main/claw-demo/src/frontend/main.lisp (original) +++ trunk/main/claw-demo/src/frontend/main.lisp Sat Dec 13 14:37:20 2008 @@ -42,7 +42,7 @@ (defvar *ht-connector* (make-instance 'hunchentoot-connector :address "localhost" :port 4242 - :sslport 4343 + :sslport nil;4343 #| :ssl-certificate-file #P "/etc/apache2/ssl/server.crt" :ssl-privatekey-file #P "/etc/apache2/ssl/server.key"

Modified: trunk/main/connectors/claw-hunchentoot-connector/src/packages.lisp ============================================================================== --- trunk/main/connectors/claw-hunchentoot-connector/src/packages.lisp (original) +++ trunk/main/connectors/claw-hunchentoot-connector/src/packages.lisp Sat Dec 13 14:37:20 2008 @@ -1,4 +1,4 @@ -y(in-package :cl-user) +(in-package :cl-user)

(defpackage :claw-hunchentoot-connector (:use :cl :claw-as)