Archived
1
0

Add charset to sended log email

This commit is contained in:
Mercier Pierre-Olivier 2013-11-14 16:03:30 +01:00
parent a4076fe953
commit 33e32d2916

View File

@ -4,6 +4,10 @@ use v5.10.1;
use strict; use strict;
use warnings; use warnings;
use Carp; use Carp;
use utf8;
use open IO => ':utf8';
use open ':std';
use Data::Dumper; use Data::Dumper;
use Email::MIME; use Email::MIME;
use Exporter 'import'; use Exporter 'import';
@ -74,6 +78,11 @@ sub log
To => "Roots assistants <ml-root\@acu.epita.fr>", To => "Roots assistants <ml-root\@acu.epita.fr>",
Subject => "[LERDORF][ERROR] ".join(' ', @_) Subject => "[LERDORF][ERROR] ".join(' ', @_)
], ],
attributes => {
encoding => 'quoted-printable',
charset => 'utf-8',
format => 'flowed',
},
body_str => "Bonjour, body_str => "Bonjour,
Une erreur de niveau $level est survenue sur la machine $HOSTNAME. Une erreur de niveau $level est survenue sur la machine $HOSTNAME.