|
Hello,
since Mail::DKIM::Signature can sign only part of the headers, I've written this little patch who permit to specify choosen headers in Mail::DKIM::Signer:
--- Mail-DKIM-0.22/lib/Mail/DKIM/Signer.pm 2007-01-19 15:04:02.000000000 +0100
+++ Mail-DKIM-0.22-1/lib/Mail/DKIM/Signer.pm 2007-02-17 12:20:53.000000000 +0100
@@ -234,7 +234,15 @@
{
my $self = shift;
croak "unexpected argument" if @_;
- my @headers = @{$self->{header_field_names}};
+ my @headers;
+ if($self->{Headers})
+ {
+ my @tmp = split /:/, lc($self->{Headers});
+ @headers = map { $a = $_; grep { $_ eq $a } @{$self->{header_field_names}} } @tmp;
+ }
+ else {
+ @headers = @{$self->{header_field_names}};
+ }
return join(":", @headers);
}
|
