startup.txr


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

@(define startup (domain))
@  (cases)
@    (next "/etc/mailname" :nothrow)
@domain
@  (or)
@    (error-form "Configuration Missing" "Cannot read /etc/mailname file")
@    (fail)
@  (end)
@  (if require-https)
@    (cases)
@      (next :env)
@      (skip)
HTTPS=on
@    (or)
@      (error-form "Security Problem" "Not redirected to HTTPS!")
@      (fail)
@    (end)
@  (end)
@  (do (umask #o007))
@(end)