Discussion :

[Tex-Twil]

Bonjour,
je dois faire une projet en Perl qui est un simple client FTP en perl. Je ne peux pas utiliser le module Net:FTP et je dois donc faire tout "manuellement".

J'ai presque fini mais je me heurte cependant à un problème qui peut etre très génant qui concerne la gestion messages du type 220 provenant du serveur.

Prenons le cas de la connexion. Je prépare le socket, je me connecte et apres je dois m'authentifier. Je précise que je souhaite afficher tous les messages du serveur.

Avant l'authentification, le serveur peut envoyer un message de bienvenue et je dois donc l'afficher.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
connect(VERS_SERVEUR, $destination) || die("Connect: $!");
autoflush VERS_SERVEUR, 1;
 
$ligne = <VERS_SERVEUR>;
afficher_reponse($ligne);
$ligne = <VERS_SERVEUR>;
afficher_reponse($ligne);
 
print "login : ";
$ident = <STDIN>;
...
le sute n'est pas importante

Comme vous pouvez le voir, je fais DEUX fois une lecture dans le socket apres la connexion car mon serveur FTP envoie DEUX lignes de bienvenue :

Code :

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

1
2
3
 
(000002) 11/01/2006 16:58:25 - (not logged in) (192.168.1.11) > 220-BulletProof FTP Server ready ...
(000002) 11/01/2006 16:58:25 - (not logged in) (192.168.1.11) > 220 Welcome to Tex's Personal Server

Le problème réside dans le fait que si je me connecte sur un autre serveur qui a UNE ou 10 0000 lignes de bienvenue, mon programme ne marche plus.

De quelle façon je peux gérer ces messages en provenance du serveur ?

merci.

[Tex-Twil]

J'ai recu une réponse en message privé. Je la mets ici pour continuer la conversation:

ta essayé dans un tableau

Code :

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

1
2
3
 
@ligne = <VERS_SERVEUR>; 
afficher_reponse(@ligne);

je suppose que afficher_reponse fait appel a une fonction qui affiche une unique ligne. un for serait p-e envisageable

La boucle "for" ne résoud pas mon problème car je ne sais pas en avance combien de ligne je devrai lire. Cela dépend du serveur et c'est donc variable.

[Mr6]

essaie ca :

Code :

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

1
2
 
print while (<VERS_SERVEUR>);

ou

Code :

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

1
2
 
print foreach (<VERS_SERVEUR>);

[Tex-Twil]

ça ne marche pas non plus:

ca affiche tous les lignes puis le client se bloque ce qui est logique car il attend qu'un message soit écrit ds le socket.

[Tex-Twil]

alloo ?

svp !! pas d'idées. ?

[Mr6]

tu as droit à quels modules ?
as-tu déjà lu ceci : perlipc ?

[ravachol]

J'ai realise un client ftp en java et j'ai ete confronte au meme probleme que toi.

En fait le protocole ftp prevoit cette ambiguite, ainsi on peut remarquer que lorsqu'une reponse est constituee de plusieurs lignes, la premiere ligne debute par "CodeReponse-MessageLigne1" et la derniere ligne debute par "CodeReponse MessageDerniereLigne".Quant aux lignes intermediaires, elles debuteront directement par le message (le protocole prevoit un espace supplementaire devant le code reponse dans le cas de reponses imbriquees).

Tu peux consulter plus en detail la partie de la rfc sur ce sujet ici

J'espere ne pas avoir ete trop embrouille , je ne suis pas encore assez doue en Perl pour te donner un exemple de code

[Tex-Twil]

je comprends ce que tu veux dire mais le problème est que le serveur n'envoie pas forcément une réponse multiligne "typée" qui commence et se finit par un message précis.

le serveur envoie juste plusieurs lignes dont on ne peut pas connaitre le nombre ni le format en avance.

[ravachol]

on ne peut pas connaitre le nombre ni le format en avance.

Tout à fait d'accord avec toi, mais le truc c'est que quand tu seras arrivé à la dernière ligne de la réponse, tu pourras le savoir, car celle-ci commencera par trois chiffres suivis d'un espace.

Je vais essayer (j'ai bien dit essayé parce que bon je commence juste le perl.. ) de te mettre un petit bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
# On lit les lignes de reponses du serveur
while (<VERS_SERVEUR>) {
 
	# On les affiche :
	afficher_reponse($_);
 
	# Si on est arrivé la derniere ligne, on sort de la boucle
	# Expression régulière (trois chiffres suivis d'un espace, à vérifier)
	if (/^\d\d\d\s/) {
		last;
	}
}

Voila j'espère que cela t'avancera un peu.

le serveur n'envoie pas forcément une réponse multiligne "typée" qui commence et se finit par un message précis.

Sauf erreur de ma part, tous les serveurs ftp connus que j'ai testé (FileZilla, BulletProof, Serveur ftp de free, ProFTPD), respectent la RFC FTP, et ainsi signalent une fin de reponse par une ligne débutant par trois chiffres suivis d'un espace.

Bon courage pour la suite

[Tex-Twil]

C'est tout à fait ça et ça marche Yooupii

Je n'avais pas vu que dans la derniere ligne il y a un espace apres les 3 chiffres ce qui la differencie des lignes précédentes. J'aurais dû lire mieux la RFC.

Code :

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

1
2
3
4
5
 
220-BulletProof FTP Server ready ...
220-Welcome to Tex's Personal Server
220-Bla Bla
220 Bla Bla

Merci beaucoup