"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/DKIM/ARC/Signer.pm" between
Mail-DKIM-1.20220520.tar.gz and Mail-DKIM-1.20230212.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.20220520):Signer.pm  (Mail-DKIM-1.20230212)
package Mail::DKIM::ARC::Signer; package Mail::DKIM::ARC::Signer;
use strict; use strict;
use warnings; use warnings;
our $VERSION = '1.20220520'; # VERSION our $VERSION = '1.20230212'; # 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 584 skipping to change at line 584
=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.20220520 version 1.20230212
=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 621 skipping to change at line 621
{ {
# remove local line terminators # remove local line terminators
chomp; chomp;
s/\015$//; s/\015$//;
# use SMTP line terminators # use SMTP line terminators
$signer->PRINT("$_\015\012"); $signer->PRINT("$_\015\012");
} }
$signer->CLOSE; $signer->CLOSE;
die 'Failed' $signer->result_details() unless $signer->result() eq 'sealed'; die 'Failed' $signer->result_detail() unless $signer->result() eq 'sealed';
# Get all the signature headers to prepend to the message # Get all the signature headers to prepend to the message
# ARC-Seal, ARC-Message-Signature and ARC-Authentication-Results # ARC-Seal, ARC-Message-Signature and ARC-Authentication-Results
# in that order. # in that order.
print $signer->as_string; print $signer->as_string;
=head1 DESCRIPTION =head1 DESCRIPTION
This class is the part of L<Mail::DKIM> responsible for generating This class is the part of L<Mail::DKIM> responsible for generating
ARC Seals for a given message. You create an object of this class, ARC Seals for a given message. You create an object of this class,
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added

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