Subject: [PATCH 52/55] gnu: Add perl-mail-dmarc.

From: Antero Mejr <[email-masked]>
Date: Sun, 4 Jun 2023 17:42:46 +0000

* gnu/packages/perl-web.scm (perl-mail-dmarc): New variable.
---
 gnu/packages/perl-web.scm | 60 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 58 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 126dac4f6c..bcc951d34a 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -22,12 +22,21 @@ (define-module (gnu packages perl-web)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages)
   #:use-module (guix packages)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages libidn)
+  #:use-module (gnu packages mail)
+  #:use-module (gnu packages networking)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
-  #:use-module (guix download)
+  #:use-module (gnu packages perl-compression)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages xml)
   #:use-module (guix build-system copy)
   #:use-module (guix build-system perl)
-  #:use-module (gnu packages web))
+  #:use-module (guix download)
+  #:use-module (guix gexp))
 
 (define-public perl-mojolicious
   (package
@@ -338,3 +347,50 @@ (define-public perl-net-imap-simple
 @code{Net::IMAP::Simple} object.  It takes one required parameter which is the
 server to connect to, and additional optional parameters.")
     (license license:perl-license)))
+
+(define-public perl-mail-dmarc
+  (package
+    (name "perl-mail-dmarc")
+    (version "1.20230215")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/M/MB/MBRADSHAW/Mail-DMARC-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "00xrgq7cz75aj2m6bpfrb162fi0kyr016579as7494nbb53zbp2p"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:tests? #f)) ;some require network, like 03.Base and 06.Result
+    (native-inputs (list perl-file-sharedir-install
+                         perl-module-build
+                         perl-test-exception
+                         perl-test-file-sharedir
+                         perl-test-output))
+    (propagated-inputs (list perl-config-tiny
+                             perl-dbd-sqlite
+                             perl-dbix-simple
+                             perl-email-mime
+                             perl-email-sender
+                             perl-email-simple
+                             perl-file-sharedir
+                             perl-io-socket-ssl
+                             perl-mail-dkim
+                             perl-net-dns
+                             perl-net-idn-encode
+                             perl-net-imap-simple
+                             perl-net-ip
+                             perl-net-smtps
+                             perl-net-ssleay
+                             perl-regexp-common
+                             perl-socket6
+                             perl-uri
+                             perl-xml-libxml))
+    (home-page "https://metacpan.org/release/Mail-DMARC")
+    (synopsis "Perl implementation of DMARC")
+    (description
+     "This module is a suite of tools for implementing DMARC. It adheres to
+the 2013 DMARC draft, intending to implement every MUST and every SHOULD.")
+    (license license:perl-license)))
+
-- 
2.39.2