smtp et module (résolu)

par **ecureuil1** » 02 Mai 2009 20:04

bonjour,

J'ai un souci pour envoyer un mail via un script perl

Code: Tout sélectionner: #!/usr/bin/perl -w use diagnostics; use strict; use Net::SMTP; # Pour envoyer des pieces jointes use Net::SMTP::Multipart; my $smtp = Net::SMTP::Multipart->new('localhost'); my $sto = 'anne-nuts@xxx.yyyyyyy.com'; my $ssuj = 'RE: essai 11 (Your file is rejected : error spooling aborting)'; my $sfrom = 'faxadmin@xxx.yyyyyyy.com'; my $sBcc = 'admin@xxx.yyyyyyy.com'; my $sCc = ''; my $date = ` date -R `; chomp $date; my $mesA = ' Analyze message for coverpage and analyse information to send filel'; our @tab_fich = (); my $repfax = "home/tmp/repfax26965"; my $page_garde = "$repfax/page_garde.txt"; my $page_garde1 = "page_garde.txt"; my @filetest1 = (); @filetest1 = ($page_garde1,$page_garde); push(@tab_fich,[@filetest1]); # on complète le mail sortant : # Envoi entête du mail $smtp->Header(To => $sto, Subj => $ssuj, From => $sfrom, Date => $date ); # Envoi du corps du mail $smtp->Text("$mesA"); # Envoi des pièces jointes $smtp->FileAttach(@tab_fich); # expedition du mail $smtp->End();

log qsmtp
Celui de 16h17 envoyé avec le script perl, celui de 19h02 envoyé avec webmail

Si vous avez une idée pourquoi mon script perl ne fonctionne pas (il fonctionnait avec sme 6)

merci
anne

par **Stirner** » 02 Mai 2009 20:54

Salut,

Je suis trés loin mais alors trés loin d'avoir ton niveau en perl (je suis sur de moi je suis au niveau zero :lol:

)

plutot que :

Code: Tout sélectionner: # Envoi entête du mail $smtp->Header(To => $sto, Subj => $ssuj, From => $sfrom, Date => $date );

je mettrais :

Code: Tout sélectionner: # Envoi entête du mail $smtp->Header(To => $sto, From => $sfrom, Subj => $ssuj, Date => $date );

Mais sans aucune certitude.

@+

par **sibsib** » 02 Mai 2009 23:44

Salut, Anne,

Je pense que tu es 'eue' : J'ai l'impression que la librairie SMTP::Multipart (dont la dernière mise à jour est de 2002) positionne bien le champ 'From' dans les headers du message, mais ne reproduit pas ce champ dans le corps du mail.
Je ne suis pas certain qu'un RFC impose la présence de ce champ dans le corps du mail, mais en principe, c'est le cas.

Donc, à part patcher la librarie (çà doit pas être mortel non plus), je ne vois pas...

A+,
Pascal

par **ecureuil1** » 03 Mai 2009 11:17

sibsib a écrit:Salut, Anne,

Je pense que tu es 'eue' : J'ai l'impression que la librairie SMTP::Multipart (dont la dernière mise à jour est de 2002) positionne bien le champ 'From' dans les headers du message, mais ne reproduit pas ce champ dans le corps du mail.
Je ne suis pas certain qu'un RFC impose la présence de ce champ dans le corps du mail, mais en principe, c'est le cas.

Donc, à part patcher la librarie (çà doit pas être mortel non plus), je ne vois pas...

A+,
Pascal

Je me doutais bien d'un pb avec la librairie que j'avais choisie, y-a quelques années
patcher la librairie, outchh
Il faut déjà connaitre ce qu'il faut ajouter

autre solution, prendre une autre librairie...
vous n'auriez pas une idée

anne

par **Franck78** » 03 Mai 2009 11:43

http://bugs.contribs.org/show_bug.cgi?id=492

Salut,
Pas facile de comprendre quel champ manque vraiment ou est juste faux. Tu devrais plutôt comparer les headers de tes deux mails pour vraiment savoir ce qui choque (capture tcpdump?).

Et si il manque un champ, sans modifier quoi que ce soit dans le code, tu peux tenter une injection genre
$from="toto@tata.com \n date=1/1/2008";

par **ecureuil1** » 03 Mai 2009 12:14

Franck78 a écrit:http://bugs.contribs.org/show_bug.cgi?id=492
Salut,
Pas facile de comprendre quel champ manque vraiment ou est juste faux. Tu devrais plutôt comparer les headers de tes deux mails pour vraiment savoir ce qui choque (capture tcpdump?).

header identique... ce n'est pas au niveau des headers mais au niveau général du mail, je pense.

Franck78 a écrit:Et si il manque un champ, sans modifier quoi que ce soit dans le code, tu peux tenter une injection genre
$from="toto@tata.com \n date=1/1/2008";

J'ai une vague idée de ce qui manque en regardant d'autres modules...
un champ from et peut-être un champ to au niveau du général du mail

anne

par **Stirner** » 03 Mai 2009 18:33

Bref pas juste un souci de syntaxe... je remballe et je ->[]

par **ecureuil1** » 03 Mai 2009 21:31

J'ai trouvé le problème
Il manquait une ligne dans le pm
$self->datasend("From: ($arg{From})\n");

J'avais récupéré un rpm de dries pour centos
perl-Net-SMTP-Multipart-1.5.4-1.el4.rf.noarch.rpm

Dans mon vieux serveur c'est la version 1.5.1...
J'ai juste comparé les 2 modules...

Après l'ajout de cette ligne dans le module du rpm de dries, plus de souci

Anne

par **sibsib** » 04 Mai 2009 21:22

Hello,

Bravo :-)

A+,
Pascal

smtp et module (résolu)

smtp et module (résolu)

Qui est en ligne ?