[debutant] Probleme script perl

Bonjour, j'ai commencé à plancher sur le language perl car je voudrais créer un script qui puisse ajouter des utilisateurs sur proftpd via la commande ftpasswd.

Voici mon script actuel (c'est juste un début soyez indulgent :)) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

#!/usr/bin/perl -w use strict;   print "\nAjouter un utilisateur dans ProFTPD\n";   print "\nEntrer le nom d'utilisateur ftp : "; my $login = <stdin>; chomp $login;   print "Creation de l'utilisateur $login\n"; print " Entrez l'id de $login : "; my $id = <stdin>; chomp $id;   print "L'id de $login est $id\n"; print "Choisir le chemin de l'utilisateur ftp : "; my $home = <stdin>; chomp $home;   print "Creation de l'utilisateur $login en cours ...\n"; my $result1 = `ftpasswd --passwd --file=/usr/local/etc/ftp.passwd --name=$login --uid=$id --gid=1050 --home=$home --shell=/bin/false`; print "$result1";

---

Mon principal problème vient du faite que quand j'arrive au moment ou normalement après avoir entrée le chemin de l'utilisateur (/home/site/ftp), le programme se bloque et n'affiche pas la partie ou le mot de passe doit être entrer pour l'utilisateur (la partie "mot de passe" s'affiche s'affiche mais uniquement après les avoir rentrés à l'aveuglette) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Ajouter un utilisateur dans ProFTPD   Entrer le nom d'utilisateur ftp : test Creation de l'utilisateur test Entrez l'id de test : 1111 L'id de test est 1111 Choisir le chemin de l'utilisateur ftp : /home/site/ftp Creation de l'utilisateur test en cours ... ftpasswd: --passwd: missing --gid argument: default gid set to uid ----> blocage ici <-------

---

partie "mot de passe" qui s'affiche après les avoir tapés :

Code:

---

1 2 3 4 5

Password: Re-type password:   ftpasswd: entry created

---

Et voila le résultat :

Code:

---

1 2 3

cat ftp.passwd | grep test test:$1$oG7WPS3j$AlsCymBRm6xEo6ZKR6c221:1111:1111::/home/site/ftp:/bin/false

---

si quelqu'un pouvait m'aider pour arranger ce bout de code.
merci d'avance.

je pense (pas sur) que la solution à ton probleme est la suivante :
tu met

Code:

---

1 2	my $result1 = `ftpasswd --passwd --file=/usr/local/etc/ftp.passwd --name=$login --uid=$id --gid=1050 --home=$home --shell=/bin/false`; print "$result1";

---

je mettrais

Code:

---

1 2	my $cmd = `ftpasswd --passwd --file=/usr/local/etc/ftp.passwd --name=$login --uid=$id --gid=1050 --home=$home --shell=/bin/false`; system($cmd);

---

humm voila le résultat

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Ajouter un utilisateur dans ProFTPD   Entrer le nom d'utilisateur ftp : test Creation de l'utilisateur test Entrez l'id de test : 1111 L'id de test est 1111 Choisir le chemin de l'utilisateur ftp : /home/site/ftp Creation de l'utilisateur test en cours ... sh: ftpasswd:: command not found sh: line 1: ftpasswd:: command not found sh: line 3: Password:: command not found sh: line 4: Re-type: command not found sh: line 6: ftpasswd:: command not found

---

marche po :/

Je crois qu'il y a déjà une erreur plus haut, à la ligne :

Code:

---

my $result1 = `ftpasswd --passwd --file=/usr/local/etc/ftp.passwd --name=$login --uid=$id --gid=1050 --home=$home --shell=/bin/false`;

---

Perl me dit

Citation:

---

'ftpasswd' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.

---

Je ne sais pas pourquoi mais avec des doubles quotes, je n'ai plus ce problème.
C'est vrai qu'entre simples-quotes les variables ne seront pas interprétées et $login restera $login.


essaie peut-être

Code:

---

my $result1 = "ftpasswd --passwd --file=/usr/local/etc/ftp.passwd --name=$login --uid=$id --gid=1050 --home=$home --shell=/bin/false";

---

oui jasmine tu as raison, avec les double " ca marche, résultat :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Ajouter un utilisateur dans ProFTPD   Entrer le nom d'utilisateur ftp : test Creation de l'utilisateur test Entrez l'id de test : 1111 L'id de test est 1111 Choisir le chemin de l'utilisateur ftp : /home/site/ftp Creation de l'utilisateur test en cours ... ftpasswd: using alternate file: /usr/local/etc/ftp.passwd ftpasswd: updating passwd entry for user test   Password: Re-type password:   ftpasswd: entry updated

---

merci encore pour votre aide, je vais essayer de faire un ptit truc complet avec des menus ect ...

je vous tiens au courant sur l'avancement de la chose, bonne jourée et merci encore. :)

edit : comme il fait beau, jvais aller bronzer un peu, je remet ca a plus tard dans la journée a+ :)

heu ... oui effectivement j'ai écrit n'importequoi il fallait obligatoirement mettre les double quote et non pas ni une simple quote (les variables n'aurais pas été interpréter) et encore moin les backquote (ce que j'ai mis par inadvertance) qui font une appelle au système et place le résultant dans la variable !!

j'ai avancé dans mon code mais j'ai encore quelques questions, je voulais savoir si c'était possible d'afficher le premier mot de toutes les lignes de mon fichier ftpd.passwd.

voici les lignes complètes :

Code:

---

1 2 3 4

cat ftpd.passwd lan08:$1$HSaO3rBt$cxD2MuWg3pXcDPEXZWqp71:1001:1050::/home/site/ftp:/bin/false test:$1$YPiOLXCS$WBIGiT.iwB4BueiZVh1Mx.:1002:1050::/home/site/ftp:/bin/false

---

je cherche donc à afficher uniquement "lan08" et "test" sans ce qui suis sur leurs lignes.

merci d'avance et bonne soirée

oui bien sur :

Code:

---

1 2 3 4 5 6 7

open (my $ftpdFH,'<',ftpd.passwd) or die ("impossible d'ouvrire le fichier ftpd.passwd") ; while ($ftpdFH) { if (/^(\w*)\b/) {print $1;} } close ($ftpdFH) ;

---

devrais faire ce que tu voulais

si tu comprend pas tout mon code lis cette partie, et celle la de la FAQ

ok je vais regarder ça, merci pour ton aide

J'ai rentré ta commande telle quelle dans mon script et voila le résultat :

Code:

---

1 2 3 4

Bareword "ftpd" not allowed while "strict subs" in use at ./client-proftpd.pl line 81. Bareword "passwd" not allowed while "strict subs" in use at ./client-proftpd.pl line 81. Execution of ./client-proftpd.pl aborted due to compilation errors.

---

j'ai essayé de remplacé le ftpd.passwd après la "," (1ere ligne) par le chemin complet mais autre erreur :

Code:

---

1 2 3 4 5

Bareword found where operator expected at ./client-proftpd.pl line 81, near "/etc/ftpd" (Missing operator before ftpd?) syntax error at ./client-proftpd.pl line 81, near "/usr/local" Execution of ./client-proftpd.pl aborted due to compilation errors.

---

si vous avez une idée :)

