"Fossies" - the Fresh Open Source Software Archive  

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

MessageSignature.pm  (Mail-DKIM-1.20230630):MessageSignature.pm  (Mail-DKIM-1.20230911)
package Mail::DKIM::ARC::MessageSignature; package Mail::DKIM::ARC::MessageSignature;
use strict; use strict;
use warnings; use warnings;
our $VERSION = '1.20230630'; # VERSION our $VERSION = '1.20230911'; # VERSION
# ABSTRACT: Subclass of Mail::DKIM::Signature which represents a ARC-Message-Sig nature header # ABSTRACT: Subclass of Mail::DKIM::Signature which represents a ARC-Message-Sig nature header
# 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 base 'Mail::DKIM::Signature'; use base 'Mail::DKIM::Signature';
use Carp; use Carp;
skipping to change at line 32 skipping to change at line 32
$self->instance( $prms{'Instance'} ) if exists $prms{'Instance'}; $self->instance( $prms{'Instance'} ) if exists $prms{'Instance'};
$self->algorithm( $prms{'Algorithm'} || 'rsa-sha256' ); $self->algorithm( $prms{'Algorithm'} || 'rsa-sha256' );
$self->signature( $prms{'Signature'} ); $self->signature( $prms{'Signature'} );
$self->canonicalization( $prms{'Method'} ) if exists $prms{'Method'}; $self->canonicalization( $prms{'Method'} ) if exists $prms{'Method'};
$self->domain( $prms{'Domain'} ); $self->domain( $prms{'Domain'} );
$self->headerlist( $prms{'Headers'} ); $self->headerlist( $prms{'Headers'} );
$self->protocol( $prms{'Query'} ) if exists $prms{'Query'}; $self->protocol( $prms{'Query'} ) if exists $prms{'Query'};
$self->selector( $prms{'Selector'} ); $self->selector( $prms{'Selector'} );
$self->timestamp( $prms{'Timestamp'} ) if defined $prms{'Timestamp'}; $self->timestamp( $prms{'Timestamp'} ) if defined $prms{'Timestamp'};
$self->expiration( $prms{'Expiration'} ) if defined $prms{'Expiration'}; $self->expiration( $prms{'Expiration'} ) if defined $prms{'Expiration'};
$self->tags( $prms{'Tags'} ) if defined $prms{'Tags'};
$self->key( $prms{'Key'} ) if defined $prms{'Key'}; $self->key( $prms{'Key'} ) if defined $prms{'Key'};
return $self; return $self;
} }
sub DEFAULT_PREFIX { sub DEFAULT_PREFIX {
return 'ARC-Message-Signature:'; return 'ARC-Message-Signature:';
} }
sub instance { sub instance {
skipping to change at line 69 skipping to change at line 70
=pod =pod
=encoding UTF-8 =encoding UTF-8
=head1 NAME =head1 NAME
Mail::DKIM::ARC::MessageSignature - Subclass of Mail::DKIM::Signature which repr esents a ARC-Message-Signature header Mail::DKIM::ARC::MessageSignature - Subclass of Mail::DKIM::Signature which repr esents a ARC-Message-Signature header
=head1 VERSION =head1 VERSION
version 1.20230630 version 1.20230911
=head1 CONSTRUCTORS =head1 CONSTRUCTORS
=head2 new() - create a new signature from parameters =head2 new() - create a new signature from parameters
my $signature = Mail::DKIM::ARC::MessageSignature->new( my $signature = Mail::DKIM::ARC::MessageSignature->new(
[ Algorithm => 'rsa-sha256', ] [ Algorithm => 'rsa-sha256', ]
[ Signature => $base64, ] [ Signature => $base64, ]
[ Method => 'relaxed', ] [ Method => 'relaxed', ]
[ Domain => 'example.org', ] [ Domain => 'example.org', ]
 End of changes. 3 change blocks. 
2 lines changed or deleted 3 lines changed or added

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