Merge pull request #228 from msimerson/ar

limit split = to 2 fields
This commit is contained in:
Jared Johnson 2015-02-11 14:56:53 -06:00
commit 37c04cf728

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;