Discussion :

[bob2099]

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 :

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

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

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 :

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

1
2
3
4
5
 
Password:
Re-type password:
 
ftpasswd: entry created

Et voila le résultat :

Code :

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

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.

[CKLN00]

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

Code :

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

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 :

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

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);

[bob2099]

humm voila le résultat

Code :

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

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

[Jasmine80]

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

Code :

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

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

Perl me dit

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

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

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

[bob2099]

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

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
 
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+

[CKLN00]

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 !!

[bob2099]

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 :

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

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