FTP & lecture sur le canal de controle

Version imprimable

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:

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:

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.

12/01/2006, 12h03
Tex-Twil
J'ai recu une réponse en message privé. Je la mets ici pour continuer la conversation:
Citation:
Envoyé par Hide

ta essayé dans un tableau

Code:

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.

essaie ca :

Code:

1
2
 
print while (<VERS_SERVEUR>);

Code:

1
2
 
print foreach (<VERS_SERVEUR>);

12/01/2006, 14h49
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.

:cry:
13/01/2006, 11h25
Tex-Twil

alloo ?

svp !! pas d'idées. ?
13/01/2006, 11h34
Mr6

tu as droit à quels modules ?
as-tu déjà lu ceci : perlipc ?
13/01/2006, 16h39
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 :(
14/01/2006, 15h48
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. :roll:

Citation:

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.. :oops: ) de te mettre un petit bout de code :
Code:

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.

Citation:

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 :wink:

15/01/2006, 12h15
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:

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 :wink: