"Fossies" - the Fresh Open Source Software Archive  

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

Seal.pm  (Mail-DKIM-1.20230630):Seal.pm  (Mail-DKIM-1.20230911)
package Mail::DKIM::ARC::Seal; package Mail::DKIM::ARC::Seal;
use strict; use strict;
use warnings; use warnings;
our $VERSION = '1.20230630'; # VERSION our $VERSION = '1.20230911'; # VERSION
# ABSTRACT: represents a ARC-Seal header # ABSTRACT: represents a ARC-Seal 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::ARC::MessageSignature'; use base 'Mail::DKIM::ARC::MessageSignature';
skipping to change at line 31 skipping to change at line 31
$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->chain( $prms{'Chain'} || 'none' ); $self->chain( $prms{'Chain'} || 'none' );
$self->domain( $prms{'Domain'} ); $self->domain( $prms{'Domain'} );
$self->selector( $prms{'Selector'} ); $self->selector( $prms{'Selector'} );
$self->timestamp( $self->timestamp(
defined $prms{'Timestamp'} ? $prms{'Timestamp'} : time() ); defined $prms{'Timestamp'} ? $prms{'Timestamp'} : time() );
$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 body_hash { sub body_hash {
# Not defined for ARC-Seal # Not defined for ARC-Seal
return; return;
} }
skipping to change at line 75 skipping to change at line 76
=pod =pod
=encoding UTF-8 =encoding UTF-8
=head1 NAME =head1 NAME
Mail::DKIM::ARC::Seal - represents a ARC-Seal header Mail::DKIM::ARC::Seal - represents a ARC-Seal 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::Seal->new( my $signature = Mail::DKIM::ARC::Seal->new(
[ Algorithm => 'rsa-sha256', ] [ Algorithm => 'rsa-sha256', ]
[ Signature => $base64, ] [ Signature => $base64, ]
[ Domain => 'example.org', ] [ Domain => 'example.org', ]
[ Instance => 1, ] [ Instance => 1, ]
 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)