me
/
guix
Archived
1
0
Fork 0
Code

services: fail2ban: 'stop' returns #f when the dameon is stopped. 

* gnu/services/security.scm (fail2ban-shepherd-service): Change
FAIL2BAN-ACTION to return an 'invoke' gexp.
Adjust the shepherd 'start' and 'stop' fields accordingly.  Have 'stop'
return #f on success.
master
Ludovic Courtès 2022-12-06 17:05:34 +01:00
parent fe563a87ad
commit e45c83c397
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/services/security.scm
View File

@ -356,13 +356,12 @@ provided as a list of file-like objects."))
(config-dir (file-append (config->fail2ban-etc-directory config)
"/etc/fail2ban"))
(fail2ban-action (lambda args
#~(lambda _
(invoke #$fail2ban-server
"-c" #$config-dir
"-p" #$pid-file
"-s" #$socket-file
"-b"
#$@args)))))
#~(invoke #$fail2ban-server
"-c" #$config-dir
"-p" #$pid-file
"-s" #$socket-file
"-b"
#$@args))))
;; TODO: Add 'reload' action.
(list (shepherd-service
@ -371,8 +370,11 @@ provided as a list of file-like objects."))
(requirement '(user-processes))
(modules `((ice-9 match)
,@%default-modules))
(start (fail2ban-action "start"))
(stop (fail2ban-action "stop")))))))
(start #~(lambda ()
#$(fail2ban-action "start")))
(stop #~(lambda (_)
#$(fail2ban-action "stop")
#f))))))) ;successfully stopped
(define fail2ban-service-type
(service-type (name 'fail2ban)