évidement j'ai encore écrit des bétises :p
voila ce qu'il fallait écrire :

Code:

---

open (my $ftpdFH,'<','/avec/son/path/ftpd.passwd') or die ("impossible d'ouvrire le fichier ftpd.passwd") ;

---

j'ai essayé la ligne que tu m'as passé mais ce coup ci, ca tourne en boucle avec la ligne suivante :

Code:

---

1 2	Use of uninitialized value in pattern match (m//) at ./client-proftpd.pl line 118, <stdin>

---

le code qui est dans le script

Code:

---

1 2 3 4 5 6 7 8 9 10

case "3" { open (my $ftpdFH,'<','/usr/local/etc/ftpd.passwd') or die ("impossible d'ouvrire le fichier ftpd.passwd") ; while ($ftpdFH) { if (/^(\w*)\b/) {print $1;} } close ($ftpdFH) ;

---

je vais rejeter un coup d'oeil a tes liens

apparemment ça ne vient pas de ces lignes la puisque l'erreur lors de la lecture de stdin et que ces lignes la ne le lisent pas.
quel est la ligne 118 et les 3 au dessus et les 3 en dessous ?

La ligne 118 est :

Code:

---

1 2	if (/^(\w*)\b/)

---

et les lignes qui sont au dessus et en dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

case "2" { print "\nChange the user password\n";   print "\n Enter username : "; my $login2 = <stdin>; chomp $login2;   my $cmd = "ftpasswd --passwd --file=/usr/local/etc/ftpd.passwd --name=$login2 --change-password"; system($cmd); }     case "3" { open (my $ftpdFH,'<','/usr/local/etc/ftpd.passwd') or die ("impossible d'ouvrire le fichier ftpd.passwd") ; while ($ftpdFH) { if (/^(\w*)\b/) {print $1;} } close ($ftpdFH) ;     #COMPTAGE LIGNE sub nbLignes; print nbLignes "/usr/local/etc/ftpd.passwd"; sub nbLignes { my ($file)=@_; my ($res)=0; open(FIC,"$file") or die("can't open $file : $!"); while (<FIC>) { $res++; } close(FIC); print "\n"; print "There is "; $res; } print " user in the list"; print "\n";

---

ps : je dois partir à un entretien, je reviens en fin d'après midi bonne journée

je suis désoler mais en ce moment je tien pas la super forme !
voila l'erreur

Code:

---

while (<$ftpdFH>)

---

les < et > avais été oublies

ok merci bien :)

J'essaye juste de trouve un moyen de séparer les résultats par une "," mais passe pas :/

Si les résultats sont dans un tableau, tu peux utiliser join().

--
Jedaï

je sais pas trop de quel résultat tu parle sois plus presci et je pourrais t'aider ^^

je voulais mettre des "," pour ce résultat :

Code:

---

1 2 3 4 5 6 7 8 9 10

case "3" { open (my $ftpdFH,'<','/usr/local/etc/ftpd.passwd') or die ("impossible d'ouvrire le fichier ftpd.passwd") ; while (<$ftpdFH>) { if (/^(\w*)\b/) {print $1;} } close ($ftpdFH) ;

---

resultat qui doit donner : user1, user2, ...

merci d'avance :)