"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/DKIM/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::Signer; package Mail::DKIM::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 2005-2007 Messiah College. All rights reserved. # Copyright 2005-2007 Messiah College. All rights reserved.
# Jason Long <jlong@messiah.edu> # Jason Long <jlong@messiah.edu>
# Copyright (c) 2004 Anthony D. Urso. All rights reserved. # Copyright (c) 2004 Anthony D. Urso. All rights reserved.
# 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;
skipping to change at line 134 skipping to change at line 134
# using the current signature properties # using the current signature properties
# check properties # check properties
unless ( $self->{'Algorithm'} ) { unless ( $self->{'Algorithm'} ) {
die 'invalid algorithm property'; die 'invalid algorithm property';
} }
unless ( $self->{'Method'} ) { unless ( $self->{'Method'} ) {
die 'invalid method property'; die 'invalid method property';
} }
unless ( $self->{'Domain'} ) { unless ( $self->{'Domain'} ) {
die 'invalid header property'; die 'invalid domain property';
} }
unless ( $self->{'Selector'} ) { unless ( $self->{'Selector'} ) {
die 'invalid selector property'; die 'invalid selector property';
} }
$self->add_signature( $self->add_signature(
Mail::DKIM::Signature->new( Mail::DKIM::Signature->new(
Algorithm => $self->{'Algorithm'}, Algorithm => $self->{'Algorithm'},
Method => $self->{'Method'}, Method => $self->{'Method'},
Headers => $self->headers, Headers => $self->headers,
skipping to change at line 430 skipping to change at line 430
=pod =pod
=encoding UTF-8 =encoding UTF-8
=head1 NAME =head1 NAME
Mail::DKIM::Signer - generates a DKIM signature for a message Mail::DKIM::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::Signer; use Mail::DKIM::Signer;
use Mail::DKIM::TextWrap; #recommended use Mail::DKIM::TextWrap; #recommended
# create a signer object # create a signer object
my $dkim = Mail::DKIM::Signer->new( my $dkim = Mail::DKIM::Signer->new(
Algorithm => 'rsa-sha1', Algorithm => 'rsa-sha1',
Method => 'relaxed', Method => 'relaxed',
 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)