Discussion :

[kafifi]

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;
}

[Jedai]

A priori, tu as besoin de sendmail, mais il faut aussi l'avoir configuré j'imagine, tu l'as fait ? Et as-tu essayé de désinstaller puis de réinstaller MIME-Lite après avoir installé Sendmail. Enfin as-tu vérifié que le nouveau Firewall de Mandrake ne bloque pas sendmail ?

--
Jedaï

[kafifi]

A priori, tu as besoin de sendmail, mais il faut aussi l'avoir configuré j'imagine, tu l'as fait ? Et as-tu essayé de désinstaller puis de réinstaller MIME-Lite après avoir installé Sendmail. Enfin as-tu vérifié que le nouveau Firewall de Mandrake ne bloque pas sendmail ?

--
Jedaï

Bonsoir,
Effectivement, le pb semble venir de sendmail dont le paramétrage est nok.
Pour info, je n'utilise jamais sendmail => trop complexe à configurer.
Ssous MDK 10.1 j'avais installé mailx, dont le sendmail fonctionnait sans pb.
Mais sous Mandriva 2006, impossible de l'installer à cause d'un conflit avec nail...
J'ai donc installé Postfix, et j'essaie de le configurer.

Pour ceux qui n'envoient des mails que via un script Perl, est-il envisageable d'installer
le module Perl-Sendmail, de manière à s'affranchir des packages "Postfix" ou "Sendmail" ?

Merci.

[Jedai]

Moi personnellement j'utilise plutôt Net::SMTP pour envoyer mes mails. Et a priori, la doc de MIME::Lite indique clairement comment l'obliger à utiliser SMTP.

--
Jedaï

[kafifi]

Moi personnellement j'utilise plutôt Net::SMTP pour envoyer mes mails. Et a priori, la doc de MIME::Lite indique clairement comment l'obliger à utiliser SMTP.

--
Jedaï

Effectivement Jedai, c'était bien dans la doc, mais je suis passé à côté
Pour envoyer des mails avec MIME::Lite sans le support de packages type "postfix" ou "sendmail", il suffit d'ajouter
cette ligne en début de script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
use MIME::Lite;
MIME::Lite->send('smtp', "monserveur.smtp", Timeout => 30);

J'en ai profité pour essayer Net::SMTP qui fonctionne sans problème.

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
 
use Net::SMTP;
 
my $smtp = Net::SMTP->new('192.168.200.1', Debug => 1, Timeout => 30);
$smtp->mail('PCTEST');
$smtp->to('desti@test.fr');
$smtp->data();
$smtp->datasend( <<'EOM' );
From: PCTEST <test@test.fr>
To: desti <desti@test.fr>
Subject: testing mail from Perl!
 
Ceci est un mail transmis par Perl.
Module interne Net::SMTP
 
signé : l'émetteur du msg.
EOM
$smtp->dataend();
$smtp->quit();

Dernière précision : j'ai testé Net::SMTP sans installer de module Perl supplémentaire.
Comment savoir s'il s'agit d'une commande interne à Perl, ou s'il s'agit d'un module externe déjà
installé par ma distribution Linux ?

Merci.

[Jedai]

Net::SMTP est dans le Core, en général ActivePerl ne rajoute que les modules Win32 et Tk au Core. Mais pour en avoir le coeur net, voici une liste alphabétique des modules du Core : http://perldoc.perl.org/index-modules-A.html .

Bien sûr cela signifie simplement que ces modules sont dans la distribution normale de Perl, il peut arriver que la version de Perl soit trop vieille ou que ce soit une version "allégée", mais pas dans les cas usuels.

--
Jedaï

[kafifi]

Net::SMTP est dans le Core, en général ActivePerl ne rajoute que les modules Win32 et Tk au Core. Mais pour en avoir le coeur net, voici une liste alphabétique des modules du Core : http://perldoc.perl.org/index-modules-A.html .

Bien sûr cela signifie simplement que ces modules sont dans la distribution normale de Perl, il peut arriver que la version de Perl soit trop vieille ou que ce soit une version "allégée", mais pas dans les cas usuels.

--
Jedaï

C'est plus clair. Une fois encore, merci pour la précision de tes réponses.

A+