Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Mail-DKIM for openSUSE:Factory
checked in at 2022-06-03 14:16:40
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Mail-DKIM (Old)
and /work/SRC/openSUSE:Factory/.perl-Mail-DKIM.new.1548 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Mail-DKIM"
Fri Jun 3 14:16:40 2022 rev:30 rq:980485 version:1.20220520
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Mail-DKIM/perl-Mail-DKIM.changes
2022-04-16 00:12:59.197547945 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Mail-DKIM.new.1548/perl-Mail-DKIM.changes
2022-06-03 14:16:43.733321361 +0200
@@ -1,0 +2,10 @@
+Fri May 20 03:06:54 UTC 2022 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 1.20220520
+ see /usr/share/doc/packages/perl-Mail-DKIM/Changes
+
+ 1.20220520 2022-05-20 UTC
+ + Change default algorithm in dkimsign.pl to sha-256
+ + Use Getopt::Long::Descriptive in scripts for better command help
+
+-------------------------------------------------------------------
Old:
----
Mail-DKIM-1.20220408.tar.gz
New:
----
Mail-DKIM-1.20220520.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Mail-DKIM.spec ++++++
--- /var/tmp/diff_new_pack.EONWNk/_old 2022-06-03 14:16:44.221321995 +0200
+++ /var/tmp/diff_new_pack.EONWNk/_new 2022-06-03 14:16:44.221321995 +0200
@@ -18,7 +18,7 @@
%define cpan_name Mail-DKIM
Name: perl-Mail-DKIM
-Version: 1.20220408
+Version: 1.20220520
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Signs/verifies Internet mail with DKIM/DomainKey signatures
++++++ Mail-DKIM-1.20220408.tar.gz -> Mail-DKIM-1.20220520.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/Changes
new/Mail-DKIM-1.20220520/Changes
--- old/Mail-DKIM-1.20220408/Changes 2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/Changes 2022-05-20 03:33:09.000000000 +0200
@@ -1,5 +1,9 @@
This file summarizes what's changed between releases of Mail-DKIM.
+1.20220520 2022-05-20 UTC
+ + Change default algorithm in dkimsign.pl to sha-256
+ + Use Getopt::Long::Descriptive in scripts for better command help
+
1.20220408 2022-04-08 UTC
+ Add support for signatures with an Expiration value
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/META.json
new/Mail-DKIM-1.20220520/META.json
--- old/Mail-DKIM-1.20220408/META.json 2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/META.json 2022-05-20 03:33:09.000000000 +0200
@@ -67,7 +67,7 @@
"web" : "https://github.com/fastmail/mail-dkim/";
}
},
- "version" : "1.20220408",
+ "version" : "1.20220520",
"x_contributors" : [
"Aaron Thompson <d...@aaront.org>",
"Bron Gondwana <br...@fastmail.fm>",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/META.yml
new/Mail-DKIM-1.20220520/META.yml
--- old/Mail-DKIM-1.20220408/META.yml 2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/META.yml 2022-05-20 03:33:09.000000000 +0200
@@ -36,7 +36,7 @@
resources:
bugtracker: https://github.com/fastmail/mail-dkim/issues
repository: git://github.com/fastmail/mail-dkim.git
-version: '1.20220408'
+version: '1.20220520'
x_contributors:
- 'Aaron Thompson <d...@aaront.org>'
- 'Bron Gondwana <br...@fastmail.fm>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/Makefile.PL
new/Mail-DKIM-1.20220520/Makefile.PL
--- old/Mail-DKIM-1.20220408/Makefile.PL 2022-04-08 06:05:06.000000000
+0200
+++ new/Mail-DKIM-1.20220520/Makefile.PL 2022-05-20 03:33:09.000000000
+0200
@@ -39,7 +39,7 @@
"YAML::XS" => 0,
"lib" => 0
},
- "VERSION" => "1.20220408",
+ "VERSION" => "1.20220520",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/README
new/Mail-DKIM-1.20220520/README
--- old/Mail-DKIM-1.20220408/README 2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/README 2022-05-20 03:33:09.000000000 +0200
@@ -1,5 +1,5 @@
This archive contains the distribution Mail-DKIM,
-version 1.20220408:
+version 1.20220520:
Signs/verifies Internet mail with DKIM/DomainKey signatures
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/MessageSignature.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/MessageSignature.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/MessageSignature.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/MessageSignature.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::ARC::MessageSignature;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: Subclass of Mail::DKIM::Signature which represents a
ARC-Message-Signature header
# Copyright 2017 FastMail Pty Ltd. All Rights Reserved.
@@ -69,7 +69,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 CONSTRUCTORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/Seal.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/Seal.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/Seal.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/Seal.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::ARC::Seal;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: represents a ARC-Seal header
# Copyright 2017 FastMail Pty Ltd. All Rights Reserved.
@@ -76,7 +76,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 CONSTRUCTORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/Signer.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/Signer.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/Signer.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/Signer.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::ARC::Signer;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: generates a DKIM signature for a message
# Copyright 2017 FastMail Pty Ltd. All Rights Reserved.
@@ -594,7 +594,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/Verifier.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/Verifier.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/ARC/Verifier.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/ARC/Verifier.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::ARC::Verifier;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: verifies an ARC-Sealed message
# Copyright 2017 FastMail Pty Ltd. All Rights Reserved.
@@ -621,7 +621,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/Base.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/Base.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/Base.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/Base.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Algorithm::Base;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: base class for DKIM "algorithms"
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -187,7 +187,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/dk_rsa_sha1.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/dk_rsa_sha1.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/dk_rsa_sha1.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/dk_rsa_sha1.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Algorithm::dk_rsa_sha1;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: Base algorithm class
# Copyright 2005-2006 Messiah College. All rights reserved.
@@ -134,7 +134,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/rsa_sha1.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/rsa_sha1.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/rsa_sha1.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/rsa_sha1.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Algorithm::rsa_sha1;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: rsa sha1 algorithm class
# Copyright 2005-2006 Messiah College. All rights reserved.
@@ -66,7 +66,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/rsa_sha256.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/rsa_sha256.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Algorithm/rsa_sha256.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Algorithm/rsa_sha256.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Algorithm::rsa_sha256;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: rsa sha256 algorithm class
# Copyright 2005-2006 Messiah College. All rights reserved.
@@ -66,7 +66,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/AuthorDomainPolicy.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/AuthorDomainPolicy.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/AuthorDomainPolicy.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/AuthorDomainPolicy.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::AuthorDomainPolicy;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: represents an Author Domain Signing Practices (ADSP) record
# Copyright 2005-2009 Messiah College.
@@ -195,7 +195,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/Base.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/Base.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/Base.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/Base.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::Base;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: base class for canonicalization methods
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -85,7 +85,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/DkCommon.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/DkCommon.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/DkCommon.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/DkCommon.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::DkCommon;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: dk common canonicalization
# Copyright 2005-2006 Messiah College. All rights reserved.
@@ -150,7 +150,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/DkimCommon.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/DkimCommon.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/DkimCommon.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/DkimCommon.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::DkimCommon;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: common canonicalization
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -144,7 +144,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/dk_nofws.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/dk_nofws.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/dk_nofws.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/dk_nofws.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::dk_nofws;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: nofws canonicalization
# Copyright 2005-2006 Messiah College. All rights reserved.
@@ -45,7 +45,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/dk_simple.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/dk_simple.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/dk_simple.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/dk_simple.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::dk_simple;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: dk simple canonicalization
# Copyright 2005 Messiah College. All rights reserved.
@@ -75,7 +75,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/nowsp.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/nowsp.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/nowsp.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/nowsp.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::nowsp;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: nowsp canonicalization
# Copyright 2005 Messiah College. All rights reserved.
@@ -57,7 +57,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/relaxed.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/relaxed.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/relaxed.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/relaxed.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::relaxed;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: common canonicalization
# Copyright 2005 Messiah College. All rights reserved.
@@ -123,7 +123,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/seal.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/seal.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/seal.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/seal.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::seal;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: arc seal canonicalization
# Copyright 2017 FastMail Pty Ltd. All Rights Reserved.
@@ -116,7 +116,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/simple.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/simple.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Canonicalization/simple.pm
2022-04-08 06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Canonicalization/simple.pm
2022-05-20 03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Canonicalization::simple;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: simple canonicalization
# Copyright 2005 Messiah College. All rights reserved.
@@ -96,7 +96,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Common.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Common.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Common.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Common.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Common;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: Common class for Mail::DKIM
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -181,7 +181,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DNS.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DNS.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DNS.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DNS.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::DNS;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: performs DNS queries for Mail::DKIM
# Copyright 2007, 2012 Messiah College. All rights reserved.
@@ -184,7 +184,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DkPolicy.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DkPolicy.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DkPolicy.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DkPolicy.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::DkPolicy;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: represents a DomainKeys Sender Signing Policy record
# Copyright 2005-2009 Messiah College.
@@ -172,7 +172,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DkSignature.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DkSignature.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DkSignature.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DkSignature.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::DkSignature;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: represents a DomainKeys-Signature header
# Copyright 2005-2006 Messiah College. All rights reserved.
@@ -252,7 +252,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 CONSTRUCTORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DkimPolicy.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DkimPolicy.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/DkimPolicy.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/DkimPolicy.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::DkimPolicy;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: represents a DKIM Sender Signing Practices record
# Copyright 2005-2007 Messiah College.
@@ -193,7 +193,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Key.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Key.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Key.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Key.pm 2022-05-20
03:33:09.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use warnings;
# ABSTRACT: Represents a DKIM Key
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# Copyright 2006 Jason Long. All rights reserved.
#
@@ -101,7 +101,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/KeyValueList.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/KeyValueList.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/KeyValueList.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/KeyValueList.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::KeyValueList;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: Represents a Key/Value list
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -195,7 +195,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/MessageParser.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/MessageParser.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/MessageParser.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/MessageParser.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::MessageParser;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: Signs/verifies Internet mail with DKIM/DomainKey signatures
# Copyright 2005 Messiah College. All rights reserved.
@@ -142,7 +142,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Policy.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Policy.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Policy.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Policy.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Policy;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: abstract base class for originator "signing" policies
# Copyright 2005-2007 Messiah College.
@@ -162,7 +162,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/PrivateKey.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/PrivateKey.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/PrivateKey.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/PrivateKey.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::PrivateKey;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: a private key loaded in memory for DKIM signing
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -132,7 +132,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/PublicKey.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/PublicKey.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/PublicKey.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/PublicKey.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::PublicKey;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: Represents a DKIM key
# Copyright 2005 Messiah College. All rights reserved.
@@ -464,7 +464,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 CONSTRUCTOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Signature.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Signature.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Signature.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Signature.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Signature;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: represents a DKIM-Signature header
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -602,7 +602,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 CONSTRUCTORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Signer.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Signer.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Signer.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Signer.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Signer;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: generates a DKIM signature for a message
# Copyright 2005-2007 Messiah College. All rights reserved.
@@ -426,7 +426,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/SignerPolicy.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/SignerPolicy.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/SignerPolicy.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/SignerPolicy.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::SignerPolicy;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: determines signing parameters for a message
# Copyright 2005-2006 Messiah College. All rights reserved.
@@ -24,7 +24,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/TextWrap.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/TextWrap.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/TextWrap.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/TextWrap.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::TextWrap;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: text wrapping module written for use with DKIM
use Carp;
@@ -176,7 +176,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Verifier.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Verifier.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM/Verifier.pm 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM/Verifier.pm 2022-05-20
03:33:09.000000000 +0200
@@ -1,7 +1,7 @@
package Mail::DKIM::Verifier;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: verifies a DKIM-signed message
# Copyright 2005-2009 Messiah College. All rights reserved.
@@ -493,7 +493,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/lib/Mail/DKIM.pm
new/Mail-DKIM-1.20220520/lib/Mail/DKIM.pm
--- old/Mail-DKIM-1.20220408/lib/Mail/DKIM.pm 2022-04-08 06:05:06.000000000
+0200
+++ new/Mail-DKIM-1.20220520/lib/Mail/DKIM.pm 2022-05-20 03:33:09.000000000
+0200
@@ -1,7 +1,7 @@
package Mail::DKIM;
use strict;
use warnings;
-our $VERSION = '1.20220408'; # VERSION
+our $VERSION = '1.20220520'; # VERSION
# ABSTRACT: Signs/verifies Internet mail with DKIM/DomainKey signatures
#require 5.010;
@@ -23,7 +23,7 @@
=head1 VERSION
-version 1.20220408
+version 1.20220520
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/scripts/arcsign.pl
new/Mail-DKIM-1.20220520/scripts/arcsign.pl
--- old/Mail-DKIM-1.20220408/scripts/arcsign.pl 2022-04-08 06:05:06.000000000
+0200
+++ new/Mail-DKIM-1.20220520/scripts/arcsign.pl 2022-05-20 03:33:09.000000000
+0200
@@ -11,66 +11,57 @@
use warnings;
use Mail::DKIM::ARC::Signer;
-use Getopt::Long;
+use Getopt::Long::Descriptive;
use Pod::Usage;
-my $selector = "selector1";
-my $algorithm = "rsa-sha256";
-my $chain = "ar";
-my $domain; # undef => auto-select domain
-my $srvid;
-my $key_file = "private.key";
-my $timestamp = 12345;
-my @extra_tag;
-my $debug_canonicalization;
-my $binary;
-my $help;
-my $wrap;
-GetOptions(
- "selector=s" => \$selector,
- "domain=s" => \$domain,
- "srvid=s" => \$srvid,
- "chain=s" => \$chain,
- "key=s" => \$key_file,
- "debug-canonicalization=s" => \$debug_canonicalization,
- "timestamp=i" => \$timestamp,
- "extra-tag=s" => \@extra_tag,
- "binary" => \$binary,
- "wrap" => \$wrap,
- "help|?" => \$help,
- )
- or pod2usage(2);
-pod2usage(1) if $help;
-pod2usage("Error: unrecognized argument(s)")
- unless (@ARGV == 0);
+my ($opt, $usage) = describe_options(
+ "%c %o < original_email.txt",
+ [ "selector=s" => "Signing selector", {default=>'selector1'} ],
+ [ "domain=s" => "Signing domain" ],
+ [ "algorithm=s" => "Algorithm to sign with", {default=>"sha-256"} ],
+ [ "srvid=s" => "Authentication-Results server domain, defaults to signing
domain" ],
+ [ "chain=s" => "Chain value. 'ar' means pick it up from
Authentication-Results header", {default=>"ar"} ],
+ [ "key=s" => "File containing private key, without BEGIN or END lines.",
{default=>"private.key"} ],
+ [ "debug-canonicalization=s" => "Outputs the canonicalized message to the
specified file in addition to computing the DKIM signature. This is helpful for
debugging canonicalization methods." ],
+ [ "timestamp=i" => "Timestamp to sign with, default to now", {default=>time}
],
+ [ "binary" => "Read input in binary mode" ],
+ [ "wrap" => "Wrap original email" ],
+ [ "help|?" => "Show help" ],
+ {show_defaults=>1},
+);
+
+if ($opt->help) {
+ print $usage->text;
+ exit 1;
+}
-eval "use Mail::DKIM::TextWrap;" if($wrap);
+eval "use Mail::DKIM::TextWrap;" if($opt->wrap);
my $debugfh;
-if (defined $debug_canonicalization)
+if (defined $opt->debug_canonicalization)
{
- open $debugfh, ">", $debug_canonicalization
- or die "Error: cannot write $debug_canonicalization: $!\n";
+ open $debugfh, ">", $opt->debug_canonicalization
+ or die "Error: cannot write ".$opt->debug_canonicalization.":
$!\n";
}
-if ($binary)
+if ($opt->binary)
{
binmode STDIN;
}
my $arc = new Mail::DKIM::ARC::Signer(
- Domain => $domain,
- SrvId => $srvid,
- Chain => $chain,
- Algorithm => $algorithm,
- Selector => $selector,
- KeyFile => $key_file,
+ Domain => $opt->domain,
+ SrvId => $opt->srvid,
+ Chain => $opt->chain,
+ Algorithm => $opt->algorithm,
+ Selector => $opt->selector,
+ KeyFile => $opt->key,
Debug_Canonicalization => $debugfh,
- Timestamp => $timestamp
+ Timestamp => $opt->timestamp
);
while (<STDIN>)
{
- unless ($binary)
+ unless ($opt->binary)
{
chomp $_;
s/\015?$/\015\012/s;
@@ -82,7 +73,7 @@
if ($debugfh)
{
close $debugfh;
- print STDERR "wrote canonicalized message to $debug_canonicalization\n";
+ print STDERR "wrote canonicalized message to
".$opt->debug_canonicalization."\n";
}
print "RESULT IS " . $arc->result() . "\n";
@@ -101,54 +92,17 @@
=head1 SYNOPSIS
- arcsign.pl [options] < original_email.txt
- options:
- --chain=pass|fail|none|ar
- --domain=DOMAIN
- --srvid=DOMAIN
- --selector=SELECTOR
- --key=FILE
- --debug-canonicalization=FILE
- --timestamp=INTEGER
- --wrap
-
arcsign.pl --help
to see a full description of the various options
-=head1 OPTIONS
-
-=over
-
-=item B<--chain>
-
-Chain value. "ar" means pick it up from Authentication-Results header.
-
-=item B<--key>
-
-File containing private key, without BEGIN or END lines.
-
-=item B<--domain>
-
-Signing domain
-
-=item B<--srvid>
-
-Authentication-Results server domain, defaults to signing domain.
-
-=item B<--debug-canonicalization>
-
-Outputs the canonicalized message to the specified file, in addition
-to computing the DKIM signature. This is helpful for debugging
-canonicalization methods.
-
-=back
-
=head1 AUTHORS
Jason Long, E<lt>jl...@messiah.edue<gt>
John Levine, E<lt>john.lev...@standcore.come<gt>
-
+
+Marc Bradshaw, E<lt>m...@marcbradshaw.nete<gt>
+
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006-2007 by Messiah College
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/scripts/arcverify.pl
new/Mail-DKIM-1.20220520/scripts/arcverify.pl
--- old/Mail-DKIM-1.20220408/scripts/arcverify.pl 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/scripts/arcverify.pl 2022-05-20
03:33:09.000000000 +0200
@@ -13,39 +13,42 @@
use Mail::DKIM::ARC::Verifier;
use Net::DNS::Resolver::Mock;
use Mail::DKIM;
-use Getopt::Long;
+use Getopt::Long::Descriptive;
use Pod::Usage;
-my ($as_canonicalization, $ams_canonicalization);
-my ($details, $dns, $help);
my $FakeResolver;
-GetOptions(
- "as-canonicalization=s" => \$as_canonicalization,
- "ams-canonicalization=s" => \$ams_canonicalization,
- "dns=s" => \$dns,
- "details" => \$details,
- "help" => \$help,
- )
- or pod2usage(2);
-pod2usage(1) if $help or @ARGV > 0;
+my ($opt, $usage) = describe_options(
+ "%c %o < original_email.txt",
+ [ "as-canonicalization=s" => "Output canonicalized message to file for
ARC-Seal debugging" ],
+ [ "ams-canonicalization=s" => "Output canonicalized message to file for
ARC-Message-Signature debugging" ],
+ [ "dns=s" => "Use DNS records from this file rather than using real DNS" ],
+ [ "details" => "Show details of ARC evaluation" ],
+ [ "help|?" => "Show help" ],
+ {show_defaults=>1},
+);
+
+if ($opt->help) {
+ print $usage->text;
+ exit 1;
+}
my ($asfh, $amsfh);
-if (defined $as_canonicalization)
+if (defined $opt->as_canonicalization)
{
- open $asfh, ">", $as_canonicalization
- or die "Error: cannot write to $as_canonicalization: $!\n";
+ open $asfh, ">", $opt->as_canonicalization
+ or die "Error: cannot write to ".$opt->as_canonicalization.":
$!\n";
}
-if (defined $ams_canonicalization)
+if (defined $opt->ams_canonicalization)
{
- open $amsfh, ">", $ams_canonicalization
- or die "Error: cannot write to $ams_canonicalization: $!\n";
+ open $amsfh, ">", $opt->ams_canonicalization
+ or die "Error: cannot write to ".$opt->ams_canonicalization.":
$!\n";
}
# use fake DNS records
-if($dns) {
- open(DNSR, "<$dns") or die "cannot open $dns";
+if($opt->dns) {
+ open(DNSR, "<", $opt->dns) or die "cannot open ".$opt->dns;
my $dnsrecs = join("", <DNSR>);
close DNSR;
@@ -69,7 +72,7 @@
print "RESULT: " . $arc->result . "\n";
-if($details) {
+if($opt->details) {
printf "DETAILS: %s\nRESULTS: %s\n", $arc->{details},
$arc->result_detail;
my @sigs = @{$arc->{signatures}};
@@ -103,34 +106,14 @@
arcverify.pl --help
to see a full description of the various options
-=head1 OPTIONS
-
-=over
-
-=item B<--as-canonicalization>
-=item B<--ams-canonicalization>
-
-Outputs the canonicalized message used for the ARC-Seal or
ARC-Message-Signature
-to the specified file, in addition
-to computing the ARC signature. This is helpful for debugging
-canonicalization methods.
-
-=item B<--details>
-
-Print details of ARC evaluation.
-
-=item B<--dnsrecords=FILE>
-
-Use DNS records from that file rather than the real DNS.
-
-=back
-
=head1 AUTHOR
Jason Long, E<lt>jl...@messiah.edue<gt>
John Levine, E<lt>john.lev...@standcore.come<gt>
+Marc Bradshaw, E<lt>m...@marcbradshaw.nete<gt>
+
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006-2007 by Messiah College
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/scripts/dkimsign.pl
new/Mail-DKIM-1.20220520/scripts/dkimsign.pl
--- old/Mail-DKIM-1.20220408/scripts/dkimsign.pl 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/scripts/dkimsign.pl 2022-05-20
03:33:09.000000000 +0200
@@ -11,65 +11,56 @@
use Mail::DKIM::Signer;
use Mail::DKIM::TextWrap;
-use Getopt::Long;
+use Getopt::Long::Descriptive;
use Pod::Usage;
-my $type = "dkim";
-my $selector = "selector1";
-my $algorithm = "rsa-sha1";
-my $method = "simple";
-my $domain; # undef => auto-select domain
-my $expiration;
-my $identity;
-my $key_file = "private.key";
-my $key_protocol;
-my @extra_tag;
-my $debug_canonicalization;
-my $binary;
-my $help;
-GetOptions(
- "type=s" => \$type,
- "algorithm=s" => \$algorithm,
- "method=s" => \$method,
- "selector=s" => \$selector,
- "domain=s" => \$domain,
- "expiration=i" => \$expiration,
- "identity=s" => \$identity,
- "key=s" => \$key_file,
- "key-protocol=s" => \$key_protocol,
- "debug-canonicalization=s" => \$debug_canonicalization,
- "extra-tag=s" => \@extra_tag,
- "binary" => \$binary,
- "help|?" => \$help,
- )
- or pod2usage(2);
-pod2usage(1) if $help;
-pod2usage("Error: unrecognized argument(s)")
- unless (@ARGV == 0);
+my ($opt, $usage) = describe_options(
+ "%c %o < original_email.txt",
+ [ "type=s" => "Determine the desired signature type 'dkim' or 'domainkeys'",
{default=>'dkim'} ],
+ [ "algorithm=s" => "Algorithm to sign with", {default=>"rsa-sha256"} ],
+ [ "method=s" => "Specify the desired canonicalization method, Possible
values are simple, simple/simple, simple/relaxed, relaxed, relaxed/relaxed,
relaxed/simple", {default=>"simple"} ],
+ [ "selector=s" => "Signing selector", {default=>'selector1'} ],
+ [ "domain=s" => "Signing domain" ],
+ [ "expiration=s" => "Optional signature expiration, as delta from current
timestamp" ],
+ [ "identity=s" => "Optional identity to use for signing" ],
+ [ "key=s" => "File containing private key, without BEGIN or END lines.",
{default=>"private.key"} ],
+ [ "key-protocol=s" => "Optional key protocol to use" ],
+ [ "debug-canonicalization=s" => "Outputs the canonicalized message to the
specified file, in addition to computing the DKIM signature. This is helpful
for debugging canonicalization methods." ],
+ [ "extra-tag=s@" => "Extra tags to use in signing" ],
+ [ "timestamp=i" => "Timestamp to sign with, defaults to now",
{default=>time} ],
+ [ "binary" => "Read input in binary mode" ],
+ [ "help|?" => "Show help" ],
+ {show_defaults=>1},
+);
+
+if ($opt->help) {
+ print $usage->text;
+ exit 1;
+}
my $debugfh;
-if (defined $debug_canonicalization)
+if (defined $opt->debug_canonicalization)
{
- open $debugfh, ">", $debug_canonicalization
- or die "Error: cannot write $debug_canonicalization: $!\n";
+ open $debugfh, ">", $opt->debug_canonicalization
+ or die "Error: cannot write ".$opt->debug_canonicalization.":
$!\n";
}
-if ($binary)
+if ($opt->binary)
{
binmode STDIN;
}
my $dkim = new Mail::DKIM::Signer(
Policy => \&signer_policy,
- Algorithm => $algorithm,
- Method => $method,
- Selector => $selector,
- KeyFile => $key_file,
+ Algorithm => $opt->algorithm,
+ Method => $opt->method,
+ Selector => $opt->selector,
+ KeyFile => $opt->key,
Debug_Canonicalization => $debugfh,
);
while (<STDIN>)
{
- unless ($binary)
+ unless ($opt->binary)
{
chomp $_;
s/\015?$/\015\012/s;
@@ -81,7 +72,7 @@
if ($debugfh)
{
close $debugfh;
- print STDERR "wrote canonicalized message to $debug_canonicalization\n";
+ print STDERR "wrote canonicalized message to
".$opt->debug_canonicalization."\n";
}
print $dkim->signature->as_string . "\n";
@@ -92,25 +83,29 @@
use Mail::DKIM::DkSignature;
- $dkim->domain($domain || $dkim->message_sender->host);
+ $dkim->domain($opt->domain || $dkim->message_sender->host);
- my $class = $type eq "domainkeys" ? "Mail::DKIM::DkSignature" :
- $type eq "dkim" ? "Mail::DKIM::Signature" :
- die "unknown signature type '$type'\n";
+ my $class = $opt->type eq "domainkeys" ? "Mail::DKIM::DkSignature" :
+ $opt->type eq "dkim" ? "Mail::DKIM::Signature" :
+ die "unknown signature type '".$opt->type."'\n";
+ my $timestamp = $opt->timestamp ? $opt->timestamp : time();
my $sig = $class->new(
Algorithm => $dkim->algorithm,
Method => $dkim->method,
Headers => $dkim->headers,
Domain => $dkim->domain,
Selector => $dkim->selector,
- defined($expiration) ? (Expiration => time() +
$expiration) : (),
- defined($identity) ? (Identity => $identity) : (),
+ defined($opt->timestamp) ? (Timestamp =>
$opt->expiration) : (),
+ defined($opt->expiration) ? (Expiration => $timestamp +
$opt->expiration) : (),
+ defined($opt->identity) ? (Identity => $opt->identity)
: (),
);
- $sig->protocol($key_protocol) if defined $key_protocol;
- foreach my $extra (@extra_tag)
- {
- my ($n, $v) = split /=/, $extra, 2;
- $sig->set_tag($n, $v);
+ $sig->protocol($opt->key_protocol) if defined $opt->key_protocol;
+ if ($opt->extra_tag) {
+ foreach my $extra ($opt->extra_tag->@*)
+ {
+ my ($n, $v) = split /=/, $extra, 2;
+ $sig->set_tag($n, $v);
+ }
}
$dkim->add_signature($sig);
return;
@@ -135,38 +130,12 @@
dkimsign.pl --help
to see a full description of the various options
-=head1 OPTIONS
-
-=over
-
-=item B<--expiration>
-
-Optional. Specify the desired signature expiration, as a delta
-from the signature timestamp.
-
-=item B<--type>
-
-Determines the desired signature. Use dkim for a DKIM-Signature, or
-domainkeys for a DomainKey-Signature.
-
-=item B<--method>
-
-Determines the desired canonicalization method. Possible values are
-simple, simple/simple, simple/relaxed, relaxed, relaxed/relaxed,
-relaxed/simple.
-
-=item B<--debug-canonicalization>
-
-Outputs the canonicalized message to the specified file, in addition
-to computing the DKIM signature. This is helpful for debugging
-canonicalization methods.
-
-=back
-
=head1 AUTHOR
Jason Long, E<lt>jl...@messiah.edue<gt>
+Marc Bradshaw, E<lt>m...@marcbradshaw.nete<gt>
+
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006-2007 by Messiah College
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mail-DKIM-1.20220408/scripts/dkimverify.pl
new/Mail-DKIM-1.20220520/scripts/dkimverify.pl
--- old/Mail-DKIM-1.20220408/scripts/dkimverify.pl 2022-04-08
06:05:06.000000000 +0200
+++ new/Mail-DKIM-1.20220520/scripts/dkimverify.pl 2022-05-20
03:33:09.000000000 +0200
@@ -10,19 +10,25 @@
use warnings;
use Mail::DKIM::Verifier;
-use Getopt::Long;
+use Getopt::Long::Descriptive;
-my $debug_canonicalization;
-GetOptions(
- "debug-canonicalization=s" => \$debug_canonicalization,
- )
- or die "Error: invalid argument(s)\n";
+my ($opt, $usage) = describe_options(
+ "%c %o < original_email.txt",
+ [ "debug-canonicalization=s" => "Output canonicalized message to file for
DKIM debugging" ],
+ [ "help|?" => "Show help" ],
+ {show_defaults=>1},
+);
+
+if ($opt->help) {
+ print $usage->text;
+ exit 1;
+}
my $debugfh;
-if (defined $debug_canonicalization)
+if (defined $opt->debug_canonicalization)
{
- open $debugfh, ">", $debug_canonicalization
- or die "Error: cannot write to $debug_canonicalization: $!\n";
+ open $debugfh, ">", $opt->debug_canonicalization
+ or die "Error: cannot write to
".$opt->debug_canonicalization.": $!\n";
}
# recommended, but may cause compatibility problems with old firewalls
@@ -42,7 +48,7 @@
if ($debugfh)
{
close $debugfh;
- print STDERR "wrong canonicalized message to $debug_canonicalization\n";
+ print STDERR "wrong canonicalized message to
".$opt->debug_canonicalization."\n";
}
print "originator address: " . $dkim->message_originator->address . "\n";
@@ -76,22 +82,12 @@
dkimverify.pl --help
to see a full description of the various options
-=head1 OPTIONS
-
-=over
-
-=item B<--debug-canonicalization>
-
-Outputs the canonicalized message to the specified file, in addition
-to computing the DKIM signature. This is helpful for debugging
-canonicalization methods.
-
-=back
-
=head1 AUTHOR
Jason Long, E<lt>jl...@messiah.edue<gt>
+Marc Bradshaw, E<lt>m...@marcbradshaw.nete<gt>
+
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006-2007 by Messiah College
