From b98d00cb2a8c49b3aa4836fde7d3dd485a567efd Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Wed, 18 Jul 2018 22:38:44 +0000 Subject: [PATCH] RT# 79705 fakesmtpserver - saved messages viewable with e-mail client --- bin/fakesmtpserver.pl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/bin/fakesmtpserver.pl b/bin/fakesmtpserver.pl index 1f2ca3f31..5da6cb5cb 100755 --- a/bin/fakesmtpserver.pl +++ b/bin/fakesmtpserver.pl @@ -10,6 +10,9 @@ it could be updated to fork on client connections. When an e-mail is delivered, the TO and FROM are printed to STDOUT. The TO, FROM and MSG are saved to a file in $message_save_dir +Open a saved .eml file with Mozilla Thunderbird (or other mail clients) +to review e-mail with all html/pdf attachments + =cut use strict; @@ -33,21 +36,21 @@ while(my $conn = $server->accept()) { $client->process || next; - open my $fh, '>', $message_save_dir.'/'.time().'.txt' + open my $fh, '>', $message_save_dir.'/'.time().'.eml' or die "error: $!"; for my $f (qw/TO FROM/) { if (ref $client->{$f} eq 'ARRAY') { print "$f: $_\n" for @{$client->{$f}}; - print $fh "$f: $_\n" for @{$client->{$f}}; + # print $fh "$f: $_\n" for @{$client->{$f}}; } else { print "$f: $client->{$f}\n"; - print $fh "$f: $client->{$f}\n"; + # print $fh "$f: $client->{$f}\n"; } } - print $fh "\n\n$client->{MSG}\n"; + print $fh "$client->{MSG}\n"; print "\n"; close $fh; } -- 2.11.0