Represents a dkim-signature header
my $signature = Mail::DKIM::Signature->new( [ Algorithm => "rsa-sha1", ] [ Signature => $base64, ] [ Method => "relaxed", ] [ Domain => "example.org", ] [ Identity => '[email protected]', ] [ Headers => "from:subject:date:message-id", ] [ Query => "dns", ] [ Selector => "alpha", ] [ Timestamp => time(), ] [ Expiration => time() + 86400, ] );
my $sig = Mail::DKIM::Signature->parse( "DKIM-Signature: a=rsa-sha1; b=yluiJ7+0=; c=relaxed" );
Constructs a signature by parsing the provided DKIM-Signature header content. You do not have to include the header name (i.e. \*(L"DKIM-Signature:\*(R") but it is recommended, so the header name can be preserved and returned the same way in as_string().
Note: The input to this constructor is in the same format as the output of the as_string method.
The algorithm used to generate the signature. Should be either \*(L"rsa-sha1\*(R", an RSA-signed \s-1SHA-1\s0 digest, or \*(L"rsa-sha256\*(R", an RSA-signed \s-1SHA-256\s0 digest.
See also hash_algorithm().
print $signature->as_string . "\n";
outputs
DKIM-Signature: a=rsa-sha1; b=yluiJ7+0=; c=relaxed
As shown in the example, the as_string method can be used to generate the DKIM-Signature that gets prepended to a signed message.
print $signature->as_string_without_data . "\n";
outputs
DKIM-Signature: a=rsa-sha1; b=; c=relaxed
This is similar to the as_string() method, but it always excludes the \*(L"data\*(R" part. This is used by the \s-1DKIM\s0 canonicalization methods, which require incorporating this part of the signature into the signed message.
my $i = $signature->body_count;
Informs the verifier of the number of bytes in the body of the email included in the cryptographic hash, starting from 0 immediately following the \s-1CRLF\s0 preceding the body. Also known as the l= tag.
When creating a signature, this tag may be either omitted, or set after the selected canonicalization system has received the entire message body (but before it canonicalizes the DKIM-Signature).
my $bh = $signature->body_hash;
The hash of the body part of the message. Whitespace is ignored in this value. This tag is required.
When accessing this value, whitespace is stripped from the tag for you.
$signature->canonicalization("relaxed", "simple");
($header, $body) = $signature->canonicalization;
Message canonicalization (default is \*(L"simple/simple\*(R"). This informs the verifier of the type of canonicalization used to prepare the message for signing.
In scalar context, this returns header/body canonicalization as a single string separated by /. In list context, it returns a two element array, containing first the header canonicalization, then the body.
my $base64 = $signature->data; $signature->data($base64);
The signature data. Whitespace is automatically stripped from the returned value. The data is Base64-encoded.
my $d = $signature->domain; # gets the domain value $signature->domain("example.org"); # sets the domain value
The domain of the signing entity, as specified in the signature. This is the domain that will be queried for the public key.
If using an \*(L"internationalized domain name\*(R", the domain name must be converted to \s-1ASCII\s0 (following section 4.1 of \s-1RFC\s0 3490) before passing it to this method.
Signature expiration (default is undef, meaning no expiration). The signature expiration, if defined, is an unsigned integer identifying the standard Unix seconds-since-1970 time when the signature will expire.
my $pubkey = $signature->get_public_key;
Public key to fetch is determined by the protocol, selector, and domain fields.
This method caches the result of the fetch, so subsequent calls will not require additional \s-1DNS\s0 queries.
This method will \*(C`die\*(C' if an error occurs.
my $raw_identity = $signature->get_tag("i");
Use this method to access a tag not already supported by Mail::DKIM, or if you want to bypass decoding of the value by Mail::DKIM.
For example, the raw i= (identity) tag is encoded in quoted-printable form. If you use the identity() method, Mail::DKIM will decode from quoted-printable before returning the value. But if you use get_tag(\*(L"i\*(R"), you can access the encoded quoted-printable form of the value.
my $hash = $signature->hash_algorithm;
Determines what hashing algorithm is used as part of the signature's specified algorithm.
For algorithm \*(L"rsa-sha1\*(R", the hash algorithm is \*(L"sha1\*(R". Likewise, for algorithm \*(L"rsa-sha256\*(R", the hash algorithm is \*(L"sha256\*(R". If the algorithm is not recognized, undef is returned.
$signature->headerlist("a:b:c");
my $headerlist = $signature->headerlist;
my @headers = $signature->headerlist;
Signed header fields. A colon-separated list of header field names that identify the header fields presented to the signing algorithm.
In scalar context, the list of header field names will be returned as a single string, with the names joined together with colons. In list context, the header field names will be returned as a list.
my $i = $signature->identity;
Identity of the user or agent on behalf of which this message is signed. The identity has an optional local part, followed by \*(L"@\*(R", then a domain name. The domain name should be the same as or a subdomain of the domain returned by the \*(C`domain\*(C' method.
Ideally, the identity should match the identity listed in the From: header, or the Sender: header, but this is not required to have a valid signature. Whether the identity used is \*(L"authorized\*(R" to sign for the given message is not determined here.
If using an \*(L"internationalized domain name\*(R", the domain name must be converted to \s-1ASCII\s0 (following section 4.1 of \s-1RFC\s0 3490) before passing it to this method.
Identity values are encoded in the signature in quoted-printable format. Using this method will translate to/from quoted-printable as necessary. If you want the raw quoted-printable version of the identity, use $signature->get_tag(\*(L"i\*(R").
my $key = $signature->key;
$signature->key(Mail::DKIM::PrivateKey->load(File => "private.key"));
The private key is used for signing messages. It is not used for verifying messages.
The key object can be any object that implements the sign_digest() method. (Providing your own object can be useful if your actual keys are stored out-of-process.)
Message canonicalization (default is \*(L"simple\*(R"). This informs the verifier of the type of canonicalization used to prepare the message for signing.
A colon-separated list of query methods used to retrieve the public key (default is \*(L"dns\*(R"). Each query method is of the form \*(L"type[/options]\*(R", where the syntax and semantics of the options depends on the type.
my $result = $signature->result;
$signature->result("pass");
# to set the result with details $signature->result("invalid", "no public key");
my $detail = $signature->result_detail;
An explanation of possible detail messages can be found in the documentation for \*(L"result_detail()\*(R" in Mail::DKIM::Verifier.
The selector subdivides the namespace for the \*(L"d=\*(R" (domain) tag. $signature->prettify;
This method may alter the signature in a way that breaks signatures, so it should be done \s-1ONLY\s0 when the signature is being generated, \s-1BEFORE\s0 being fed to the canonicalization algorithm.
See also prettify_safe(), which will not break signatures.
$signature->prettify_safe;
This method will not break the signature, but it only affects the b= part of the signature.
Signature timestamp (default is undef, meaning unknown creation time). This is the time that the signature was created. The value is an unsigned integer identifying the number of standard Unix seconds-since-1970.
This is the version of the \s-1DKIM\s0 specification that applies to this signature record.
Mail::DKIM::DkSignature for DomainKey-Signature headers
Jason Long, <[email protected]>
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.