[claw-cvs] r150 - in trunk/main: claw-as/src claw-demo/src/frontend connectors/claw-hunchentoot-connector/src

[Andrea Chiumenti]

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)