"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/DKIM/ARC/Signer.pm" 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.

Signer.pm  (Mail-DKIM-1.20230630):Signer.pm  (Mail-DKIM-1.20230911)
package Mail::DKIM::ARC::Signer; package Mail::DKIM::ARC::Signer;
use strict; use strict;
use warnings; use warnings;
our $VERSION = '1.20230630'; # VERSION our $VERSION = '1.20230911'; # VERSION
# ABSTRACT: generates a DKIM signature for a message # ABSTRACT: generates a DKIM signature for a message
# Copyright 2017 FastMail Pty Ltd. All Rights Reserved. # Copyright 2017 FastMail Pty Ltd. All Rights Reserved.
# Bron Gondwana <brong@fastmailteam.com> # Bron Gondwana <brong@fastmailteam.com>
# This program is free software; you can redistribute it and/or # This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself. # modify it under the same terms as Perl itself.
use Mail::DKIM::PrivateKey; use Mail::DKIM::PrivateKey;
use Mail::DKIM::ARC::MessageSignature; use Mail::DKIM::ARC::MessageSignature;
skipping to change at line 250 skipping to change at line 250
Algorithm => $self->{Algorithm}, Algorithm => $self->{Algorithm},
Headers => $self->headers, Headers => $self->headers,
Instance => $self->{_Instance}, Instance => $self->{_Instance},
Method => 'relaxed/relaxed', Method => 'relaxed/relaxed',
Domain => $self->{Domain}, Domain => $self->{Domain},
Selector => $self->{Selector}, Selector => $self->{Selector},
Key => $self->{Key}, Key => $self->{Key},
KeyFile => $self->{KeyFile}, KeyFile => $self->{KeyFile},
( $self->{Timestamp} ? ( Timestamp => $self->{Timestamp} ) : () ), ( $self->{Timestamp} ? ( Timestamp => $self->{Timestamp} ) : () ),
( $self->{Expiration} ? ( Expiration => $self->{Expiration} ) : () ) , ( $self->{Expiration} ? ( Expiration => $self->{Expiration} ) : () ) ,
(
$self->{'Tags'} ? ( Tags => $self->{'Tags'} )
: ()
),
) )
); );
foreach my $algorithm ( @{ $self->{algorithms} } ) { foreach my $algorithm ( @{ $self->{algorithms} } ) {
# output header as received so far into canonicalization # output header as received so far into canonicalization
foreach my $header ( @{ $self->{headers} } ) { foreach my $header ( @{ $self->{headers} } ) {
$algorithm->add_header($header); $algorithm->add_header($header);
} }
$algorithm->finish_header( Headers => $self->{headers} ); $algorithm->finish_header( Headers => $self->{headers} );
skipping to change at line 316 skipping to change at line 320
Algorithm => $self->{Algorithm}, Algorithm => $self->{Algorithm},
Chain => $self->{Chain}, Chain => $self->{Chain},
Headers => $self->headers, Headers => $self->headers,
Instance => $self->{_Instance}, Instance => $self->{_Instance},
Domain => $self->{Domain}, Domain => $self->{Domain},
Selector => $self->{Selector}, Selector => $self->{Selector},
Key => $self->{Key}, Key => $self->{Key},
KeyFile => $self->{KeyFile}, KeyFile => $self->{KeyFile},
( $self->{Timestamp} ? ( Timestamp => $self->{Timestamp} ) : () ), ( $self->{Timestamp} ? ( Timestamp => $self->{Timestamp} ) : () ),
( $self->{Expiration} ? ( Expiration => $self->{Expiration} ) : () ) , ( $self->{Expiration} ? ( Expiration => $self->{Expiration} ) : () ) ,
(
$self->{'SealTags'} ? ( Tags => $self->{'SealTags'} )
: ()
),
) )
); );
foreach my $algorithm ( @{ $self->{algorithms} } ) { foreach my $algorithm ( @{ $self->{algorithms} } ) {
# output header as received so far into canonicalization # output header as received so far into canonicalization
foreach my $header ( @{ $self->{headers} } ) { foreach my $header ( @{ $self->{headers} } ) {
$algorithm->add_header($header); $algorithm->add_header($header);
} }
skipping to change at line 584 skipping to change at line 593
=pod =pod
=encoding UTF-8 =encoding UTF-8
=head1 NAME =head1 NAME
Mail::DKIM::ARC::Signer - generates a DKIM signature for a message Mail::DKIM::ARC::Signer - generates a DKIM signature for a message
=head1 VERSION =head1 VERSION
version 1.20230630 version 1.20230911
=head1 SYNOPSIS =head1 SYNOPSIS
use Mail::DKIM::ARC::Signer; use Mail::DKIM::ARC::Signer;
use Mail::DKIM::TextWrap; #recommended use Mail::DKIM::TextWrap; #recommended
# create a signer object # create a signer object
my $signer = Mail::DKIM::ARC::Signer->new( my $signer = Mail::DKIM::ARC::Signer->new(
Algorithm => 'rsa-sha256', Algorithm => 'rsa-sha256',
Chain => 'none', # or pass|fail|ar Chain => 'none', # or pass|fail|ar
skipping to change at line 719 skipping to change at line 728
From Sender Reply-To Subject Date From Sender Reply-To Subject Date
Message-ID To Cc MIME-Version Message-ID To Cc MIME-Version
Content-Type Content-Transfer-Encoding Content-ID Content-Description Content-Type Content-Transfer-Encoding Content-ID Content-Description
Resent-Date Resent-From Resent-Sender Resent-To Resent-cc Resent-Date Resent-From Resent-Sender Resent-To Resent-cc
Resent-Message-ID Resent-Message-ID
In-Reply-To References In-Reply-To References
List-Id List-Help List-Unsubscribe List-Subscribe List-Id List-Help List-Unsubscribe List-Subscribe
List-Post List-Owner List-Archive List-Post List-Owner List-Archive
=item Tags
An optional hashref of additional tags to be added to the ARC
signature generated.
=item SealTags
An optional hashref of additional tags to be added to the ARC
seal generated.
=back =back
=head1 METHODS =head1 METHODS
=head2 PRINT() =head2 PRINT()
Feed part of the message to the signer. Feed part of the message to the signer.
$signer->PRINT("a line of the message\015\012"); $signer->PRINT("a line of the message\015\012");
 End of changes. 5 change blocks. 
2 lines changed or deleted 21 lines changed or added

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