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
|
# si le fichier accés n'existe pas on demande quelques renseignements et on le créer
if (!-e "users/users.list2") {
print "\nLe fichier utilisateurs n'existe pas, le service ne pouvant démarrer sans un accés défini
\rnous allons vous demandez de saisir quelques renseignements sur vous
\n\n";
GET_NICK:
print "-> Entrez votre pseudonyme\n";
chomp (my $nick = <STDIN>);
print "Pseudonyme trop long ou incorrect\n" && goto GET_NICK if ($nick !~ /^\w+$/ || length($nick)>32);
GET_HOST:
print "\n-> Entrez votre masque\n";
print "Exemple: $nick*!*@*\n";
chomp (my $host = <STDIN>);
goto GET_HOST if ($host !~ /^.*\!.*\@.*$/);
GET_PASS:
print "\n-> Entrez votre mot de passe\n";
chomp (my $pass = <STDIN>);
goto GET_PASS if (length($pass)<5);
open FILE, ">> users/users.list2" or die "Impossible de créer le fichier utilisateurs";
print FILE "###############################\n# users.list\n###############################\n\n";
print FILE "$nick ".time." $pass $host 3 0\n";
close FILE;
print "\n*** Votre accés a été crée avec les champs suivants:
\rPseudonyme: $nick
\rMasque: $host
\rMot de passe: $pass
\n";
} |
