Line # Revision Author
1 760 ahitrov #!/usr/bin/env perl
2 8 ahitrov@rambler.ru
3 use strict;
4
5 print STDERR <<EOM;
6 -----------------------------------------------
7 Создание пользователей редакторского интерфейса
8 -----------------------------------------------
9 Эта программа умеет создавать пользователей для доступа к редакторскому интерфейсу.
10 Для того, чтобы закончить работу программы - введите пустое имя пользователя.
11
12 EOM
13
14 my @users;
15
16 my $count = 0;
17 while (1) {
18 print STDERR "Пользователь: ";
19 my $user = <STDIN>;
20 chomp($user);
21 last unless (length($user));
22
23 print STDERR "Пароль пользователя '$user': ";
24 my $password = <STDIN>;
25 chomp($password);
26
27 print STDERR "Введите ФИО пользователя '$user': ";
28 my $fio = <STDIN>;
29 chomp($fio);
30
31 push @users, [$user, $password, $fio];
32
33 print STDERR "Пользователь '$user' с паролем '$password' создан.\n\n";
34 $count++;
35 };
36 print STDERR "Создано пользователей: $count\n\n";
37
38 print "INSERT INTO USERS (login, class, status, name, passwd, groups) VALUES ('$_->[0]', 'Contenido::User', 1, '$_->[2]', '$_->[1]', '{1}');\n" for @users;