byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

limit split = to 2 fields

Browse Source 
(for cases where the field had more than one = sign)
This commit is contained in:
Matt Simerson 2015-02-11 12:51:58 -08:00
parent f3872b1e66
commit affd8c3f93
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd/SMTP.pm
View File

@ -816,7 +816,7 @@ sub clean_authentication_results {
# Do not rename A-R header if DKIM signed # Do not rename A-R header if DKIM signed
my $dkim_sig = $self->transaction->header->get('DKIM-Signature'); my $dkim_sig = $self->transaction->header->get('DKIM-Signature');
if ($dkim_sig) { if ($dkim_sig) {
my %fields = map { split /=/ } split /;\s+/, $dkim_sig; my %fields = map { split /=/, $_, 2 } split /;\s+/, $dkim_sig;
# print Data::Dumper::Dumper(\%fields); # print Data::Dumper::Dumper(\%fields);
if ($fields{h} && $fields{h} =~ /Authentication-Results/i) { if ($fields{h} && $fields{h} =~ /Authentication-Results/i) {
return; return;