Bonjour,
Pour démarrer en Perl, j'ai créé un petit script destiné à envoyé des mails. Aucun souci sous Mandrake 10.1.
Je viens de réinstaller une nouvelle version de Linux (Mandriva 2006), et mon script "testmail.pl" ne marche plus.
Il affiche "Sending e-mail..." plus plus rien.

J'ai pourtant nstallé :
- ActivePerl-5.8.7.815-i686-linux-2.2.17-gcc-211909.rpm (perl -v affiche "perl v5.87 built for i386-linux")
- perl-MIME-Lite-3.01-6mdk.src.rpm

J'étais convaincu que l'installation de "perl-MIME" suffisait pour envoyer des mails sous Perl, j'ai du louper quelque chose...
J'ai donc ajouté deux packages Linux "ssmtp-2.60.7-2mdk.i586.rpm" et "sendmail-8.13.4-6mdk.i586.rpm" ,
mais cela ne change rien.

Pourriez-vous m'expliquer de quoi a besoin un script Perl avec MIME-Lite pour émettre des e-mails via smtp ?

D'avance merci.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
#!/usr/bin/perl -w
use strict;
 
# Perl modules
use MIME::Lite;
 
# Long options
use Getopt::Long;
 
our $From = ""; our $To = ""; our $Cc = ""; our $Subject =""; our $Line1 = "";
 
 
#---------------------------------------------------------------------------
# Fonctions
#---------------------------------------------------------------------------
sub Send_Mail_Simple; 
 
 
#---------------------------------------------------------------------------
# Main
#---------------------------------------------------------------------------
 
print "Sending e-mail...\n";
$Subject = "Sujet";
$Line1 = "1";			
Send_Mail_Simple();
 
exit;
 
#---------------------------------------------------------------------------
# Sub Send_MailSimple
#---------------------------------------------------------------------------
sub Send_Mail_Simple() {
use MIME::Lite;
my $Msg = new MIME::Lite	 
	From	=>$From,
	To	=>$To,
	Cc	=>$Cc,
	Subject	=>$Subject,
	Type	=>'TEXT',
	Data	=>$Line1;
$Msg -> send;
}