Update remote log functions
This commit is contained in:
parent
4f0865b231
commit
cc7e460fd3
1 changed files with 3 additions and 3 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Reference in a new issue