summaryrefslogtreecommitdiff
path: root/lisp/service
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/service')
-rw-r--r--lisp/service/about-us-service.lisp8
-rw-r--r--lisp/service/auth-service.lisp2
-rw-r--r--lisp/service/base-service.lisp2
-rw-r--r--lisp/service/contact-us-service.lisp4
-rw-r--r--lisp/service/gallery-service.lisp18
-rw-r--r--lisp/service/generic-form.lisp2
-rw-r--r--lisp/service/generics.lisp2
-rw-r--r--lisp/service/home-service.lisp2
-rw-r--r--lisp/service/login-service.lisp4
-rw-r--r--lisp/service/logout-service.lisp2
-rw-r--r--lisp/service/menu-service.lisp4
-rw-r--r--lisp/service/messages-service.lisp6
-rw-r--r--lisp/service/password-service.lisp4
-rw-r--r--lisp/service/profile-service.lisp4
-rw-r--r--lisp/service/rest-service.lisp2
-rw-r--r--lisp/service/testimonials-service.lisp8
-rw-r--r--lisp/service/users-service.lisp20
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
generated by cgit v1.3 (git 2.53.0) at 2026-09-24 17:04:03 +0000