Mail::DKIM::Policy (3pm)

  # get all policies that apply to a verified message
  foreach my $policy ($dkim->policies)
  {

      # the name of this policy
      my $name = $policy->name;

      # the location in DNS where this policy was found
      my $location = $policy->location;

      # apply this policy to the message being verified
      my $result = $policy->apply($dkim);

  }

Between the various versions of the DomainKeys/DKIM standards, several different forms of sender \*(L"signing\*(R" policies have been defined. In order for the Mail::DKIM library to support these different policies, it uses several different subclasses. All subclasses support this general interface, so that a program using Mail::DKIM can support any and all policies found for a message.

These methods are supported by all classes implementing the Mail::DKIM::Policy interface.

\fIapply()\fP

Apply the policy to the results of a \s-1DKIM\s0 verifier.

my $result = $policy->apply($dkim_verifier);

The caller must provide an instance of Mail::DKIM::Verifier, one which has already been fed the message being verified.

Possible results are:

accept

The message is approved by the sender signing policy.

reject

The message is rejected by the sender signing policy.

neutral

The message is neither approved nor rejected by the sender signing policy. It can be considered suspicious.

\fIas_string()\fP

The policy as a string.

Note that the string returned by this method will not necessarily have the tags ordered the same as the text record found in \s-1DNS\s0.

\fIis_implied_default_policy()\fP

Is this policy implied?

my $is_implied = $policy->is_implied_default_policy;

If you fetch the policy for a particular domain, but that domain does not have a policy published, then the \*(L"default policy\*(R" is in effect. Use this method to detect when that happens.

\fIlocation()\fP

Where the policy was fetched from.

This is generally a domain name, the domain name where the policy was published.

If nothing is published for the domain, and the default policy was returned instead, the location will be \*(C`undef\*(C'.

\fIname()\fP

Identify what type of policy this is.

This currently returns strings like \*(L"sender\*(R", \*(L"author\*(R", and \*(L"\s-1ADSP\s0\*(R". It is subject to change in the next version of Mail::DKIM.

Mail::DKIM::DkPolicy - for \s-1RFC4870\s0(historical) DomainKeys sender signing policies

Mail::DKIM::DkimPolicy - for early draft \s-1DKIM\s0 sender signing policies

Mail::DKIM::AuthorDomainPolicy - for Author Domain Signing Practices (\s-1ADSP\s0)

Jason Long, <[email protected]>

Copyright (C) 2006-2009 by Messiah College

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.