projects/aports·blob master · refs

98 lines · 2.9 KiB

1diff -ur Mail-DomainKeys-1.0/META.yml Mail-DomainKeys-1.0-new/META.yml
2--- Mail-DomainKeys-1.0/META.yml 2007-03-03 07:36:07.000000000 -0400
3+++ Mail-DomainKeys-1.0-new/META.yml 2026-04-18 15:17:15.300682750 -0300
4@@ -5,7 +5,7 @@
5 version_from: lib/Mail/DomainKeys.pm
6 installdirs: site
7 requires:
8- Crypt::OpenSSL::RSA: 0
9+ Crypt::PK::RSA: 0
10 Mail::Address: 0
11 MIME::Base64: 0
12 Net::DNS: 0.34
13diff -ur Mail-DomainKeys-1.0/Makefile.PL Mail-DomainKeys-1.0-new/Makefile.PL
14--- Mail-DomainKeys-1.0/Makefile.PL 2004-12-07 23:34:29.000000000 -0400
15+++ Mail-DomainKeys-1.0-new/Makefile.PL 2026-04-18 15:17:15.300682750 -0300
16@@ -40,7 +40,7 @@
17 NAME => "Mail::DomainKeys",
18 VERSION_FROM => "lib/Mail/DomainKeys.pm",
19 PREREQ_PM => {
20- "Crypt::OpenSSL::RSA" => 0,
21+ "Crypt::PK::RSA" => 0,
22 "Mail::Address" => 0,
23 "MIME::Base64" => 0,
24 "Net::DNS" => 0.34,
25diff -ur Mail-DomainKeys-1.0/README Mail-DomainKeys-1.0-new/README
26--- Mail-DomainKeys-1.0/README 2007-03-03 07:34:02.000000000 -0400
27+++ Mail-DomainKeys-1.0-new/README 2026-04-18 15:17:15.300682750 -0300
28@@ -37,7 +37,7 @@
29 if possible. :) Please include the version numbers of the following
30 modules:
31
32-Crypt::OpenSSL::RSA
33+Crypt::PK::RSA
34 Mail::Address
35 MIME::Base64
36 Net::DNS
37diff -ur Mail-DomainKeys-1.0/lib/Mail/DomainKeys/Key/Private.pm Mail-DomainKeys-1.0-new/lib/Mail/DomainKeys/Key/Private.pm
38--- Mail-DomainKeys-1.0/lib/Mail/DomainKeys/Key/Private.pm 2006-10-12 21:43:20.000000000 -0300
39+++ Mail-DomainKeys-1.0-new/lib/Mail/DomainKeys/Key/Private.pm 2026-04-18 15:17:15.300682750 -0300
40@@ -39,7 +39,7 @@
41 }
42
43 sub convert {
44- use Crypt::OpenSSL::RSA;
45+ use Crypt::PK::RSA;
46
47 my $self = shift;
48
49@@ -61,7 +61,8 @@
50 my $cork;
51
52 eval {
53- $cork = new_private_key Crypt::OpenSSL::RSA($pkcs);
54+ my $pk = Crypt::PK::RSA->new();
55+ $cork = $pk->import_key(\$pkcs);
56 };
57
58 $@ and
59@@ -87,7 +88,7 @@
60
61 my $rtrn;
62
63- eval { $rtrn = $self->cork->sign($mail); };
64+ eval { $rtrn = $self->cork->sign_message($mail, 'SHA1', 'v1.5'); };
65
66 $@ and
67 $self->errorstr($@),
68diff -ur Mail-DomainKeys-1.0/lib/Mail/DomainKeys/Key/Public.pm Mail-DomainKeys-1.0-new/lib/Mail/DomainKeys/Key/Public.pm
69--- Mail-DomainKeys-1.0/lib/Mail/DomainKeys/Key/Public.pm 2006-10-12 21:43:26.000000000 -0300
70+++ Mail-DomainKeys-1.0-new/lib/Mail/DomainKeys/Key/Public.pm 2026-04-18 15:17:15.300682750 -0300
71@@ -127,7 +127,7 @@
72 }
73
74 sub convert {
75- use Crypt::OpenSSL::RSA;
76+ use Crypt::PK::RSA;
77
78 my $self = shift;
79
80@@ -148,7 +148,8 @@
81 my $cork;
82
83 eval {
84- $cork = new_public_key Crypt::OpenSSL::RSA($cert);
85+ my $pk = Crypt::PK::RSA->new();
86+ $cork = $pk->import_key(\$cert);
87 };
88
89 $@ and
90@@ -173,7 +174,7 @@
91
92
93 my $rtrn = eval {
94- $self->cork->verify($prms{'Text'}, $prms{'Signature'});
95+ $self->cork->verify_message($prms{'Signature'}, $prms{'Text'}, 'SHA1', 'v1.5');
96 };
97
98 $@ and