Browse Source

Fix utf8 webpage issue with fdnbot

Julien Vaubourg 9 years ago
parent
commit
e323394e34
1 changed files with 6 additions and 3 deletions
  1. 6 3
      fdnTopicAddBot/fdn-accbot.pl

+ 6 - 3
fdnTopicAddBot/fdn-accbot.pl

@@ -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) {