Contenido Project

Line #	Revision	Author
1	8	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;

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.

Repository List / Contenido / utf8 / core / services / createuser @ r8

Небольшая справка по веткам