diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/org/euandre/packages.scm | 25 |
1 files changed, 21 insertions, 4 deletions
diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm index 266e43e..d2aa93b 100644 --- a/src/org/euandre/packages.scm +++ b/src/org/euandre/packages.scm @@ -489,6 +489,7 @@ make-syskeep-configuration syskeep-configuration? (package syskeep-configuration-package (default syskeep)) + (tld syskeep-configuration-tld (default #f)) (secrets-user syskeep-configuration-secrets-user (default "secrets-keeper")) (secrets-group syskeep-configuration-secrets-group (default "secrets-keeper")) (become-secrets-group syskeep-configuration-become-secrets-group (default "become-secrets-keeper")) @@ -576,10 +577,26 @@ (define (syskeep-activation config) (match-record config <syskeep-configuration> - (log-file) - #~(begin - #$(activation-gexp "syskeep" "root" log-file #f #f) - (symlink "/tmp/a" "../tmp/b")))) + (tld log-file) + (let ((privkey-path (fmt "../../opt/secrets/root@~a.id_rsa.txt" tld))) + #~(begin + #$(activation-gexp "syskeep" "root" log-file #f #f) + (define (dir target) + (format (current-error-port) + "Creating directory: ~a.~%" target) + (mkdir-p target)) + (define (link from to) + (format (current-error-port) + "Symlink: ~a -> ~a~%" to from) + (symlink from to)) + (link "mnt/production/opt" "/opt") + (link "mnt/production/srv" "/srv") + (link "../mnt/production/srv" "/var/mail") + (dir "/root/.ssh") + (link #$privkey-path "/root/.ssh/id_rsa") + (link "../../etc/ssh.conf" "/root/.ssh/config") + (link "../../etc/id_rsa.pub" "/root/.ssh/id_rsa.pub") + (link "../../etc/known_hosts" "/root/.ssh/known_hosts"))))) (define-public syskeep-sudoers-file (plain-file "sudoers-syskeep" "\ |