Fetch sender email from config

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 1 insertions, 2 deletions

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";