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