You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

48 lines
1.4 KiB

;; SPDX-FileCopyrightText: 2022, 2023 Hilton Chain <hako@ultrarare.space>
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services dns)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (gnu services)
#:use-module (gnu services configuration)
#:use-module (gnu packages dns)
#:use-module (gnu services shepherd)
#:export (smartdns-configuration
smartdns-service-type))
;;
;; Smartdns
;;
(define-configuration smartdns-configuration
(smartdns
(file-like smartdns)
"The Smartdns package.")
(config-file
(file-like (plain-file "empty" ""))
"Configuration file for Smartdns.")
(no-serialization))
(define smartdns-shepherd-service
(match-record-lambda <smartdns-configuration>
(smartdns config-file)
(list (shepherd-service
(documentation "Run smartdns.")
(provision '(smartdns dns))
(requirement '(loopback networking))
(start #~(make-forkexec-constructor
(list #$(file-append smartdns "/sbin/smartdns")
"-f" "-c" #$(file-append config-file))))
(stop #~(make-kill-destructor))))))
(define smartdns-service-type
(service-type
(name 'smartdns)
(extensions
(list (service-extension shepherd-root-service-type
smartdns-shepherd-service)))
(default-value (smartdns-configuration))
(description "Run Smartdns daemon.")))