RiXotStudio/grilumops
1
0
Fork 0
Code Issues Pull Requests Releases Activity

src/default.scm: add missing logic in system-hostname-check

Browse Source 
Signed-off-by: molese <molese@protonmail.com>
This commit is contained in:
molese 2021-11-30 12:34:00 +06:00
parent 57a5c0b2e0
commit f95f4e39db
No known key found for this signature in database
GPG Key ID: 61C53544E95B132E
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/default.scm
View File

@ -7,10 +7,11 @@
;; FIXME(Krey): Process DOMAIN
;; function to print error if environment variable 'HOSTNAME' is not set or if it's value is empty
;; function to throw error if environment variable 'HOSTNAME' is not set
; or if it's value is empty
;; FIXME-QA(Molese): Needs test
(define system-hostname-check (lambda ()
(if (not (system-hostname-set?))
(if (not (eq nil (getenv "HOSTNAME")))
(throw 1 "Environment variable 'HOSTNAME' is not set, unable to apply sufficient configuration"))
(if (eq? (getenv "HOSTNAME") #f)
(throw 1 "Environment variable 'HOSTNAME' is empty, unable to apply sufficient configuration"))))