OVH Cloud OVH Cloud

mon script perl ne marche qu'en mode perl

2 réponses
Avatar
Raymond.Schmit
Ce script fonctionne bien à partir d'un lancement "perl <fichier.pl>",
j'envoie un mail.
Par contre mon script exécuté par un webserver fonctionne ok, sauf la
fonction: $smtp = Net::SMTP->new($ServerName,..... qui rate en
exécutant Mail_Serv_Err --- grrrrr :-)
perl sous windows2000 - savant comme webserver

Une idée où je dois chercher ?


-----------------------------------------------------------------------------------
sub Mail_Serv_Err {

$my_success_routine = 'no';

} # end of Mail_Serv_Err
#
-----------------------------------------------------------------------------------
sub Connect_smtp_Server {
$ServerName = "smtp.monprovider.be";
$my_success_routine = 'yes';
$smtp = Net::SMTP->new($ServerName,
Hello => 'localhost',
Timeout => 1620,
Debug => 1
)
|| &Mail_Serv_Err() unless $smtp;
sleep 1;
} # end of Connect_smtp_Server
#
-----------------------------------------------------------------------------------

2 réponses

Avatar
Crayos Carolus
Rassure-moi tu as bien un executable du style Blat ? oui ou non ?
Crayos



"Raymond SCHMIT" a écrit dans le message de
news:
Ce script fonctionne bien à partir d'un lancement "perl <fichier.pl>",
j'envoie un mail.
Par contre mon script exécuté par un webserver fonctionne ok, sauf la
fonction: $smtp = Net::SMTP->new($ServerName,..... qui rate en
exécutant Mail_Serv_Err --- grrrrr :-)
perl sous windows2000 - savant comme webserver

Une idée où je dois chercher ?


--------------------------------------------------------------------------
---------

sub Mail_Serv_Err {

$my_success_routine = 'no';

} # end of Mail_Serv_Err
#
--------------------------------------------------------------------------
---------

sub Connect_smtp_Server {
$ServerName = "smtp.monprovider.be";
$my_success_routine = 'yes';
$smtp = Net::SMTP->new($ServerName,
Hello => 'localhost',
Timeout => 1620,
Debug => 1
)
|| &Mail_Serv_Err() unless $smtp;
sleep 1;
} # end of Connect_smtp_Server
#
--------------------------------------------------------------------------
---------


Avatar
Raymond.Schmit
Ne cherchez plus, j'ai trouvé, c'est un gros bug du webserver
"Savant", j'ai pris "Abyss" et tout roule ..

Le Wed, 2 Jun 2004 12:22:59 +0200, "Crayos Carolus"
écrivait:

Rassure-moi tu as bien un executable du style Blat ? oui ou non ?
Crayos

"Raymond SCHMIT" a écrit dans le message de
news:
Ce script fonctionne bien à partir d'un lancement "perl <fichier.pl>",
j'envoie un mail.
Par contre mon script exécuté par un webserver fonctionne ok, sauf la
fonction: $smtp = Net::SMTP->new($ServerName,..... qui rate en
exécutant Mail_Serv_Err --- grrrrr :-)
perl sous windows2000 - savant comme webserver

Une idée où je dois chercher ?