Bill Landry writes,
> Mark, your patches for DKIM.pm and DkSignature.pm took care of the issue
> I was seeing with GMail DomainKey signatures, since they were missing
> the "q=dns" tag.
Below is a similar patch to Mail/DKIM/DkSignature.pm,
this time to handle missing 'a' tags in DomainKeys signatures,
which seem to be practiced by paypal.com and ebay.com.
(I sent the patch to Jason Long as well).
--- DKIM/DkSignature.pm~ Fri Feb 9 19:47:55 2007
+++ DKIM/DkSignature.pm Mon Feb 19 20:52:47 2007
@@ -127,4 +127,23 @@
}
+=head2 algorithm() - get or set the algorithm (a=) field
+
+The algorithm used to generate the signature.
+Defaults to "rsa-sha1", an RSA-signed SHA-1 digest.
+
+=cut
+
+sub algorithm
+{
+ my $self = shift;
+
+ if (@_)
+ {
+ $self->set_tag("a", shift);
+ }
+
+ return lc $self->get_tag("a") || 'rsa-sha1';
+}
+
=head2 canonicalization() - get or set the canonicalization (c=) field
Mark
