Discussion :

[NorthernLights]

Bonjour a tous !

Voici mon probleme : j'envoie un email en HTML en SMTP, et j'ai un timeout au moment d'envoyer le CRLF.CRLF.

Les trucs bizarres :
- Plus de timeout quand j'envoie un message de test avec comme corps de message seulement quelques mots
-Pas de timeout quand j'envoi le mail depuis ma machine de developpement (winXP), mais timeout quand j'envoie depuis le serveur sur lequel le script doit tourner (win2000, pas meme sous-reseau mais le reponsable des parefeus m'a assure qu'il n'y avait pas de probleme de ce cote). Dans les 2 cas j'envoie au meme serveur de mail, et dans les 2 cas j'utilise la meme version d'Active Perl.

Les essais de resolution :
J'ai tente d'envoyer avec des commandes SFTP "en dur" (send(), recv()...), avec Net::SMTP et avec MIME::Lite... pour avoir toujours le meme resultat.

Pour info, voici la partie du code dediee a l'envoi du mail dans son etat actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$msg = MIME::Lite->new(
        Encoding  => 'quoted-printable',
        From      => "\"$realname\" <$mailfrom>",
        To        => $maill[$cpt],
        Subject   => $subject,
        Type      => 'text/html',
        Data      => $body   #une suite de tableaux en HTML
);
$msg->send('smtp',$mailserver,
        Debug   => $debug,
        From    => $realname,
        Timeout => 300
);

Quelqu'un aurait-il une idee ? Je seche la... Je trouve ca super mysterieux.
Je peux posteer le log genere par $msg->send() si vous voulez.
Toute aide sera acceuillie a bras ouverts car je desespere comme le petit developpeur occasionnel que je suis

PS: desole pour le message precedent, j'ai voulu faire une tabulation puis un espace alors ca a envoye, puis j'ai fait "stop" mais le message est parti quand meme

[NorthernLights]

En precision, une liste des choses que j'ai tentees avec les resultats obtenus :

Avec Net::SMTP et des recv() et send() :
- Ajouter des CRLF avant et apres le point => aucun changement
- Envoyer 2 sequences "CRLF.CRLF" => pas mieux

Avec MIME::Lite :
- Ajouter 'quoted-printable' comme encoding (je pensais que peut-etre les lignes du corps du message etaient trop longues) => pas mieux

Dans ces 3 cas de figure :
- Rallonger le timeout => aucune amelioration
- Raccourcir le corps du mail (je pensais que peut-etre le serveur mettait simplement trop de temps a tout recevoir) => pas mieux
- Envoyer "coucou" comme corps de message a la place de $body => ca marche

[NorthernLights]

J'ai finalement resolu le probleme en changeant la MTU du serveur sur lequel le script doit s'executer... Ca n'avait donc rien a voir avec Perl.