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

Bad record name

This commit is contained in:
Niten 2020-11-17 15:06:37 -08:00
parent ae146d3a26
commit 8f1de937f5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backplane-dns.lisp
View File

@ -189,7 +189,7 @@
(id)))) (id))))
(let* ((new-sshfps (mapcar #'validate-sshfp incoming-sshfps)) (let* ((new-sshfps (mapcar #'validate-sshfp incoming-sshfps))
(full-hostname (format nil "~A.~A" host domain)) (full-hostname (format nil "~A.~A" host domain))
(sshfp-records (select-dao 'record (sshfp-records (select-dao 'dns-record
(:and (:= 'name full-hostname) (:and (:= 'name full-hostname)
(:= 'domain-id domain-id) (:= 'domain-id domain-id)
(:= 'type "SSHFP")))) (:= 'type "SSHFP"))))