DKIM sign outbound mail if configured

[pmg-api.git] / src / PMG / RuleDB / BCC.pm

diff --git a/src/PMG/RuleDB/BCC.pm b/src/PMG/RuleDB/BCC.pm
index be695f710b6b94f1e31123688ca94faba15ed931..a8db3f530d65b0b42fe1490b7c54d5794570b817 100644 (file)
--- a/src/PMG/RuleDB/BCC.pm
+++ b/src/PMG/RuleDB/BCC.pm
@@ -8,6 +8,7 @@ use PVE::SafeSyslog;
 
 use PMG::Utils;
 use PMG::ModGroup;
+use PMG::DKIMSign;
 use PMG::RuleDB::Object;
 
 use base qw(PMG::RuleDB::Object);
@@ -137,6 +138,16 @@ sub execute {
        $entity = $entity->dup();
        PMG::Utils::remove_marks($entity);
 
+       my $dkim = $msginfo->{dkim} // {};
+       if ($dkim->{sign}) {
+           eval {
+               $entity = PMG::DKIMSign::sign_entity($entity,
+                   $dkim->{selector}, $msginfo->{sender}, $dkim->{sign_all});
+           };
+           syslog('warning',
+               "Could not create DKIM-Signature - disabling Signing: $@") if $@;
+       }
+
        if ($msginfo->{testmode}) {
            my $fh = $msginfo->{test_fh};
            print $fh "bcc from: $msginfo->{sender}\n";