Re: Using system with mailx

The email body is not being sent in the email.

As others in this thread have stated there are many reasons why this could be happening and without amplifying information there is no way to tell what is going on.

Nevertheless let me forge on with a suggested change in your strategy:

#!/usr/bin/perl -w
use strict;
use diagnostics;
use warnings;

open(FIN,"< /opt/autotree/autouser/out/chk_cal_date.out")
      or die $!;
my $old_ifs=$/; # Lets nullify the IRS.
$/=undef;

my $slurp=<FIN>;

$/=$old_ifs; # Restore the IFS

close FIN;

send_the_mail('you@there.com','a subject',$slurp);

exit(0);

sub send_the_mail {
 my($addr,$subject,$body)=@_;

 open(PIPE,sprintf("| mailx -s %s %s",$subject,$addr))
    or die $!;
 print <PIPE> $body;
 close PIPE;
}

__END__
[download]

Unfortunatly using a mail PM like Mail::Mailer is not an option.

I am mildly curious: why isn't this an option? It would certainly be a much cleaner approach in my honest opinion...

Hope this helps.

Peter @ Berghold . Net

Sieze the cow! Bite the day!

Test the code? We don't need to test no stinkin' code! All code posted here is as is where is unless otherwise stated.

Brewer of Belgian style Ales

Comment on Re: Using system with mailx Download Code

Replies are listed 'Best First'.
Re: Re: Using system with mailx by cutter (Acolyte) on Aug 06, 2003 at 14:42 UTC
I agree, but the mail PM are not installed on all of the servers and I can't get the SA's to install them. Thanks for the suggestions. I will check the log files as pointed out in the other posts and see if I can figure out the problem.	[reply]
Re: Using system with mailx by Abigail-II (Bishop) on Aug 06, 2003 at 14:57 UTC
What makes you think you need the SA to install a module? `$ perldoc -q 'own module'` [download] Abigail	[reply] [d/l]
Re: Re: Using system with mailx by Anonymous Monk on Aug 06, 2003 at 15:16 UTC
In addition to checking the result of the open() call, I would also recommend checking the result of the close() call, especially when the file handle is opened to a piped program. : close PIPE or die $!; :	[reply]
Re: Re: Re: Using system with mailx by Anonymous Monk on Aug 06, 2003 at 15:22 UTC
I just read "perldoc -f close" which leads me to an even better example showing a non-zero exit status. If mailx is having problems, not checking the result of the close() call could easily hide those problems. close PIPE or die $! \|\| "exit status $?";	[reply]
Re: Re: Re: Using system with mailx by blue_cowdawg (Monsignor) on Aug 06, 2003 at 15:27 UTC
While you are technically correct I have actually seen cases where turning warnings on will produce spew falsely about using "or die" on close. I just tried to duplicate it but I don't remember where I ran into it. (AIX?) Peter @ Berghold . Net Sieze the cow! Bite the day! Test the code? We don't need to test no stinkin' code! All code posted here is as is where is unless otherwise stated. Brewer of Belgian style Ales	[reply]