add noonce-prefix to contact mail, for debugging purposes

This commit is contained in:
Hubert depesz Lubaczewski
2019-05-21 10:33:25 +02:00
parent d358e74059
commit 7d1d2db459
+10 -1
View File
@@ -398,15 +398,24 @@ sub contact_post {
$client_ip .= sprintf " (from: %s)", $forward;
}
my @mail_template_lines = ();
push @mail_template_lines, 'Message from: %s <%s>';
push @mail_template_lines, 'Posted from: %s with %s';
push @mail_template_lines, 'Prefix: %s';
push @mail_template_lines, '***********************************************';
push @mail_template_lines, '%s';
my $mail_template = "\n" . join( "\n", @mail_template_lines ) . "\n\n";
# send
$self->send_mail(
{
msg => sprintf(
"\nMessage from: %s <%s>" . "\nPosted from: %s with %s" . "\n****************************************\n\n" . "%s",
$mail_template,
$self->req->param( 'name' ) || '',
$self->req->param( 'email' ),
$client_ip,
$self->req->headers->user_agent,
$prefix,
$self->req->param( 'message' )
)
}