Discussion :

[ANDCOR]

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:

Code :

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

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:

Code :

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

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 ?

[vic]

D'après la doc le timeout par défaut est infini. C'est autre chose qui provoque l'erreur au bout d'une heure. Tu peux régler un timeout plus court en faisant $session->ConnectTimeout(10000);.

Dans tous les cas s'il y a beaucoup de clients l'idéal serait de paralléliser les traitements (par exemple 10 taches simultanées).

[ANDCOR]

En effet, je lance en parallèle plusieurs process, qui lancent eux-mêmes plusieurs threads, donc il n'y a pas d'attente lors de l'exécution des connexions.
Là où ça bouchonne, c'est lors du traitement de fin qui centralise les résultats après avoir attendu que toutes les taches aient rendu la main.

Je vais essayer le timeout à 10000 comme tu conseilles, bien que je ne comprenne pas pourquoi il indique 39904 alors qu'il est en valeur infinie.

[ANDCOR]

J'en sais plus sur les circonstances de mon blocage: cela arrive par exemple quand je fais un get, et que le serveur distant est coupé (coupure ligne, ou reboot).
A ce moment-là, la session ftp de mon serveur appelant est figée pendant 1 heure.
J'ai essayé de faire varier les valeurs suivantes, de 0 à 100 000, mais elles ne semblent avoir aucun effet:

Code :

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

1
2
3
4
 
  $session->ConnectTimeout(10000);
  $session->ControlSendTimeout(10000);
  $session->ControlReceiveTimeout(10000);

Quelqu'un a-t-il une idée sur l'origine de cette attente d'une heure ?

[ANDCOR]

J'ai trouvé ce qui n'allait pas:

Ce n'est pas la méthode:

Code :

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

$session->ControlReceiveTimeout(10000)

qu'il faut positionner, mais celle-ci:

Code :

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

$session->DataReceiveTimeout(10000)

Et là, ça marche !