Add qtraceaddr, a Perl script that illustrates how qmail decides how to

deliver messages for any addresses given on the command line. If your
qmail installation used non-default values for conf-qmail, conf-break,
or the alias user, you can specify them in the $QMAIL, $QMAILBREAK, and
$QMAILALIAS environment variables. For example:

    # env QMAILBREAK=+ qtraceaddr address@example.org

5 files changed, 67 insertions, 0 deletions

diff --git a/mail/qtraceaddr/DESCR b/mail/qtraceaddr/DESCR
new file mode 100644
index 00000000000..0ebabf731e7
--- /dev/null
+++ b/mail/qtraceaddr/DESCR
@@ -0,0 +1,7 @@
+The qtraceaddr Perl script illustrates how qmail decides how to deliver
+messages for any addresses given on the command line. If your qmail
+installation used non-default values for conf-qmail, conf-break, or the
+alias user, you can specify them in the $QMAIL, $QMAILBREAK, and
+$QMAILALIAS environment variables. For example:
+
+    # env QMAILBREAK=+ qtraceaddr address@example.org
diff --git a/mail/qtraceaddr/Makefile b/mail/qtraceaddr/Makefile
new file mode 100644
index 00000000000..f04ecc823a6
--- /dev/null
+++ b/mail/qtraceaddr/Makefile
@@ -0,0 +1,34 @@
+# $NetBSD: Makefile,v 1.1 2022/02/05 13:50:22 schmonz Exp $
+
+DISTNAME=		qtraceaddr
+PKGNAME=		${DISTNAME}-20061202
+CATEGORIES=		mail
+MASTER_SITES=		https://code.dogmap.org./qmail/
+DIST_SUBDIR=		${PKGNAME_NOREV}
+EXTRACT_SUFX=		# none
+
+MAINTAINER=		schmonz@NetBSD.org
+HOMEPAGE=		https://code.dogmap.org./qmail/\#qtraceaddr
+COMMENT=		Illustrates how qmail would deliver to an address
+LICENSE=		public-domain
+
+WRKSRC=			${WRKDIR}
+USE_LANGUAGES=		# none
+USE_TOOLS+=		perl:run
+NO_BUILD=		yes
+
+REPLACE_PERL=		${PKGBASE}
+
+SUBST_CLASSES+=		defs
+SUBST_STAGE.defs=	do-configure
+SUBST_FILES.defs=	${PKGBASE}
+SUBST_VARS.defs=	QMAILDIR QMAIL_ALIAS_USER
+
+BUILD_DEFS+=		QMAILDIR QMAIL_ALIAS_USER
+
+INSTALLATION_DIRS=	bin
+
+do-install:
+	${INSTALL_PROGRAM} ${WRKSRC}/${PKGBASE} ${DESTDIR}${PREFIX}/bin/
+
+.include "../../mk/bsd.pkg.mk"
diff --git a/mail/qtraceaddr/PLIST b/mail/qtraceaddr/PLIST
new file mode 100644
index 00000000000..11c2ee37a76
--- /dev/null
+++ b/mail/qtraceaddr/PLIST
@@ -0,0 +1,2 @@
+@comment $NetBSD: PLIST,v 1.1 2022/02/05 13:50:22 schmonz Exp $
+bin/qtraceaddr
diff --git a/mail/qtraceaddr/distinfo b/mail/qtraceaddr/distinfo
new file mode 100644
index 00000000000..44e1cd7e6ff
--- /dev/null
+++ b/mail/qtraceaddr/distinfo
@@ -0,0 +1,6 @@
+$NetBSD: distinfo,v 1.1 2022/02/05 13:50:22 schmonz Exp $
+
+BLAKE2s (qtraceaddr-20061202/qtraceaddr) = 83616796e23087424f4fe3131803aeb4884915dd75f0dde33b21465c15fa3c7e
+SHA512 (qtraceaddr-20061202/qtraceaddr) = cc752f89df2bc0d37f012925fd1abbdd2f830df2764292f266110f74611f1077e6f82f898e471051c4595065d14cc5e2d24c93c9ae3e9fb38685463e4db94896
+Size (qtraceaddr-20061202/qtraceaddr) = 9102 bytes
+SHA1 (patch-qtraceaddr) = eb6f6306e8afedb28e650bd94d97923751ab6e64
diff --git a/mail/qtraceaddr/patches/patch-qtraceaddr b/mail/qtraceaddr/patches/patch-qtraceaddr
new file mode 100644
index 00000000000..a3e83d7384a
--- /dev/null
+++ b/mail/qtraceaddr/patches/patch-qtraceaddr
@@ -0,0 +1,18 @@
+$NetBSD: patch-qtraceaddr,v 1.1 2022/02/05 13:50:22 schmonz Exp $
+
+Set pkgsrc-configured paths and users.
+
+--- qtraceaddr.orig	2022-02-05 13:46:06.000000000 +0000
++++ qtraceaddr
+@@ -11,9 +11,9 @@ use POSIX;
+ 
+ sub nvl($$) { return (defined($_[0])? $_[0]: $_[1]); }
+ 
+-my $qmaildir=$ENV{'QMAIL'}=nvl($ENV{'QMAIL'}, '/var/qmail');
++my $qmaildir=$ENV{'QMAIL'}=nvl($ENV{'QMAIL'}, '@QMAILDIR@');
+ my $auto_break=nvl($ENV{'QMAILBREAK'}, '-');
+-my $auto_usera=nvl($ENV{'QMAILALIAS'}, 'alias');
++my $auto_usera=nvl($ENV{'QMAILALIAS'}, '@QMAIL_ALIAS_USER@');
+ 
+ sub error_temp($ ) {
+   foreach my $err (qw(EINTR ENOMEM ETXTBSY EIO ETIMEOUT EWOULDBLOCK EAGAIN