Skip to content

Commit c533005

Browse files
committed
p5-Qmail-Deliverable: update to 1.09. Changes:
new: - detect ezmlm lists, reject null senders to lists - correctly ignore comments in qmail/users/assign #3 - add module syntax tests #3 - add regression test that exercises bug reported in #2 fix: - fix interpretation of wildcard assignments #2
1 parent c3d7387 commit c533005

File tree

3 files changed

+23
-41
lines changed

3 files changed

+23
-41
lines changed

mail/p5-Qmail-Deliverable/Makefile

+3-3
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
1-
# $NetBSD: Makefile,v 1.3 2024/01/26 19:54:52 schmonz Exp $
1+
# $NetBSD: Makefile,v 1.4 2024/01/28 21:10:34 schmonz Exp $
22

3-
DISTNAME= Qmail-Deliverable-1.08
3+
DISTNAME= Qmail-Deliverable-1.09
44
PKGNAME= p5-${DISTNAME}
55
CATEGORIES= mail perl5
6-
MASTER_SITES= ${MASTER_SITE_PERL_CPAN:=../../authors/id/J/JU/JUERD/}
6+
MASTER_SITES= ${MASTER_SITE_PERL_CPAN:=../../authors/id/M/MS/MSIMERSON/}
77

88
MAINTAINER= [email protected]
99
HOMEPAGE= https://metacpan.org/pod/Qmail::Deliverable

mail/p5-Qmail-Deliverable/distinfo

+5-5
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
1-
$NetBSD: distinfo,v 1.2 2024/01/26 19:54:52 schmonz Exp $
1+
$NetBSD: distinfo,v 1.3 2024/01/28 21:10:34 schmonz Exp $
22

3-
BLAKE2s (Qmail-Deliverable-1.08.tar.gz) = 05501dfa86010dc74f1e18a4e3b6503b43214df5952bc1938ace410b8dc6d806
4-
SHA512 (Qmail-Deliverable-1.08.tar.gz) = f1f9100869ec9b994e5f9d5344842093a63ca33510e2e99dde33522087b41a3a97bd119d51aee21a8e5d4d09cd59130904af4fbe7fcb2ad75a20a97d0fecd3b5
5-
Size (Qmail-Deliverable-1.08.tar.gz) = 18916 bytes
6-
SHA1 (patch-lib_Qmail_Deliverable.pm) = e2172dc43a2a4e769ceb28628395469026eff8b8
3+
BLAKE2s (Qmail-Deliverable-1.09.tar.gz) = 309fdba502d1b9c3ee50454e61fc1d41ab881005fb0b8ec046846b09c1b01985
4+
SHA512 (Qmail-Deliverable-1.09.tar.gz) = 90b34d57f315b614efa581973f8a5d3675216cc74d9c29c5089ee103c3060c0fd8453ad75a079bcb265d2073af6795d38e37f07ff544601331e0a3864d1d8b3f
5+
Size (Qmail-Deliverable-1.09.tar.gz) = 19794 bytes
6+
SHA1 (patch-lib_Qmail_Deliverable.pm) = fa5f4a4c8107e713d62134425084d62fcf807279
77
SHA1 (patch-lib_Qmail_Deliverable_Comparison.pod) = 0fdd7a6dd3275d7f03068a178ed6ad7c35f804b5
88
SHA1 (patch-qpsmtpd-plugin_qmail__deliverable) = 2339f73db04380b2c8bc23fe34790fcea4e60ff9

mail/p5-Qmail-Deliverable/patches/patch-lib_Qmail_Deliverable.pm

+15-33
Original file line numberDiff line numberDiff line change
@@ -1,37 +1,19 @@
1-
$NetBSD: patch-lib_Qmail_Deliverable.pm,v 1.1 2024/01/10 11:51:46 schmonz Exp $
1+
$NetBSD: patch-lib_Qmail_Deliverable.pm,v 1.2 2024/01/28 21:10:35 schmonz Exp $
22

