(services mail): transfer definition of the mailname file in /etcHEADtestmaster

1 files changed, 12 insertions, 0 deletions

diff --git a/deployment/services/mail.scm b/deployment/services/mail.scm
index 99960fb..0101de9 100644
--- a/deployment/services/mail.scm
+++ b/deployment/services/mail.scm
@@ -22,6 +22,7 @@
 
 (define-module (deployment services mail)
   #:export     (dkimproxy-out-service
+                etc-mailname-aisaka
                 smtp-service-aisaka)
   #:use-module (gnu services)
   #:use-module (gnu services mail)
@@ -158,6 +159,17 @@
    (log-file             "/val/log/mail.log")
    (setgid-commands?     #t)))
 
+(define etc-mailname-aisaka
+  (let*
+      ((file     (plain-file "mailname-aisaka"
+                             "marekpasnikowski.pl\n"))
+       (mailname (list "mailname"
+                       file))
+       (links    (list mailname)))
+    (simple-service 'etc-mailname
+                    etc-service-type
+                    links)))
+
 (define smtp-service-aisaka
   (service opensmtpd-service-type
 	         opensmtpd-configuration-aisaka))