Repository List / Contenido / koi8 / core-branches / apache2 / services / createuser @ r469

#!/usr/bin/perl

use strict;

print STDERR <<EOM;
-----------------------------------------------
�������� ������������� ������������� ����������
-----------------------------------------------
��� ��������� ����� ��������� ������������� ��� ������� � ������������� ����������.
��� ����, ����� ��������� ������ ��������� - ������� ������ ��� ������������.

EOM

my @users;

my $count = 0;
while (1) {
	print STDERR "������������: ";
	my $user = <STDIN>;
	chomp($user);
	last unless (length($user));

	print STDERR "������ ������������ '$user': ";
	my $password = <STDIN>;
	chomp($password);

	print STDERR "������� ��� ������������ '$user': ";
	my $fio = <STDIN>;
	chomp($fio);

	push @users, [$user, $password, $fio];

	print STDERR "������������ '$user' � ������� '$password' ������.\n\n";
	$count++;
};
print STDERR "������� �������������: $count\n\n";

print "INSERT INTO USERS (login, class, status, name, passwd, groups) VALUES ('$_->[0]', 'Contenido::User', 1, '$_->[2]', '$_->[1]', '{1}');\n" for @users;