create an email message with a proper Message-ID (#236)

msimerson · May 31, 2024 · e04285e · e04285e
1 parent ac6d3ad
commit e04285e
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/lib/Mail/DMARC/Report/Send/SMTP.pm b/lib/Mail/DMARC/Report/Send/SMTP.pm
@@ -175,6 +175,7 @@ sub assemble_message_object {
         ],
         parts => [@parts],
     ) or croak "unable to assemble message\n";
+    $email->header_str_set( 'Message-ID' => $self->get_message_id );
 
     return $email;
 }
@@ -196,6 +197,24 @@ sub get_helo_hostname {
     return Sys::Hostname::hostname;
 };
 
+sub get_message_id {
+    my $self = shift;
+    my $host = $self->get_helo_hostname;
+
+    my ($ss, $mm, $hh, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
+
+    # Generate a "random" Message-ID
+    return sprintf("<%04d%02d%02d%02d%02d.%s\@%s>\n",
+             $year + 1900,
+             $mon  + 1,
+             $mday,
+             $hh,
+             $mm,
+             rand(),
+             $host
+    );
+}
+
 1;
 
 __END__