mail::dkim::publickey(3) [suse man page]

Mail::DKIM::PublicKey(3)				User Contributed Perl Documentation				  Mail::DKIM::PublicKey(3)

CONSTRUCTOR

   fetch() - retrieve a public key record from DNS
	 my $public_key = Mail::DKIM::PublicKey->fetch(
			     Protocol => "dns",
			     Selector => "brisbane",
			     Domain => "example.com",
			   );

       If the public key is found, a Mail::DKIM::PublicKey object is returned, representing the information found in DNS.  If the public key does
       not exist in DNS, then "undef" is returned.  If a DNS error occurs while fetching the key, then this method will "die".	If the public key
       was found, but is not valid (e.g. it is "revoked"), then this method will "die".

METHODS

   granularity() - get or set the granularity (g=) field
	 my $g = $public_key->granularity;

	 $public_key->granularity("*");

       Granularity of the key. The value must match the Local-part of the effective "i=" tag of the DKIM-Signature header field.  The granularity
       is a literal value, or a pattern with a single '*' wildcard character that matches zero or more characters.

       If no granularity is defined, then the default value, '*', will be returned.

perl v5.12.1							    2010-02-24						  Mail::DKIM::PublicKey(3)

Mail::DKIM::PrivateKey(3)				User Contributed Perl Documentation				 Mail::DKIM::PrivateKey(3)

NAME

       Mail::DKIM::PrivateKey - a private key loaded in memory for DKIM signing

SYNOPSIS

	my $key1 = Mail::DKIM::PrivateKey->load(
		      File => "/path/to/private.key");

	my $key2 = Mail::DKIM::PrivateKey->load(
		      Data => $base64);

	# use the loaded key in a DKIM signing object
	my $dkim = Mail::DKIM::Signer->new(
		      Key => $key2,
		    );

CONSTRUCTOR

   load() - loads a private key into memory
	my $key1 = Mail::DKIM::PrivateKey->load(
		      File => "/path/to/private.key");

       Loads the Base64-encoded key from the specified file.

	 my $key2 = Mail::DKIM::PrivateKey->load(Data => $base64);

       Loads the Base64-encoded key from a string already in memory.

	 my $key3 = Mail::DKIM::PrivateKey->load(Cork => $openssl_object);

       Creates a Mail::DKIM::PrivateKey wrapper object for the given OpenSSL key object. The key object should be of type Crypt::OpenSSL::RSA.

METHODS

   cork() - access the underlying OpenSSL key object
	 $openssl_object = $key->cork;

       The returned object is of type Crypt::OpenSSL::RSA.

   sign_digest()
       Cryptographically sign the given message digest.

	 $key->sign_digest("SHA-1", sha1("my message text"));

       The first parameter is the name of the digest: one of "SHA-1", "SHA-256".

       The second parameter is the message digest as a binary string.

       The result should be the signed digest as a binary string.

AUTHOR

       Jason Long, <jlong@messiah.edu>

COPYRIGHT AND LICENSE

       Copyright (C) 2006-2008 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.3							    2010-11-14						 Mail::DKIM::PrivateKey(3)