"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "scripts/dkimsign.pl" between
Mail-DKIM-1.20230630.tar.gz and Mail-DKIM-1.20230911.tar.gz

About: Mail-DKIM Perl module for implementing the DKIM (DomainKeys Identified Mail) message-signing and verifying standard for Internet mail.

dkimsign.pl  (Mail-DKIM-1.20230630):dkimsign.pl  (Mail-DKIM-1.20230911)
skipping to change at line 103 skipping to change at line 103
Algorithm => $dkim->algorithm, Algorithm => $dkim->algorithm,
Method => $dkim->method, Method => $dkim->method,
Headers => $dkim->headers, Headers => $dkim->headers,
Domain => $dkim->domain, Domain => $dkim->domain,
Selector => $dkim->selector, Selector => $dkim->selector,
defined($opt->timestamp) ? (Timestamp => $opt->expiration ) : (), defined($opt->timestamp) ? (Timestamp => $opt->expiration ) : (),
defined($opt->expiration) ? (Expiration => $timestamp + $ opt->expiration) : (), defined($opt->expiration) ? (Expiration => $timestamp + $ opt->expiration) : (),
defined($opt->identity) ? (Identity => $opt->identity) : (), defined($opt->identity) ? (Identity => $opt->identity) : (),
); );
$sig->protocol($opt->key_protocol) if defined $opt->key_protocol; $sig->protocol($opt->key_protocol) if defined $opt->key_protocol;
if ($opt->extra_tag) { if ($opt->extra_tag) {
foreach my $extra ($opt->extra_tag->@*) foreach my $extra ($opt->extra_tag->@*) {
{ my ($n, $v) = split /=/, $extra, 2;
my ($n, $v) = split /=/, $extra, 2; $sig->set_tag($n, $v);
$sig->set_tag($n, $v); }
}
} }
$dkim->add_signature($sig); $dkim->add_signature($sig);
return; return;
} }
__END__ __END__
=head1 NAME =head1 NAME
dkimsign.pl - computes a DKIM signature for an email message dkimsign.pl - computes a DKIM signature for an email message
 End of changes. 1 change blocks. 
6 lines changed or deleted 5 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)