Line # Revision Author
1 3 ahitrov@rambler.ru #!/usr/bin/perl
2
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;