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
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
or die "error: $!";
for my $f (qw/TO FROM/) {
if (ref $client->{$f} eq 'ARRAY') {
print "$f: $_\n" for @{$client->{$f}};
or die "error: $!";
for my $f (qw/TO FROM/) {
if (ref $client->{$f} eq 'ARRAY') {
print "$f: $_\n" for @{$client->{$f}};