rename to bogenherrc

14 files changed, 22 insertions, 22 deletions

diff --git a/lisp/sql/about-us.lisp b/lisp/sql/about-us.lisp
index 51e4409..ea09ee8 100644
--- a/lisp/sql/about-us.lisp
+++ b/lisp/sql/about-us.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 (postgres-record)
   ((id :initarg :id
diff --git a/lisp/sql/auth-pkg.lisp b/lisp/sql/auth-pkg.lisp
index 54f8c3e..c5f8839 100644
--- a/lisp/sql/auth-pkg.lisp
+++ b/lisp/sql/auth-pkg.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 *authenticated-user-session-key* "authenticated-user")
 
@@ -165,7 +165,7 @@
      (if ,session-name
          (let* ((auth-pkg (make-instance 'auth-pkg))
                 (has-all-roles-p (let ((has-all-roles-p t))
-                                   (with-woodriverlessons-database
+                                   (with-bogenherr-database
                                      (loop for role in (if (listp ,roles) ,roles (list ,roles)) do
                                           (when (not (has-role auth-pkg ,session-name role))
                                             (setf has-all-roles-p nil)))
diff --git a/lisp/sql/contact-pkg.lisp b/lisp/sql/contact-pkg.lisp
index 390d861..82dbd2b 100644
--- a/lisp/sql/contact-pkg.lisp
+++ b/lisp/sql/contact-pkg.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-pkg (record-pkg)
   ()
diff --git a/lisp/sql/contact-us.lisp b/lisp/sql/contact-us.lisp
index 9a7f30b..094e436 100644
--- a/lisp/sql/contact-us.lisp
+++ b/lisp/sql/contact-us.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 (postgres-record)
   ((id :initarg :id
diff --git a/lisp/sql/gallery.lisp b/lisp/sql/gallery.lisp
index 501691d..56e6e20 100644
--- a/lisp/sql/gallery.lisp
+++ b/lisp/sql/gallery.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 (postgres-record)
   ((id :initarg :id
diff --git a/lisp/sql/general-pkg.lisp b/lisp/sql/general-pkg.lisp
index 0d1b3db..571bec6 100644
--- a/lisp/sql/general-pkg.lisp
+++ b/lisp/sql/general-pkg.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 general-pkg (record-pkg)
   ()
diff --git a/lisp/sql/generics.lisp b/lisp/sql/generics.lisp
index e45327c..48c50c7 100644
--- a/lisp/sql/generics.lisp
+++ b/lisp/sql/generics.lisp
@@ -1,10 +1,10 @@
 ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 (declaim (optimize (speed 0) (safety 3) (debug 3)))
 
-(in-package :woodriverlessons)
+(in-package :bogenherr)
 
-(defmacro with-woodriverlessons-database (&body body)
-  `(with-database (getf (databases *webapp*) :db-woodriverlessons) ,@body))
+(defmacro with-bogenherr-database (&body body)
+  `(with-database (getf (databases *webapp*) :db-bogenherr) ,@body))
 
 (defgeneric insert-user (auth-pkg user)
   (:documentation "Inserts a new user into the database."))
diff --git a/lisp/sql/registration.lisp b/lisp/sql/registration.lisp
index a1a2919..43ed915 100644
--- a/lisp/sql/registration.lisp
+++ b/lisp/sql/registration.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 registration (postgres-record)
   ((id :initarg :id
diff --git a/lisp/sql/role-group.lisp b/lisp/sql/role-group.lisp
index 50d73f7..396acdc 100644
--- a/lisp/sql/role-group.lisp
+++ b/lisp/sql/role-group.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 role-group (postgres-record)
   ((user_role_group_id :initarg :user_role_group_id
diff --git a/lisp/sql/testimonials.lisp b/lisp/sql/testimonials.lisp
index 37ac3d3..a1c21a9 100644
--- a/lisp/sql/testimonials.lisp
+++ b/lisp/sql/testimonials.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 (postgres-record)
   ((id :initarg :id
diff --git a/lisp/sql/user-role.lisp b/lisp/sql/user-role.lisp
index 3042aab..fb5636c 100644
--- a/lisp/sql/user-role.lisp
+++ b/lisp/sql/user-role.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 user-role (postgres-record)
   ((user_role_group_id :initarg :user_role_group_id
diff --git a/lisp/sql/user-session-pkg.lisp b/lisp/sql/user-session-pkg.lisp
index 8741fff..5c7871d 100644
--- a/lisp/sql/user-session-pkg.lisp
+++ b/lisp/sql/user-session-pkg.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 user-session-pkg (record-pkg)
   ()
@@ -42,7 +42,7 @@
 (defun get-session-object (session-key)
   "Returns the object stored in the user session under the given
 `session-key'."
-  (with-woodriverlessons-database
+  (with-bogenherr-database
     (let* ((user-session-pkg (make-instance 'user-session-pkg))
            (user-session-object (get-user-session-object user-session-pkg session-key))
            object)
@@ -55,7 +55,7 @@
   "Sets the object into the user-session under the given
 `session-key'. Will not write anything if the session given by
 `*sessionid*' does not exist."
-  (with-woodriverlessons-database
+  (with-bogenherr-database
     (let* ((user-session-pkg (make-instance 'user-session-pkg))
            (user-session-object (get-user-session-object user-session-pkg session-key)))
       (if user-session-object
@@ -75,14 +75,14 @@
 (defun flush-session-object (session-key)
   "Removes the object from the user session under the given
 `session-key'."
-  (with-woodriverlessons-database
+  (with-bogenherr-database
     (let ((user-session-pkg (make-instance 'user-session-pkg)))
       (flush-user-session-object user-session-pkg *sessionid* session-key))))
 
 (defun ensure-user-session-exists (&optional force-new-sessionid-p)
   "Ensures that the user has a valid sessionid cookie. Returns the
 `sessionid'. If the session does exist, update its timestamp."
-  (with-woodriverlessons-database
+  (with-bogenherr-database
     (let* ((user-session-pkg (make-instance 'user-session-pkg))
            (sessionid (when (not force-new-sessionid-p)
                         (org-ckons-session::get-sessionid-from-request)))
@@ -100,7 +100,7 @@ inactive for a period of time determined by the `*session-timeout*'
 variable."
   (when (> (- (get-universal-time) org-ckons-session::*gc-last-cycle-timestamp*) org-ckons-session::*gc-interval*)
     (setf org-ckons-session::*gc-last-cycle-timestamp* (get-universal-time))
-    (with-woodriverlessons-database
+    (with-bogenherr-database
       (let ((user-session-pkg (make-instance 'user-session-pkg)))
         (loop for user-session in (get-user-sessions user-session-pkg) do
              (let ((inactive-time (- org-ckons-session::*gc-last-cycle-timestamp* (datetime user-session))))
diff --git a/lisp/sql/user-session.lisp b/lisp/sql/user-session.lisp
index afaa28b..8ecc305 100644
--- a/lisp/sql/user-session.lisp
+++ b/lisp/sql/user-session.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 user-session (postgres-record)
   ((id :initarg :id
diff --git a/lisp/sql/user.lisp b/lisp/sql/user.lisp
index a181ff4..34e7b53 100644
--- a/lisp/sql/user.lisp
+++ b/lisp/sql/user.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 user (org-ckons-session::session-object postgres-record)
   ((id :initarg :id