me
/
guix
Archived
1
0
Fork 0
Code

services: ganeti: Label mcron jobs. 

* gnu/services/ganeti.scm (ganeti-watcher-jobs): Label job as "ganeti-watcher".
(ganeti-cleaner-jobs): Labels jobs as "ganeti master cleaner" and "ganeti node
cleaner".
master
Marius Bakke 2022-12-25 12:02:05 +01:00
parent 860e949896
commit c97de4a989
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/services/ganeti.scm
View File

@ -683,7 +683,8 @@ information to OS install scripts or instances.")))
#~(#$schedule)) #~(#$schedule))
((? list?) ((? list?)
#~('#$schedule))) #~('#$schedule)))
#$(ganeti-watcher-command config)))))) #$(ganeti-watcher-command config)
"ganeti-watcher")))))
(define ganeti-watcher-service-type (define ganeti-watcher-service-type
(service-type (name 'ganeti-watcher) (service-type (name 'ganeti-watcher)
@ -725,7 +726,8 @@ is declared offline by known master candidates.")))
#~('#$master-schedule))) #~('#$master-schedule)))
(lambda () (lambda ()
(system* #$(file-append ganeti "/sbin/ganeti-cleaner") (system* #$(file-append ganeti "/sbin/ganeti-cleaner")
"master"))) "master"))
"ganeti master cleaner")
#~(job #$@(match node-schedule #~(job #$@(match node-schedule
((? string?) ((? string?)
#~(#$node-schedule)) #~(#$node-schedule))
@ -733,7 +735,8 @@ is declared offline by known master candidates.")))
#~('#$node-schedule))) #~('#$node-schedule)))
(lambda () (lambda ()
(system* #$(file-append ganeti "/sbin/ganeti-cleaner") (system* #$(file-append ganeti "/sbin/ganeti-cleaner")
"node"))))))) "node"))
"ganeti node cleaner")))))
(define ganeti-cleaner-service-type (define ganeti-cleaner-service-type
(service-type (name 'ganeti-cleaner) (service-type (name 'ganeti-cleaner)