Changeset 2725

Timestamp:

03/12/08 14:36:30 (10 months ago)

Author:

ksprotte

Message:

some more fixes to get bos running on trunk

Files:

• trunk/projects/bos/m2/m2.lisp (modified) (1 diff)
• trunk/projects/bos/start.lisp (modified) (1 diff)
• trunk/projects/bos/web/boi-handlers.lisp (modified) (1 diff)
• trunk/projects/bos/web/sponsor-handlers.lisp (modified) (2 diffs)
• trunk/projects/bos/web/webserver.lisp (modified) (2 diffs)

trunk/projects/bos/m2/m2.lisp

@@ -191 +191 @@
-
-(defmethod bknr.web:authorized-p ((handler editor-only-handler))
-bknr.web:*user*
+(bknr.web:bknr-session-user)
-
-;;;; CONTRACT

trunk/projects/bos/start.lisp

@@ -30 +30 @@
-;;; load bos project
-(asdf:oos 'asdf:load-op :bos.web)
+(mapcar #'cl-gd::load-foreign-library   ; for now...
+        '("/usr/lib/libcrypto.so"
+          "/usr/lib/libssl.so"
+          "/usr/local/lib/libgd.so"
+          ))
-(format t "BOS Online-System~%")
-;;; slime

trunk/projects/bos/web/boi-handlers.lisp

@@ -66 +66 @@
-          (contract-set-paidp contract (format nil "~A: manually set paid by ~A"
-                                               (format-date-time)
-bknr.web:*user*
+(bknr.web:bknr-session-user)
-          (when name
-            (setf (user-full-name (contract-sponsor contract)) name))))

trunk/projects/bos/web/sponsor-handlers.lisp

@@ -112 +112 @@
-                                    :paidp (format nil "~A: manually created by ~A"
-                                                   (format-date-time (get-universal-time))
-bknr.web:*user*
+(bknr.web:bknr-session-user)
-                                    :date (date-to-universal date))))
-      (contract-issue-cert contract name :address address :language language)
@@ -241 +241 @@
-            (sponsor-set-country (contract-sponsor contract) country)
-            (contract-set-paidp contract (format nil "~A: wire transfer processed by ~A"
-bknr.web:*user*
+(bknr.web:bknr-session-user)
-            (when email
-              (html (:p "Sending instruction email to " (:princ-safe email)))

trunk/projects/bos/web/webserver.lisp

@@ -122 +122 @@
-(defmethod handle-object ((handler certificate-handler) contract)
-  (unless contract
-bknr.web:*user*
+(bknr.web:bknr-session-user)
-  (redirect (format nil "/certificates/~D.pdf" (store-object-id contract))))
-
@@ -227 +227 @@
-                                        ("/cancel-contract" cancel-contract-handler)
-                                        ("/statistics" statistics-handler)
-
-
+
-                                        ("/" redirect-handler
-                                         :to "/index")
-                                        ("/index" index-handler)
+                                        user
+                                        images
+                                        stats
-                                        ("/" worldpay-template-handler
-                                         :destination ,(namestring (merge-pathnames #p"templates/" website-directory))
-                                         :command-packages (("http://headcraft.de/bos" . :bos.web)
-
-
+
-                 :navigation '(("sponsor" . "edit-sponsor/")
-                               ("statistics" . "statistics/")