Envoyer un mail
Envoyer un mail en perl
#!/usr/bin/perl
use strict;
use FileHandle;
use MIME::Lite;
if ($#ARGV<1)
{
print "usage: xmail <address> <subject> <file> [<file> [...]]\n";
exit 0;
}
my $msg=new MIME::Lite
'To' =>shift,
'Subject' =>shift,
'Type' =>'multipart/mixed';
my $file;
foreach $file (@ARGV)
{
if (!-e $file)
{
print STDERR "$file does not exist, skipping...\n";
}
else
{
attach $msg
Type =>'application/octet-stream',
Encoding =>'base64',
Filename =>&basename($file),
Path =>$file;
}
}
#my $mail=new FileHandle "|/usr/sbin/sendmail -t";
#$msg->print($mail);
$msg->send();
sub basename
{
my($file)=@_;
my @foo=split('/', $file);
return $foo[$#foo];
}
use strict;
use FileHandle;
use MIME::Lite;
if ($#ARGV<1)
{
print "usage: xmail <address> <subject> <file> [<file> [...]]\n";
exit 0;
}
my $msg=new MIME::Lite
'To' =>shift,
'Subject' =>shift,
'Type' =>'multipart/mixed';
my $file;
foreach $file (@ARGV)
{
if (!-e $file)
{
print STDERR "$file does not exist, skipping...\n";
}
else
{
attach $msg
Type =>'application/octet-stream',
Encoding =>'base64',
Filename =>&basename($file),
Path =>$file;
}
}
#my $mail=new FileHandle "|/usr/sbin/sendmail -t";
#$msg->print($mail);
$msg->send();
sub basename
{
my($file)=@_;
my @foo=split('/', $file);
return $foo[$#foo];
}
Poster un nouveau commentaire