|
|
Ubuntu: 1052-1: OpenJDK vulnerability
|
|
Mail::DKIM::SignerPolicy(3) User Contributed Perl Documentation Mail::DKIM::SignerPolicy(3) NAME
Mail::DKIM::SignerPolicy - determines signing parameters for a message DESCRIPTION
A "signer policy" is an object, class, or function used by Mail::DKIM::Signer to determine what signatures to add to the current message. To take advantage of signer policies, create your own Perl class that extends the Mail::DKIM::SignerPolicy class. The only method you need to implement is the apply() method. The apply() method takes as a parameter the Mail::DKIM::Signer object. Using this object, it can determine some properties of the message (e.g. what the From: address or Sender: address is). Then it sets various signer properties as desired. The apply() method should return a nonzero value if the message should be signed. If a false value is returned, then the message is "skipped" (i.e. not signed). Here is an example of a policy that always returns the same values: package MySignerPolicy; use base "Mail::DKIM::SignerPolicy"; sub apply { my $self = shift; my $signer = shift; $signer->algorithm("rsa-sha1"); $signer->method("relaxed"); $signer->domain("example.org"); $signer->selector("selector1"); $signer->key_file("private.key"); return 1; } To use this policy, simply specify the name of the class as the Policy parameter... my $dkim = Mail::DKIM::Signer->new( Policy => "MySignerPolicy", ); ADVANCED
You can also have the policy actually build the signature for the Signer to use. To do this, call the signer's add_signature() method from within your apply() callback. E.g., sub apply { my $self = shift; my $signer = shift; $signer->add_signature( new Mail::DKIM::Signature( Algorithm => $signer->algorithm, Method => $signer->method, Headers => $signer->headers, Domain => $signer->domain, Selector => $signer->selector, )); return; } Again, if you do not want any signatures, return zero or undef. If you use add_signature() to create a signature, the default signature will not be created, even if you return nonzero. AUTHOR
Jason Long, <jlong@messiah.edu> COPYRIGHT AND LICENSE
Copyright (C) 2006-2007 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. perl v5.16.2 2008-08-25 Mail::DKIM::SignerPolicy(3)
