From d22b09e8351ed59fbb7ffb9d4cb9d43280235485 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sun, 18 Feb 2018 17:13:47 +0100 Subject: Fetch sender email from config Signed-off-by: Florian Pritz --- bin/generate-mirror-mail.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/generate-mirror-mail.pl b/bin/generate-mirror-mail.pl index 64e3a5d..bdd4234 100755 --- a/bin/generate-mirror-mail.pl +++ b/bin/generate-mirror-mail.pl @@ -35,7 +35,6 @@ Missing from the mail are: =cut # TODO: put this in a config file -my $sender = 'bluewind@xinu.at'; #$ENV{HTTPS_CA_FILE} = '/etc/ssl/certs/ca-certificates.crt'; @@ -92,7 +91,7 @@ sub send_mail { open my $fh, "|compose-mail-from-stdin" or die "Failed to run mailer: $!"; print $fh "To: $to\n"; - print $fh "From: $sender\n"; + printf $fh "From: %s\n", $Config->{misc}->{email_from}; print $fh "Subject: $subject\n"; print $fh "\n"; print $fh "$body"; -- cgit v1.2.3-24-g4f1b