| Revision 760 (by ahitrov, 2019/01/22 15:11:09) |
shebang
|
#!/usr/bin/env 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;
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.
RSS Feed