blob: fea632ac184215a6370ba28f7908d14beda6607d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package :bogenherr)
(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."))
(defgeneric update-user (auth-pkg user)
(:documentation "Updates a user in the database."))
(defgeneric get-all-active-users (record-pkg)
(:documentation "Calls `get_all_active_users'."))
(defgeneric get-all-users (record-pkg)
(:documentation "Calls `get_all_users'."))
(defgeneric get-active-user-by-username-pwd (record-pkg username pwd)
(:documentation "Calls `get_active_user_by_username_pwd'."))
(defgeneric get-active-user-by-id (record-pkg id)
(:documentation "Calls `get_active_user_by_id'."))
(defgeneric get-user-by-id (record-pkg id)
(:documentation "Calls `get_user_by_id'."))
(defgeneric user-toggle-active (record-pkg user)
(:documentation "Calls `user_toggle_active'."))
(defgeneric user-delete (record-pkg user)
(:documentation "Calls `user_delete'."))
(defgeneric get-all-roles (record-pkg record)
(:documentation "Returns all the roles for a `user'."))
(defgeneric has-role (record-pkg record role)
(:documentation "Returns `t' when the user exists and has the
specified `role', `nil' otherwise."))
(defgeneric get-all-role-groups (auth-pkg user)
(:documentation "Returns all the role-groups for a `user'."))
(defgeneric get-role-group-by-name (auth-pkg user name)
(:documentation "Returns a role-group by `name' for a `user'."))
(defgeneric get-active-role-groups (auth-pkg user)
(:documentation "Returns all the role-groups for a `user' that are
actually present in `auth.users_role_groups', in other words the
role-groups that are assigned to the user without any superuser
magic."))
(defgeneric insert-user-role-group (auth-pkg user-role)
(:documentation "Idempotently inserts a new record into
auth.user_role_groups based on the user ID and the role group name."))
(defgeneric delete-role-groups (auth-pkg user)
(:documentation "Delete all role-group assignments for a user."))
(defgeneric update-profile (record-pkg record)
(:documentation ""))
(defgeneric update-password (auth-pkg user)
(:documentation ""))
(defgeneric get-user-sessions (record-pkg)
(:documentation "Gets all user session records."))
(defgeneric get-user-session (record-pkg &optional sessionid)
(:documentation ""))
(defgeneric update-timestamp (record-pkg record)
(:documentation "Updates the timestamp of the `user-session'."))
(defgeneric get-user-session-objects (record-pkg record)
(:documentation "Get all user session objects associated with a user
session."))
(defgeneric get-user-session-object (record-pkg session-key)
(:documentation ""))
(defgeneric flush-user-session-object (record-pkg session-key)
(:documentation ""))
(defgeneric create-user-session (record-pkg)
(:documentation "Creates a new user session and returns the
sessionid."))
(defgeneric get-about-us (record-pkg category)
(:documentation "Gets the one and only general.about_us record with the given
`category'."))
(defgeneric get-testimonials (record-pkg)
(:documentation "Gets the one and only general.testimonials record."))
(defgeneric get-gallery (general-pkg id)
(:documentation "Gets a general.gellery record by id."))
(defgeneric get-galleries (general-pkg)
(:documentation "Gets all general.gallery records sorted by modified desc."))
(defgeneric insert-gallery (general-pkg gallery)
(:documentation "Inserta a new general.gallery record."))
(defgeneric update-gallery (general-pkg gallery)
(:documentation "Updates an existing general.gallery record."))
(defgeneric get-contact-us-posts (record-pkg user-id read-p)
(:documentation "Gets contact.contact_us_posts records."))
(defgeneric insert-contact-us-post (contact-pkg contact-us-post)
(:documentation "Inserts a new contact-us post into
contact.contact_us_posts. Returns the ID of the new record."))
(defgeneric mark-contact-us-post (contact-pkg contact-us-post-id user-id read-p)
(:documentation "Marks or unmarks a contact-us post as read."))
(defgeneric insert-registration (auth-pkg registration)
(:documentation "Inserts a new registration into
auth.registrations. Returns the ID of the new record."))
(defgeneric get-registration-by-id (auth-pkg id)
(:documentation "Gets the record from auth.registrations with the
given `id'."))
(defgeneric get-registration-by-hash (auth-pkg hash)
(:documentation "Gets the record from auth.registrations with the
given `hash'."))
(defgeneric registrations-gc (auth-pkg)
(:documentation "Garbage collects registrations that are more than 3
days old."))
(defgeneric delete-registration (auth-pkg hash)
(:documentation "Deletes a registration with the given `hash'."))
(defgeneric event_date (record)
(:documentation "Reader for the event_date field. Converts a
local-time::timestamp to a SQL date string."))
(defgeneric (setf event_date) (value record)
(:documentation "Writer for the event_date field."))
(defgeneric submitted (record)
(:documentation "Reader for the submitted field. Converts a
local-time::timestamp to a SQL date string."))
(defgeneric (setf submitted) (value record)
(:documentation "Writer for the submitted field."))
(defgeneric created (record)
(:documentation "Reader for the created field. Converts a
local-time::timestamp to a SQL date string."))
(defgeneric (setf created) (value record)
(:documentation "Writer for the created field."))
|
