Décode le sujet des mails

tags/0.1.2
Daniel Berteaud 12 years ago
parent 84c162873b
commit 4c6a38ccde
  1. 3
      root/usr/share/qpsmtpd/plugins/logging/log2sql

@ -10,6 +10,7 @@
##################################################### #####################################################
use DBI; use DBI;
use Encode qw(decode);
use strict; use strict;
#plugin level variables are here since version 0.02 #plugin level variables are here since version 0.02
@ -132,7 +133,7 @@ sub data_post_handler{
#'touch' this message :-)) #'touch' this message :-))
$header->add("X-Sql-Log-ID",$mail_id); $header->add("X-Sql-Log-ID",$mail_id);
my $subject = scalar $header->get("Subject"); my $subject = decode('MIME-Header', scalar $header->get("Subject"));
chomp($subject); chomp($subject);
# Only keep the first 255 chars to be sure it can be inserted in the table # Only keep the first 255 chars to be sure it can be inserted in the table
$subject= substr $subject, 0, 254 if (length($subject) > 254); $subject= substr $subject, 0, 254 if (length($subject) > 254);

Loading…
Cancel
Save