1
0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-04 01:19:27 +01:00

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

- 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

View File

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

View File

@ -738,9 +738,9 @@
(defun access-non-null-conf-value (object &rest keys)
(let ((value (apply #'access:accesses object keys)))
(if (null value)
(error (_ (format nil
(_ "The configuration (*.conf) file is missing the value for ~s")
(access-key->user-directive keys))))
(error (format nil
(_ "The configuration (*.conf) file is missing the value for ~s")
(access-key->user-directive keys)))
value)))
(defun close-link-window-after-select-p ()
@ -1775,6 +1775,6 @@
(config-server-name)))
(config-gemini-proxy)
(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)
(error (_ "\"crypted\" is not used anymore; use: \"encrypted\", instead"))))