net::smtp

j aimerais eclaicir un point de detail
j utilise net::smtp
elle passe la commande EHLO localhost.localdomain
mais moi j aimerais HELO localhost.localdomain

ceci pour e bon fonctionnement de mes scripts
j ai lu la doc mais je n arrive pas bien à la dechiffrer
pouvez vous m aider
je vous remercie

sub SMTP_TEST{

my($host,$nom,$e_mail) = @_;

my $smtp = Net::SMTP->new($host);
if(defined($smtp)){
;
}
if(defined($smtp->mail($nom))){
;
}
if(defined($smtp->to($e_mail))){
;
}
if(defined($smtp->data())){
;
}
if(defined($smtp->datasend("To: postmastern","n","a simple test
messagen"))){
;
}
if(defined($smtp->dataend())){
;
}
if(defined($smtp)){
AFFICHAGE($host);
}

}

swilting wrote:

j aimerais eclaicir un point de detail
j utilise net::smtp
elle passe la commande EHLO localhost.localdomain
mais moi j aimerais HELO localhost.localdomain

ceci pour e bon fonctionnement de mes scripts
j ai lu la doc mais je n arrive pas bien à la dechiffrer
pouvez vous m aider
je vous remercie

sub SMTP_TEST{

my($host,$nom,$e_mail) = @_;

my $smtp = Net::SMTP->new($host);
if(defined($smtp)){
;
}
if(defined($smtp->mail($nom))){
;
}
if(defined($smtp->to($e_mail))){
;
}
if(defined($smtp->data())){
;
}
if(defined($smtp->datasend("To: postmastern","n","a simple test
messagen"))){
;
}
if(defined($smtp->dataend())){
;
}
if(defined($smtp)){
AFFICHAGE($host);
}

}

j ai modifier quelques trucs mais j ai plus aucun controle pour voir si
les commandes que je passe se passe bien
voila mon exemple
sub SMTP_TEST{

my($host,$nom,$e_mail) = @_;

my$smtp = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => 25,
Proto => "tcp",
Type => SOCK_STREAM,
Reuse => 2 );
print $smtp "HELO localhost.localdomainrn";
print $smtp "MAIL FROM :<",$nom,">","rn";
print $smtp "RCPT TO :<",$e_mail,">","rn";
print $smtp "DATArnTo:postmasternsimple test
messagen","rn.rn";

if(defined($smtp)){
AFFICHAGE($host);
}

}