rename to bogenherrc

17 files changed, 47 insertions, 47 deletions

diff --git a/lisp/service/about-us-service.lisp b/lisp/service/about-us-service.lisp
index 3ae7c87..e3df34a 100644
--- a/lisp/service/about-us-service.lisp
+++ b/lisp/service/about-us-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass about-us-service (rest-service)
   ()
@@ -26,7 +26,7 @@
     (with-valid-user (user "about-us-modify")
         (setf (admin-p instance) nil)
       (setf (admin-p instance) t))
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (about-us (get-about-us general-pkg)))
         (when about-us
@@ -42,7 +42,7 @@
 
 (defun about-us-modify-json ()
   (with-auth (instance about-us/modify-service "about-us-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (about-us (get-about-us general-pkg)))
         (setf (form instance) (make-form "about-us-modify-form"
@@ -53,7 +53,7 @@
 
 (defun about-us-modify-submit-json (content)
   (with-auth (instance about-us/modify-service "about-us-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (about-us (get-about-us general-pkg)))
         (when about-us
diff --git a/lisp/service/auth-service.lisp b/lisp/service/auth-service.lisp
index b6ce12e..aff5d01 100644
--- a/lisp/service/auth-service.lisp
+++ b/lisp/service/auth-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass auth-service (rest-service)
   ()
diff --git a/lisp/service/base-service.lisp b/lisp/service/base-service.lisp
index 3edc118..77df817 100644
--- a/lisp/service/base-service.lisp
+++ b/lisp/service/base-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass base-service ()
   ()
diff --git a/lisp/service/contact-us-service.lisp b/lisp/service/contact-us-service.lisp
index 7c10bd3..4e2aada 100644
--- a/lisp/service/contact-us-service.lisp
+++ b/lisp/service/contact-us-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass contact-us-service (rest-service)
   ()
@@ -43,7 +43,7 @@
 (defun contact-us-email-json (first_name last_name email phone comments)
   (declare (special first_name last_name email phone comments))
   (with-noauth (instance contact-us/email-service)
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((contact-pkg (make-instance 'contact-pkg))
             (contact-us-post (make-instance 'contact-us-post)))
         (loop for param in (sb-introspect:function-lambda-list #'contact-us-email-json)
diff --git a/lisp/service/gallery-service.lisp b/lisp/service/gallery-service.lisp
index b034075..c3d0825 100644
--- a/lisp/service/gallery-service.lisp
+++ b/lisp/service/gallery-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass gallery-service (auth-service)
   ((admin-p :initarg :admin-p
@@ -27,7 +27,7 @@
     (with-valid-user (user "gallery-modify")
         (setf (admin-p instance) nil)
       (setf (admin-p instance) t))
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((general-pkg (make-instance 'general-pkg)))
         (setf (results instance) (get-galleries general-pkg))))
     (setf (message instance) (session-value :message))
@@ -54,7 +54,7 @@
 (defun gallery-add-submit-json (description video_embed_url upload)
   (declare (special description video_embed_url))
   (with-auth (instance gallery/add-modify-delete-service "gallery-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((general-pkg (make-instance 'general-pkg))
             (gallery (make-instance 'gallery))
             (tmp-filepath (first upload))
@@ -65,7 +65,7 @@
                                       (sb-introspect:function-lambda-list #'gallery-add-submit-json))
               do (setf (slot-value gallery param) (symbol-value param)))
         (when upload
-          (let ((tmpdir (tmpdir:mkdtemp :prefix "woodriverlessons-gallery-")))
+          (let ((tmpdir (tmpdir:mkdtemp :prefix "bogenherr-gallery-")))
             (setf new-filepath (format nil "~a~a" tmpdir (file-namestring tmp-filepath)))
             (fad:copy-file tmp-filepath new-filepath)
             (setf (filename gallery) orig-filename)
@@ -76,7 +76,7 @@
 
 (defun gallery-modify-json (id)
   (with-auth (instance gallery/add-modify-delete-service "gallery-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (gallery (get-gallery general-pkg id)))
         (if gallery
@@ -93,7 +93,7 @@
 (defun gallery-modify-submit-json (id description video_embed_url upload)
   (declare (special description video_embed_url))
   (with-auth (instance gallery/add-modify-delete-service "gallery-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
             (gallery (get-gallery general-pkg id)))
         (if gallery
@@ -105,7 +105,7 @@
                                             (sb-introspect:function-lambda-list #'gallery-add-submit-json))
                     do (setf (slot-value gallery param) (symbol-value param)))
               (when upload
-                (let ((tmpdir (tmpdir:mkdtemp :prefix "woodriverlessons-gallery-")))
+                (let ((tmpdir (tmpdir:mkdtemp :prefix "bogenherr-gallery-")))
                   (setf new-filepath (format nil "~a~a" tmpdir (file-namestring tmp-filepath)))
                   (fad:copy-file tmp-filepath new-filepath)
                   (setf (filename gallery) orig-filename)
@@ -117,7 +117,7 @@
 
 (defun gallery-delete-json (id)
   (with-auth (instance gallery/add-modify-delete-service "gallery-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
         (let* ((general-pkg (make-instance 'general-pkg))
                (gallery (get-gallery general-pkg id)))
           (if gallery
@@ -128,7 +128,7 @@
 
 (defun gallery-file-view (id)
   (with-noauth-raw (instance gallery/view-service)
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (gallery (get-gallery general-pkg id)))
         (when gallery
diff --git a/lisp/service/generic-form.lisp b/lisp/service/generic-form.lisp
index 4b3d2e9..2605e28 100644
--- a/lisp/service/generic-form.lisp
+++ b/lisp/service/generic-form.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass generic-form (base-service)
   ((name :initarg :name
diff --git a/lisp/service/generics.lisp b/lisp/service/generics.lisp
index 4b58078..592d245 100644
--- a/lisp/service/generics.lisp
+++ b/lisp/service/generics.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defgeneric copy-from-record (base-service record)
   (:documentation "Copies the fields from `record' to
diff --git a/lisp/service/home-service.lisp b/lisp/service/home-service.lisp
index 99bd3e7..da6ded6 100644
--- a/lisp/service/home-service.lisp
+++ b/lisp/service/home-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass home-service (rest-service)
   ((content :initarg :content
diff --git a/lisp/service/login-service.lisp b/lisp/service/login-service.lisp
index 5f27236..5e029ba 100644
--- a/lisp/service/login-service.lisp
+++ b/lisp/service/login-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass login-service (rest-service)
   ((form :initarg :form
@@ -50,7 +50,7 @@
     (if (or (org-ckons-core::null-or-empty-p username)
             (org-ckons-core::null-or-empty-p pwd))
         (setf (session-value :errormsg) "Login failed.")
-        (with-woodriverlessons-database
+        (with-bogenherr-database
           (let* ((auth-pkg (make-instance 'auth-pkg))
                  (user (get-active-user-by-username-pwd auth-pkg username pwd)))
             (cond (user
diff --git a/lisp/service/logout-service.lisp b/lisp/service/logout-service.lisp
index ce6a09f..d0564a5 100644
--- a/lisp/service/logout-service.lisp
+++ b/lisp/service/logout-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass logout-service (rest-service)
   ((location-p :initform nil))
diff --git a/lisp/service/menu-service.lisp b/lisp/service/menu-service.lisp
index 8bb7d9a..9c4845c 100644
--- a/lisp/service/menu-service.lisp
+++ b/lisp/service/menu-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defparameter *menu-config* '((:id "a_menu_home" :label "Home" :handler "/home" :permissions "_Public")
                               (:id "a_menu_about_us" :label "About the Studio" :handler "/about-us" :permissions "_Public")
@@ -53,7 +53,7 @@
   (:documentation ""))
 
 (defmethod initialize-instance :after ((menu-service menu-service) &key user menu-config)
-  (with-woodriverlessons-database
+  (with-bogenherr-database
     (let ((auth-pkg (make-instance 'auth-pkg))
           (user-logged-in-p (and user (not (= (id user) 0))))
           roles)
diff --git a/lisp/service/messages-service.lisp b/lisp/service/messages-service.lisp
index e5bd6d0..18999ab 100644
--- a/lisp/service/messages-service.lisp
+++ b/lisp/service/messages-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass messages-service (auth-service)
   ((title :initarg :title
@@ -32,7 +32,7 @@
 (defun messages-results-json (read)
   (with-auth (instance messages/results-service "messages-view")
     (when read (setf (session-value :messages-read) read))
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((contact-pkg (make-instance 'contact-pkg)))
         (setf (results instance) (get-contact-us-posts contact-pkg
                                                        (id (get-user))
@@ -47,7 +47,7 @@
 
 (defun messages-mark-json (read id)
   (with-auth (instance messages/mark-service "messages-view")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (handler-case
           (let ((contact-pkg (make-instance 'contact-pkg)))
             (mark-contact-us-post contact-pkg id (id (get-user)) (string= read "read"))
diff --git a/lisp/service/password-service.lisp b/lisp/service/password-service.lisp
index bd22248..fee720e 100644
--- a/lisp/service/password-service.lisp
+++ b/lisp/service/password-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass password-service (auth-service user)
   ((form :initarg :form
@@ -35,7 +35,7 @@
   (declare (special pwd pwd2))
   (with-auth (instance password/modify-service "profile-modify")
     (setf (title instance) "Change Password")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((user (get-user)))
         (if (and (= id (id user))
                  (string= pwd pwd2))
diff --git a/lisp/service/profile-service.lisp b/lisp/service/profile-service.lisp
index 0334652..c5783ad 100644
--- a/lisp/service/profile-service.lisp
+++ b/lisp/service/profile-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass profile-service (auth-service user)
   ((title :initarg :title
@@ -46,7 +46,7 @@
 (defun profile-modify-submit-json (id username first_name last_name email phone)
   (declare (special username first_name last_name email phone))
   (with-auth (instance profile/modify-service "profile-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((user (get-user)))
         (if (= id (id user))
             (let ((auth-pkg (make-instance 'auth-pkg)))
diff --git a/lisp/service/rest-service.lisp b/lisp/service/rest-service.lisp
index eed7a51..eda0948 100644
--- a/lisp/service/rest-service.lisp
+++ b/lisp/service/rest-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass rest-service (base-service)
   ((location :initarg :location
diff --git a/lisp/service/testimonials-service.lisp b/lisp/service/testimonials-service.lisp
index 8f3d3e0..97133f7 100644
--- a/lisp/service/testimonials-service.lisp
+++ b/lisp/service/testimonials-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass testimonials-service (rest-service)
   ((title :initarg :title
@@ -31,7 +31,7 @@
     (with-valid-user (user "testimonials-modify")
         (setf (admin-p instance) nil)
       (setf (admin-p instance) t))
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (testimonials (get-testimonials general-pkg)))
         (when testimonials
@@ -44,7 +44,7 @@
 (defun testimonials-modify-json ()
   (with-auth (instance testimonials/modify-service "testimonials-modify")
     (setf (title instance) "Testimonials - Modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (testimonials (get-testimonials general-pkg))
              content)
@@ -59,7 +59,7 @@
 (defun testimonials-modify-submit-json (content)
   (with-auth (instance testimonials/modify-service "testimonials-modify")
     (setf (title instance) "Testimonials - Modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (testimonials (get-testimonials general-pkg)))
         (when testimonials
diff --git a/lisp/service/users-service.lisp b/lisp/service/users-service.lisp
index e41d5e4..fa56c53 100644
--- a/lisp/service/users-service.lisp
+++ b/lisp/service/users-service.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
 (defclass users-service (auth-service)
   ((title :initarg :title
@@ -22,7 +22,7 @@
 
 (defun users-view-json ()
   (with-auth (instance users/view-service "users-view")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((auth-pkg (make-instance 'auth-pkg)))
         (setf (users instance) (get-all-users auth-pkg))))
     (sanitize-rest-json instance)
@@ -51,7 +51,7 @@
 (defun users-add-json ()
   (with-auth (instance users/add-service "users-modify")
     (setf (title instance) "Users - Add")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((auth-pkg (make-instance 'auth-pkg))
              (user (get-user))
              (role-groups (get-all-role-groups auth-pkg user)))
@@ -67,7 +67,7 @@
 (defun users-add-submit-json (role_groups first_name last_name email)
   (declare (special role_groups first_name last_name email))
   (with-auth (instance users/add-service "users-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((registration (make-instance 'registration)))
         (loop for param in (sb-introspect:function-lambda-list #'users-add-submit-json) do
              (setf (slot-value registration param) (symbol-value param)))
@@ -140,7 +140,7 @@
 
 (defun users-register-form-json (hash)
   (with-noauth (instance users/register/form-service)
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((auth-pkg (make-instance 'auth-pkg))
              (registration (get-registration-by-hash auth-pkg hash)))
         (registrations-gc auth-pkg)
@@ -165,7 +165,7 @@
 
 (defun users-register-submit-json (hash username pwd pwd2 phone)
   (with-noauth (instance users/register/submit-service)
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((auth-pkg (make-instance 'auth-pkg))
             registration)
         (registrations-gc auth-pkg)
@@ -202,7 +202,7 @@
 (defun users-modify-json (id)
   (with-auth (instance users/modify-service "users-modify")
     (setf (title instance) "Users - Modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((auth-pkg (make-instance 'auth-pkg))
              (me (get-user))
              (user (get-user-by-id auth-pkg id))
@@ -225,7 +225,7 @@
 (defun users-modify-submit-json (id role_groups username first_name last_name email phone)
   (declare (special role_groups username first_name last_name email phone))
   (with-auth (instance users/modify-service "users-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((auth-pkg (make-instance 'auth-pkg))
              (user (get-active-user-by-id auth-pkg id)))
         (if user
@@ -251,7 +251,7 @@
 
 (defun users-toggle-active-json (id)
   (with-auth (instance users/toggle-service "users-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((auth-pkg (make-instance 'auth-pkg))
              (user (get-user-by-id auth-pkg id)))
         (if user
@@ -269,7 +269,7 @@
 
 (defun users-delete-json (id)
   (with-auth (instance users/delete-service "users-modify")
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let* ((auth-pkg (make-instance 'auth-pkg))
              (user (get-user-by-id auth-pkg id)))
         (if user