|
@@ -30,7 +30,7 @@ my $subscribe = "http://listes.ldn-fai.net/cgi-bin/mailman/listinfo/fdn";
|
|
my $mail_support = 'support@fdn.fr';
|
|
my $mail_support = 'support@fdn.fr';
|
|
my $mail_liste = 'fdn@listes.ldn-fai.net';
|
|
my $mail_liste = 'fdn@listes.ldn-fai.net';
|
|
my $mail_from = 'fdnAlertBot <fdnAlertBot@ldn-fai.net>';
|
|
my $mail_from = 'fdnAlertBot <fdnAlertBot@ldn-fai.net>';
|
|
-my $mail_subject = "[ALERTE FDN] ";
|
|
|
|
|
|
+my $mail_subject = "[ALERTE FDN]";
|
|
|
|
|
|
my $isacc = 0;
|
|
my $isacc = 0;
|
|
my $file = $ARGV[0];
|
|
my $file = $ARGV[0];
|
|
@@ -83,10 +83,13 @@ sub topic {
|
|
if($args->{"topic"}) {
|
|
if($args->{"topic"}) {
|
|
if($args->{"topic"} =~ /\Q$flag\E\s*(.+)$/i) {
|
|
if($args->{"topic"} =~ /\Q$flag\E\s*(.+)$/i) {
|
|
|
|
|
|
- $mail{"Message"} = $1;
|
|
|
|
|
|
+ my $msg = $1;
|
|
|
|
+ $mail{"Message"} = $msg;
|
|
|
|
+ utf8::decode($msg);
|
|
|
|
|
|
open(OUT, ">$file");
|
|
open(OUT, ">$file");
|
|
- print OUT "$1";
|
|
|
|
|
|
+ binmode(OUT, ":utf8");
|
|
|
|
+ print OUT "$msg";
|
|
close(OUT);
|
|
close(OUT);
|
|
|
|
|
|
if($isacc) {
|
|
if($isacc) {
|