Projects
home:rottame:mail
perl-spamassassin-dmarc
Log In
Username
Password
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
Expand all
Collapse all
Changes of Revision 6
View file
perl-spamassassin-dmarc-1.0.0.tar.gz/dmarc.pm
Changed
@@ -198,11 +198,13 @@ if(not defined $pms->{dkim_verifier}) { $dkim = {}; - for (keys %{$pms->{dkim_author_domains}}){ - $dkim->{$_} = { domain => $_, result => 'neutral' }; - } + #for (keys %{$pms->{dkim_author_domains}}){ + # $dkim->{$_} = { domain => $_, result => 'neutral' }; + #} if(defined $pms->{dkim_signatures}) { foreach (@{$pms->{dkim_signatures}}) { + $dkim->{$_->domain} = {}; + $dkim->{$_->domain}->{domain} = $_->domain; $dkim->{$_->domain}->{result} = $_->result; $dkim->{$_->domain}->{human_result} = $_->result_detail; $dkim->{$_->domain}->{selector} = $_->selector; @@ -211,7 +213,6 @@ $dkim = [values %{$dkim}]; } - $spf_status = 'pass' if ((defined $pms->{spf_pass}) and ($pms->{spf_pass} eq 1)); $spf_status = 'fail' if ((defined $pms->{spf_fail}) and ($pms->{spf_fail} eq 1)); $spf_status = 'none' if ((defined $pms->{spf_none}) and ($pms->{spf_none} eq 1));
Locations
Projects
Search
Status Monitor
Help
Open Build Service
OBS Manuals
API Documentation
OBS Portal
Reporting a Bug
Contact
Mailing List
Forums
Chat (IRC)
Twitter
Open Build Service (OBS)
is an
openSUSE project
.