1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl
sub email;
email "from\@domaine.tld","to\@domaine.tld","test","ligne 1\nligne 2\n";
# suivant votre configuration, il peut être nécessaire de changer le chemin ve
rs sendmail (/usr/sbin/sendmail)
sub email {
my ($from,$to,$subject,$message)=@_;
eval{
open (MAIL, "|/usr/sbin/sendmail -t -oi -f \"$from\"");
print MAIL ("To: $to\n");
print MAIL ("From: $from\n");
print MAIL ("Subject: $subject\n\n");
print MAIL ("$message");
close (MAIL);
};
}
|
Informations rapides
