ray/ordo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bugfix systemctl, update example

Browse source
This commit is contained in:
Ray Miller 2025-06-23 10:12:03 +01:00
parent bcf0b56911
commit 1158efbaa4
Signed by: ray
GPG key ID: 043F786C4CD681B8
2 changed files with 26 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

28
examples/forgejo.scm
View file

@ -7,38 +7,36 @@
(list (list
(task "Install configuration directory" (task "Install configuration directory"
#:action fs:install-dir #:action fs:install-dir
#:args '((#:path . "/etc/forgejo")) #:args '(#:path "/etc/forgejo")
#:trigger '("Restart pod")) #:trigger '("Restart pod"))
(task "Install timezone configuration" (task "Install timezone configuration"
#:action fs:install-file #:action fs:install-file
#:args '((#:path . "/etc/forgejo/timezone") #:args '(#:path "/etc/forgejo/timezone" #:local-src "files/timezone")
(#:local-src . "files/timezone"))
#:trigger '("Restart pod")) #:trigger '("Restart pod"))
(task "Install localtime configuration" (task "Install localtime configuration"
#:action fs:install-file #:action fs:install-file
#:args '((#:path . "/etc/forgejo/localtime") #:args '(#:path "/etc/forgejo/localtime" #:local-src "files/localtime")
(#:local-src . "files/localtime"))) #:trigger '("Restart pod"))
(task "Create data volume quadlet" (task "Create data volume quadlet"
#:action quadlet:create-volume #:action quadlet:create-volume
#:args '((#:name . "forgejo") #:args '(#:name "forgejo" #:description "Forgejo data volume")
(#:description . "Forgejo data volume"))
#:trigger '("Reload systemd" "Restart pod")) #:trigger '("Reload systemd" "Restart pod"))
(task "Create pod quadlet" (task "Create pod quadlet"
#:action quadlet:create-pod #:action quadlet:create-pod
#:args '((#:name . "forgejo") #:args '(#:name "forgejo"
(#:quadlet-options . ((PodName . "forge") #:pod ((PodName . "forge")
(Volume . "forgejo.volume:U,Z") (Volume . "forgejo.volume:U,Z")
(PodmanArgs . "--userns auto")))) (PodmanArgs . "--userns auto")))
#:trigger '("Reload systemd" "Restart pod")) #:trigger '("Reload systemd" "Restart pod"))
(task "Create image quadlet" (task "Create image quadlet"
#:action quadlet:create-image #:action quadlet:create-image
#:args `((#:name . "forgejo") #:args `(#:name "forgejo"
(#:image . (Image . ,(format #f "codeberg.org/forgejo/forgejo:~a" version)))) #:image (Image . ,(format #f "codeberg.org/forgejo/forgejo:~a" version)))
#:trigger '("Reload systemd" "Restart pod")) #:trigger '("Reload systemd" "Restart pod"))
(task "Create container quadlet" (task "Create container quadlet"
#:action quadlet:create-container #:action quadlet:create-container
#:args '((#:name . "forgejo") #:args '(#:name "forgejo"
(#:container . ((Pod . "forgejo.pod") #:container ((Pod . "forgejo.pod")
(Image . "forgejo.image") (Image . "forgejo.image")
(Network . "services.network") (Network . "services.network")
(Volume . "/etc/forgejo/timezone:/etc/timezone:ro,U,Z") (Volume . "/etc/forgejo/timezone:/etc/timezone:ro,U,Z")
@ -46,7 +44,7 @@
(Environment . "USER_UID=1000") (Environment . "USER_UID=1000")
(Environment . "USER_GID=1000") (Environment . "USER_GID=1000")
(Environment . "FORGEJO__service__DISABLE_REGISTRATION=true") (Environment . "FORGEJO__service__DISABLE_REGISTRATION=true")
(Environment . "FORGEJO__webhook__ALLOWED_HOST_LIST=private")))) (Environment . "FORGEJO__webhook__ALLOWED_HOST_LIST=private")))
#:trigger '("Reload systemd" "Restart pod")) #:trigger '("Reload systemd" "Restart pod"))
(handler "Reload systemd" (handler "Reload systemd"
#:action systemctl:daemon-reload) #:action systemctl:daemon-reload)

10
ordo/action/systemcl.scm → ordo/action/systemctl.scm
View file

@ -19,22 +19,22 @@ this program. If not, see <https://www.gnu.org/licenses/>.
#:use-module (ordo connection) #:use-module (ordo connection)
#:export (daemon-reload stop start restart reload)) #:export (daemon-reload stop start restart reload))
(define (daemon-reload conn #:key user?) (define* (daemon-reload conn #:key user?)
(remote-cmd conn "systemctl" (when user? "--user") "daemon-reload" #:check? #t) (remote-cmd conn "systemctl" (when user? "--user") "daemon-reload" #:check? #t)
#t) #t)
(define (stop conn #:key unit user?) (define* (stop conn #:key unit user?)
(remote-cmd conn "systemctl" (when user? "--user") "stop" unit #:check? #t) (remote-cmd conn "systemctl" (when user? "--user") "stop" unit #:check? #t)
#t) #t)
(define (start conn #:key unit user?) (define* (start conn #:key unit user?)
(remote-cmd conn "systemctl" (when user? "--user") "start" unit #:check? #t) (remote-cmd conn "systemctl" (when user? "--user") "start" unit #:check? #t)
#t) #t)
(define (reload conn #:key unit user?) (define* (reload conn #:key unit user?)
(remote-cmd conn "systemctl" (when user? "--user") "reload" unit #:check? #t) (remote-cmd conn "systemctl" (when user? "--user") "reload" unit #:check? #t)
#t) #t)
(define (restart conn #:key unit user?) (define* (restart conn #:key unit user?)
(remote-cmd conn "systemctl" (when user? "--user") "restart" unit #:check? #t) (remote-cmd conn "systemctl" (when user? "--user") "restart" unit #:check? #t)
#t) #t)