cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-06 01:36:49 +01:00
Code Issues

- prevented passing a string to 'error', as it can contains tildes that will be interpreted as formatting directives;

Browse Source 
- fixed error message when checking a configuration file.
This commit is contained in:
cage 2024-12-08 16:03:25 +01:00
parent eaedc0bd1e
commit 4c9f362fc0
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gemini/client.lisp
View File

@ -510,9 +510,9 @@
#-sbcl (parse-response ssl-stream) #-sbcl (parse-response ssl-stream)
(values status description meta response socket)))))) (values status description meta response socket))))))
(warning (w) (warning (w)
(warn w)) (warn "~a" w))
(error (e) (error (e)
(error e))))))) (error "~a" e)))))))
(defun missing-dispath-function (status code-description meta response socket iri parsed-iri) (defun missing-dispath-function (status code-description meta response socket iri parsed-iri)
(declare (ignore response socket parsed-iri)) (declare (ignore response socket parsed-iri))

8
src/software-configuration.lisp
View File

@ -738,9 +738,9 @@
(defun access-non-null-conf-value (object &rest keys) (defun access-non-null-conf-value (object &rest keys)
(let ((value (apply #'access:accesses object keys))) (let ((value (apply #'access:accesses object keys)))
(if (null value) (if (null value)
(error (_ (format nil (error (format nil
(_ "The configuration (*.conf) file is missing the value for ~s") (_ "The configuration (*.conf) file is missing the value for ~s")
(access-key->user-directive keys)))) (access-key->user-directive keys)))
value))) value)))
(defun close-link-window-after-select-p () (defun close-link-window-after-select-p ()
@ -1775,6 +1775,6 @@
(config-server-name))) (config-server-name)))
(config-gemini-proxy) (config-gemini-proxy)
(when (access:accesses *software-configuration* :post-allowed-language) (when (access:accesses *software-configuration* :post-allowed-language)
(error (_ "\"post-allowed-language = …\" has been removed as configuration directive; use: \"default.post.language = …\", instead"))) (error (_ "\"post-allowed-language = …\" has been removed as configuration directive; use: \"post.allowed.language = …\", instead")))
(when (access:accesses *software-configuration* :crypted) (when (access:accesses *software-configuration* :crypted)
(error (_ "\"crypted\" is not used anymore; use: \"encrypted\", instead")))) (error (_ "\"crypted\" is not used anymore; use: \"encrypted\", instead"))))