sending mail

[dangiles]

When I use mailx or sendmail (on RHEL 6.9, Perl v5.10.1) from within perl such as

qx( qq\cat $log | mailx -r $EMAIL_ADMIN -s "Exchange Backup Status $rp
+tdate" $SEND_TO\ );

I receive the email in outlook with the following in the body of the message:

Message-ID: <[e-mail]>
User-Agent: Heirloom mailx 12.4 7/29/08
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

If I run the command directly from the o/s, or have the perl code create a shell script with this command that then gets executed, this preamble does not appear.

Anyone know what may be going on here? I really don't want to use packages for such a simple operation.

[choroba]

Nesting qq in qx doesn't work:

$ perl -we 'qx(qq(ls))'
sh: -c: line 0: syntax error near unexpected token `ls'
sh: -c: line 0: `qq(ls)'

[haukex]

Please have a look at my post here about the security issues with calling external commands. I really hope you've sanitized the variables you are interpolating into that shell command.

I really don't want to use packages for such a simple operation.

You will be doing yourself a huge favor by using a module like Email::Sender and the other Email::* modules by rjbs. Yes, even you can use CPAN! Example code.

But if you really, really want to do it in pure Perl, then at least use a piped open instead of qx + cat:

use warnings;
use strict;
use 5.008;
my @cmd = ('mailx','-r',$EMAIL_ADMIN,
    '-s',"Exchange Backup Status $rptdate",$SEND_TO);
die '@cmd must have more than one element' unless @cmd>1;
open my $fh, '|-', @cmd or die $!;
print $fh $mail_body;
close $fh or die $! ? $! : $?;