Discussion :

[pimousse_on_ice]

Bonjour à tous,

Je travaille sur un script perl qui génère dynamiquement un script bash, contenant la commande FTP d'unix... pourquoi dynamiquement ? pour y ajouter au fur et à mesure, les fichiers à transférer...

le problème est que j'aimerai récupérer le code retour de cette commande

le script bash généré est de la forme suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/bin/bash
ftp ADRESSE_MACHINE << !!
LOGIN
PASSWORD
verbose
lcd REP_DEPART
cd REP_ARRIVEE
ascii
put fichier1
put fichier2
put ...
bye
STATUS=$?
if [ $STATUS -ne 0 ]
then
exit 1
fi

côté PERL :

Code :

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

1
2
3
4
5
 
system ("sh -x ".$file_ftp." 1> ".$ftp_log);
if ($? != 0){
      die "Pb lors du l'execution du script de transfert !";
}else{....}

le problème est que j'ai ajouter ce que je veux derrière le "bye" de ma commande FTP dans le script, ça n'est pas pris en compte....
- d'où ma 1ere question, le "bye" est-il bloquant pour toute autre commande unix dans un bash ?
et surtout la question principale : pourquoi je ne récupère pas ce retour ?

J'avais pensé à lire dans mon log les retours FTP ( avec numéro 220, etc...). Mais dans mon cas, les erreurs n'ont pas de numéros de lignes (genre : erreur dans la commande ftp, etc...).

Quelqu'un aurait-il une idée ?

[Jeh]

Salut !

Pourquoi n'utilises-tu pas le librairie CPAN Net::FTP ?
Pour récupérer les code d'erreurs, ce sera beaucoup plus simple. Et elle fonctionne très très bien.

[pimousse_on_ice]

c'est une contrainte du client... le script bash généré permet de garder une trace sur les fifchiers envoyés et sur le commande exécutée

[Jedai]

Tu n'aurais pas oublié de finir ton HERE document tout simplement ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/bin/bash
ftp ADRESSE_MACHINE << HERE
LOGIN
PASSWORD
verbose
lcd REP_DEPART
cd REP_ARRIVEE
ascii
put fichier1
put fichier2
put ...
bye
HERE
STATUS=$?
if [ $STATUS -ne 0 ]
then
exit 1
fi

Je ne connais pas bien bash (juste le minimum vital), mais il m'apparaît étrange qu'il n'y ait pas une marque de terminaison quelconque pour la string à tranmettre à ftp.

(NB : Il est facile de faire en sorte que Net::FTP renvoie autant d'information que FTP et de rediriger la sortie d'erreur vers un log le temps nécessaire, et ainsi tu auras un bien meilleur contrôle, une plus grande flexibilité, portabilité, lisibilité.... )
--
Jedaï

[pimousse_on_ice]

j'avais en effet oublié de finir la commande ftp... merci !

mais même avec, code retour inexploitable...

En fait, c'est le code retour des "put fichier..." que je voudrais récupérer, car le code retour du ftp est toujours à 0. Ben oui, ma session ftp s'est déroulée correctement.... mais ce sont les instructions dans le ftp qui ont plantées... mais comment le savoir : :

[pimousse_on_ice]

MAis au sujet de Net::FTP, je ne connais pas (pauvre de moi !). Faut-il une bibliothèque spéciale à inclure ? Son utilisation est-elle simple ?... je pose la question, juste au cas où.... peut être que j'arriverai à convaincre mon client...

[pimousse_on_ice]

d'ailleurs, pourrais-je tester l'exécution des "put" en utilisant Net::FTP ?...

[Jeh]

MAis au sujet de Net::FTP, je ne connais pas (pauvre de moi !). Faut-il une bibliothèque spéciale à inclure ? Son utilisation est-elle simple ?... je pose la question, juste au cas où.... peut être que j'arriverai à convaincre mon client...

Il faut installer un module Perl (ou plusieurs suivant les dépendances et ce que tu as d'installé sur ta machine) et inclure ce module dans ton script (use Net::FTP).
Tu peux récupérer les erreurs de toutes les commandes que tu passes via ce module.
Très franchement, Net::FTP est la solution la plus simple et la plus efficace d'autant que tu dis ne pas connaitre parfaitement l'environnement unix...
Et si tu ne peux vraiment pas l'utiliser, tu peux peut être t'en inspirer...

[Jedai]

Net::FTP fait partie de la distribution standard, donc tu devrais l'avoir à disposition presque partout sans avoir besoin de l'installer.

Utiliser un module n'est pas difficile du tout...
Il suffit de mettre "use Net::FTP;" au début du script, et tu peux utiliser la plupart des commandes du module. Consulte donc la documentation de Net::FTP et reviens nous voir si tu as des questions.

--
Jedaï

[pimousse_on_ice]

ok. Merci !!

[pimousse_on_ice]

j'ai lu dans la doc

put ( LOCAL_FILE [, REMOTE_FILE ] )
Put a file on the remote server. LOCAL_FILE may be a name or a filehandle. If LOCAL_FILE is a filehandle then REMOTE_FILE must be specified. If REMOTE_FILE is not specified then the file will be stored in the current directory with the same leafname as LOCAL_FILE .

Returns REMOTE_FILE , or the generated remote filename if REMOTE_FILE is not given.

NOTE: If for some reason the transfer does not complete and an error is returned then the contents that had been transfered will not be remove automatically.

s'il y a une erreur, que renvoie la fonction "put(..)" ?

En fait, quece soit avec Net::FTP ou pas, il faudrait que je puisse récupérer le code retour des "put"... est-ce que c'est possible ? : Je suis en train de me demander si je ne fonce pas dans le mur...
à votre avis ?

[Jedai]

Code :

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

1
2
3
METHODS
 
Unless otherwise stated all methods return either a true or false value, with true meaning that the operation was a success. When a method states that it returns a value, failure will be returned as undef or an empty list.

Autrement dit, put() retournera "undef" si le transfert échoue. (undef étant faux et les valeurs de retour possible étant vraies, tu pourrais te contenter de vérifier si la valeur de retour est vraie ou fausse, mais tu prends le risque d'avoir un jour à transférer un fichier de nom '0' (chaine de caractères qui est fausse en Perl)...)

Pour mieux comprendre comment traiter et détecter les erreurs, regarde la doc de Net::Cmd (Net::FTP hérite de Net::Cmd et donc de ses méthodes).

(au fait : pour consulter la doc, je t'ai donné des URL du site perldoc.perl.org, mais tu peux aussi la consulter à la ligne de commande avec 'perldoc Net::FTP' par exemple)

--
Jedaï