Can't call method "mail" on an undefined value
Bonjour,
Je suis bloqué depuis hier et c'est super important, on est planté a cause de cette erreur : le module Net::SMTP ne fonctionne plus
j'ai avec le code de test ci dessous cette erreur
Can't call method "mail" on an undefined value at ./testpl.pl line 6.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl
use Net::SMTP;
my $mail = new Net::SMTP '192.168.1.246';
$mail->mail("toto@monserveur.com");
$mail->to('toto@monserveur.com');
$mail->data;
$mail->datasend('To: toto@monserveur.com'."\n");
$mail->datasend("Subject: sujet\n");
$mail->datasend("\n");
$mail->datasend('test');
$mail->dataend;
$mail->quit; |
Un code similaire fonctionne correctement depuis plus de 3 mois et aucun soucis, et là depuis hier, plus rien de fonctionne, j'ai donc fait un test avec le code ci dessus et apparement, c'est ce bloc qui de marche plus.
J'ai renommer SMTP.pm en SMTP.p et la ca me dit qu'il trouve plus le fichier, donc mon SMTP.pm est le bon sur lequel il essaye d'acceder.
quelqu'un a une idee ? je veux pas redemarrer le serveur, d'autant plus que je ne pense pas que ca reglerai quoique se soit.
NB : RedHat Linux AS 3 et Perl 5.8
Encore merci pour votre aide, je suis vraiment en galere.
