diff options
Diffstat (limited to 'startup.txr')
| -rw-r--r-- | startup.txr | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/startup.txr b/startup.txr new file mode 100644 index 0000000..39ba7bc --- /dev/null +++ b/startup.txr @@ -0,0 +1,21 @@ +@(define startup (domain)) +@ (cases) +@ (next "/etc/mailname" :nothrow) +@domain +@ (or) +@ (error-form "Configuration Missing" "Cannot read /etc/mailname file") +@ (fail) +@ (end) +@ (if (not (zerop (geteuid)))) +@ (error-form "Installation Problem" "Wrong script permissions") +@ (fail) +@ (end) +@ (cases) +@ (next :env) +@ (skip) +HTTPS=on +@ (or) +@ (error-form "Security Problem" "Not redirected to HTTPS!") +@ (fail) +@ (end) +@(end) |