public
/
backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Generic (id) doesn't work on domains? Okay...

This commit is contained in:
Niten 2020-12-04 09:56:02 -08:00
parent 37193887ac
commit 99a1abe88b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backplane-dns-store.lisp
View File

@ -30,7 +30,7 @@
(defclass dns-domain () (defclass dns-domain ()
((id :col-type integer ((id :col-type integer
:col-identity t :col-identity t
:reader id) :reader domain-id)
(name :col-type (varchar 255) (name :col-type (varchar 255)
:initarg :name :initarg :name
:reader domain-name) :reader domain-name)
@ -66,7 +66,7 @@
(error 'domain-name-missing :domain domain))) (error 'domain-name-missing :domain domain)))
(defun get-records (domain name type) (defun get-records (domain name type)
(let ((domain-id (id (get-domain domain)))) (let ((domain-id (domain-id (get-domain domain))))
(select-dao 'dns-record (:and (:= 'domain-id domain-id) (select-dao 'dns-record (:and (:= 'domain-id domain-id)
(:= 'name (format nil "~A.~A" name domain)) (:= 'name (format nil "~A.~A" name domain))
(:= 'type type))))) (:= 'type type)))))
@ -79,7 +79,7 @@
(id record)))) (id record))))
(defun insert-record (domain name type content) (defun insert-record (domain name type content)
(let ((domain-id (id (get-domain domain)))) (let ((domain-id (domain-id (get-domain domain))))
(insert-dao (make-instance 'dns-record (insert-dao (make-instance 'dns-record
:domain-id domain-id :domain-id domain-id
:name (format nil "~A.~A" name domain) :name (format nil "~A.~A" name domain)