peter/haccfiles
1
0
Fork 0
forked from hacc/haccfiles
Code Issues Pull requests Projects Releases Wiki Activity

uffd script: fix subject/from header

Browse source
This commit is contained in:
stuebinm 2024-10-28 00:30:43 +01:00
parent ca0c1192a0
commit 7be555013a
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
pkgs/scripts/uffd-unused-accounts-notification.scm
View file

@ -67,7 +67,6 @@ union all select displayname, mail, '2022' from user where not exists (select *
(define (mk-email displayname last-login) (define (mk-email displayname last-login)
#" #"
Subject: meow
Hallo ~|displayname|! Hallo ~|displayname|!
Wir haben schon lange (seit über einem Jahr; dein letzter Login war um ~|last-login|) Wir haben schon lange (seit über einem Jahr; dein letzter Login war um ~|last-login|)
@ -96,7 +95,7 @@ list of these accounts, invoke it with the \"list-accounts\" option.
(define (send-email address subject text) (define (send-email address subject text)
(when verbose (when verbose
(display (format "sending email to ~a\n" address))) (display (format "sending email to ~a\n" address)))
(let ([text (string-append "subject: " subject "\n" text "\n")]) (let ([text (string-append "from: admin@hacc.space\n" "subject: " subject "\n" text "\n")])
(when very-verbose (when very-verbose
(display text)) (display text))
(call-with-output-process (call-with-output-process