in reply to Re^3: Trouble emailing zip file
in thread Trouble emailing zip file
Hi haukex,
I'm getting the following after running the code below"
Can't exec "/usr/bin/mailx uuencode $zipfile $zipfile -r -s": No such file or directory at ./test-email.pl line 42.
system /usr/bin/mailx uuencode $zipfile $zipfile -r -s logs user@email.com failed: -1 at ./test-email.pl line 42
#!/opt/bin/perl use strict; use warnings; my $home = $ENV{"HOME"}; print "$home\n"; my $zipfile = "$home/file.zip"; print "$zipfile\n"; my $emailcmd = '/usr/bin/mailx uuencode $zipfile $zipfile -r -s'; print "$emailcmd\n"; my $subject = 'logs'; print "$subject\n"; my $recipient = 'user@email.com '; print "$recipient\n"; # takes one argument, the filename to encode # returns one value, the filename of the temporary(!) output file use File::Temp qw/tempfile/; sub uuencode { my ($infile) = @_; my ($tfh,$tfn) = tempfile(UNLINK=>1); open my $fh, '<:raw', $infile or die "$infile: $!"; printf $tfh "begin %03o %s\n", ((stat($infile))[2] & 0666)||0644, $infile; my $buf; print $tfh pack 'u', $buf while read $fh, $buf, 45; print $tfh "`\n", "end\n"; close $fh; close $tfh; return $tfn; } #call uuencode sub with param &uuencode($zipfile); my @args = ("$emailcmd", "$subject", "$recipient"); system(@args) == 0 or die "system @args failed: $?";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: Trouble emailing zip file
by Paladin (Vicar) on Jul 04, 2018 at 23:08 UTC | |
Re^5: Trouble emailing zip file
by poj (Abbot) on Jul 04, 2018 at 20:23 UTC | |
by TonyNY (Beadle) on Jul 04, 2018 at 22:32 UTC | |
by AnomalousMonk (Archbishop) on Jul 04, 2018 at 22:47 UTC | |
Re^5: Trouble emailing zip file
by haukex (Archbishop) on Jul 06, 2018 at 11:30 UTC |
In Section
Seekers of Perl Wisdom