Add p5-Mail-Qmail-Queue: Modules to talk to and/or help replace qmail-queue

Mail::Qmail::Queue is a small collection of modules to help with talking
to qmail-queue and/or writing replacements for it. It also contains some
handy command-line tools for testing qmail-queue or its replacements.
This commit is contained in:
schmonz 2024-01-10 16:45:16 +00:00
parent c2f38e8e39
commit 86c05a886b
5 changed files with 57 additions and 0 deletions

View file

@ -0,0 +1,3 @@
Mail::Qmail::Queue is a small collection of modules to help with talking
to qmail-queue and/or writing replacements for it. It also contains some
handy command-line tools for testing qmail-queue or its replacements.

View file

@ -0,0 +1,17 @@
# $NetBSD: Makefile,v 1.1 2024/01/10 16:45:16 schmonz Exp $
DISTNAME= Mail-Qmail-Queue-0.02
PKGNAME= p5-${DISTNAME}
CATEGORIES= mail perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN:=../../authors/id/G/GI/GIFF/}
MAINTAINER= schmonz@NetBSD.org
HOMEPAGE= https://metacpan.org/dist/Mail-Qmail-Queue
COMMENT= Modules to talk to and/or help replace qmail-queue
LICENSE= ${PERL5_LICENSE}
PERL5_PACKLIST= auto/Mail/Qmail/Queue/.packlist
USE_LANGUAGES= # none
.include "../../lang/perl5/module.mk"
.include "../../mk/bsd.pkg.mk"

View file

@ -0,0 +1,7 @@
$NetBSD: distinfo,v 1.1 2024/01/10 16:45:16 schmonz Exp $
BLAKE2s (Mail-Qmail-Queue-0.02.tar.gz) = 90ee39daa3d7321f72aea1999db41e5428ed7fca4d2906c698d34748d3788753
SHA512 (Mail-Qmail-Queue-0.02.tar.gz) = 92905e1b92454f0f17b090ebcfc9081aa7dc02db18c8ca49e01e2b1fe0e1e7c80842d50aff45acdcd8ddf868d31a8019c5e818b2426734ba362b58423bec3cf9
Size (Mail-Qmail-Queue-0.02.tar.gz) = 18851 bytes
SHA1 (patch-t_30Send.t) = 203f69513e790a4aa37de9f4f8dbc488a688a81b
SHA1 (patch-t_40Message.t) = 0d5fa7a1a1969742fb019941c4a17fd593de7e11

View file

@ -0,0 +1,15 @@
$NetBSD: patch-t_30Send.t,v 1.1 2024/01/10 16:45:17 schmonz Exp $
In tests, call the perl we're already using.
--- t/30Send.t.orig 2024-01-10 16:43:08.307574424 +0000
+++ t/30Send.t
@@ -13,7 +13,7 @@ use constant ENV_FN => 't/30Send.env';
unlink(BODY_FN,ENV_FN);
-my $qq_send = Mail::Qmail::Queue::Send->new(QmailQueue => "perl -Iblib/lib t/30Send.qq @{[BODY_FN]} @{[ENV_FN]}")
+my $qq_send = Mail::Qmail::Queue::Send->new(QmailQueue => "$^X -Iblib/lib t/30Send.qq @{[BODY_FN]} @{[ENV_FN]}")
or die "Couldn't create qmail-queue sender: $!\n";
$qq_send->body("Test message\n")
or die "Couldn't write body: $!\n";

View file

@ -0,0 +1,15 @@
$NetBSD: patch-t_40Message.t,v 1.1 2024/01/10 16:45:17 schmonz Exp $
In tests, call the perl we're already using.
--- t/40Message.t.orig 2024-01-10 16:43:08.312532208 +0000
+++ t/40Message.t
@@ -32,7 +32,7 @@ is($msg->body,"That is a test message.\n
is($msg->from,'sgifford@suspectclass.com-@[]');
ok(eq_array($msg->to_ref,[qw(sgifford@suspectclass.com gifford@umich.edu GIFF@cpan.org)]));
-my $qq_res = $msg->send(QmailQueue => "perl -Iblib/lib t/30Send.qq @{[BODY_OUT]} @{[ENV_OUT]}");
+my $qq_res = $msg->send(QmailQueue => "$^X -Iblib/lib t/30Send.qq @{[BODY_OUT]} @{[ENV_OUT]}");
is($qq_res,0);
$qq_res == 0
or die "qmail-queue send failed: status $qq_res";