Bonjour,
Ma config:
Perl 5.8.0
Windows 2000 5.0 SP4
Le besoin:
J'ai un applicatif qui contacte une série de serveurs (sous système Twinserver de Prologue) par ftp, pour envoyer et/ou recevoir des fichiers.
Extrait du module:
1 2 3 4 5 6 7 8 9 10 11 12
| use strict;
use Win32::Internet;
my($adresseIP, $login, $pass)=@_;
my $connection = new Win32::Internet();
my $session;
$connection->FTP($session, $adresseIP, $login, $pass);
# put et get variables
$session->Close(); |
Le problème:
Pour certains destinataires (chez qui il s'avère après coup que le disque dur est défaillant), la connexion ftp met 1 heure pile à rendre la main (ex de 10h28 à 11h28), d'autres fois, c'est le put ou le get qui met une heure (parfois 2, ex: de 10h28 à 12h28). Le problème est que la connexion qui attend, bloque toutes les autres, et ma télétransmission multiple déborde de ses horaires.
J'ai regardé le timeout à la connexion par défaut:
my $timeout=$session->ConnectTimeout();
et il n'est que de 39904. Si c'est 39904 millisecondes, ça ne correspond pas à mon heure d'attente.
La question:
Est-il possible de modifier cette heure d'attente, pour la ramener à des délais plus raisonnables ?
Partager