Update remote log functions

This commit is contained in:
Marcus Kammer 2023-11-04 14:32:05 +01:00
parent 4f0865b231
commit cc7e460fd3
Signed by: marcuskammer
GPG key ID: C374817BE285268F

View file

@ -262,12 +262,12 @@ an ALIAS and SERVICE as arguments and call
(defmacro mk/define-remote-log-function (alias service &optional filename)
"Define a function to asynchronously tail a remote log file."
(let ((fname (unless filename "")))
(let ((fname (if filename filename "")))
`(defun ,(intern (format "mk/remote-log-%s-%s" alias service)) ()
,(format "Tail the remote log file: %s" filename)
(interactive)
(mk/remote--log ,alias ,service ,fname))))
(mk/define-remote-log-function "website" "nginx" "access.csv")
(mk/define-remote-log-function "website" "syslog")
(mk/define-remote-log-function "metalisp" "nginx" "access.csv")
(mk/define-remote-log-function "metalisp" "syslog")
(mk/define-remote-log-function "metalisp" "fail2ban.log")