33
Honor pkgsrc-specified QMAILDIR.
44

5-
--- lib/Qmail/Deliverable.pm.orig 2024-01-10 11:42:48.671762270 +0000
5+
--- lib/Qmail/Deliverable.pm.orig 2024-01-27 19:55:05.000000000 +0000
66
+++ lib/Qmail/Deliverable.pm
7-
@@ -66,21 +66,21 @@ sub reread_config {
8-
%virtualdomains = ();
9-
%users_exact = ();
10-
%users_wild = ();
11-
- my $locals_fn = -e "/var/qmail/control/locals"
12-
- ? "/var/qmail/control/locals"
13-
- : "/var/qmail/control/me";
14-
+ my $locals_fn = -e "@QMAILDIR@/control/locals"
15-
+ ? "@QMAILDIR@/control/locals"
16-
+ : "@QMAILDIR@/control/me";
17-
for (_slurp $locals_fn) {
18-
chomp;
19-
($_) = lc =~ /$ascii/ or do { warn "Invalid character"; next; };
20-
$locals{$_} = 1;
21-
}
22-
- for (_slurp "/var/qmail/control/virtualdomains") {
23-
+ for (_slurp "@QMAILDIR@/control/virtualdomains") {
24-
chomp;
25-
($_) = lc =~ /$ascii/ or do { warn "Invalid character"; next; };
26-
my ($domain, $prepend) = split /:/, $_, 2;
27-
$virtualdomains{$domain} = $prepend;
28-
}
29-
- for (_slurp "/var/qmail/users/assign") {
30-
+ for (_slurp "@QMAILDIR@/users/assign") {
31-
chomp;
32-
($_) = /$ascii/ or do { warn "Invalid character"; next; };
33-
if (s/^=([^:]+)://) {
34-
@@ -98,7 +98,7 @@ sub reread_config {
7+
@@ -9,7 +9,7 @@ our $VERSION = '1.09';
8+
our @EXPORT_OK = qw/reread_config qmail_local dot_qmail deliverable qmail_user/;
9+
our %EXPORT_TAGS = (all => \@EXPORT_OK);
10+
our $VPOPMAIL_EXT = 0;
11+
-our $qmail_dir = '/var/qmail';
12+
+our $qmail_dir = '@QMAILDIR@';
13+
14+
# rfc2822's "atext"
15+
my $atext = "[A-Za-z0-9!#\$%&\'*+\/=?^_\`{|}~-]";
16+
@@ -101,7 +101,7 @@ sub reread_config {
3517
sub _qmail_getpw {
3618
my ($local) = @_;
3719
local $/ = "\0";
@@ -40,7 +22,7 @@ Honor pkgsrc-specified QMAILDIR.
4022
chomp @a;
4123
for (@a) {
4224
($_) = /$ascii/ or do { warn "Invalid character"; return ""; }
43-
@@ -361,16 +361,16 @@ returned. A single dot at the end is all
25+
@@ -368,16 +368,16 @@ returned. A single dot at the end is all
4426
Returns the local qmail user for $address, or undef if the address is not local.
4527

4628
Returns $address if it does not contain an @. Returns the left side of the @ if
@@ -60,7 +42,7 @@ Honor pkgsrc-specified QMAILDIR.
6042

6143
=item dot_qmail $address
6244
63-
@@ -434,8 +434,8 @@ returned.
45+
@@ -442,8 +442,8 @@ returned.
6446

6547
=item reread_config
6648
@@ -71,7 +53,7 @@ Honor pkgsrc-specified QMAILDIR.
7153

7254
=back
7355

74-
@@ -473,7 +473,7 @@ checks per second for assigned/virtual u
56+
@@ -481,7 +481,7 @@ checks per second for assigned/virtual u
7557
slower. For my needs, this is still plenty fast enough.
7658

7759
To support local users automatically, C<qmail-getpw> is executed for local

0 commit comments

Comments
 (0)