| Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
The CORE
|
<%args>
$name => undef
$SETS => undef
</%args>
<%init>
return undef if (! ref($SETS));
return undef if (! $name);
my $FIELDS = {};
for my $element (%{ $SETS })
{
if ($element =~ /^${name}_(\d+)\.selectrusname$/)
{
$FIELDS->{$name.'_'.$1} = {} if (! exists($FIELDS->{$name.'_'.$1}));
$FIELDS->{$name.'_'.$1}->{rusname} = $m->comp('/contenido/components/filter.msn', str => $SETS->{$element} );
} elsif ($element =~ /^${name}_(\d+)\.selectdata$/)
{
my $lvalues = $m->comp('/contenido/components/filter.msn', str => $SETS->{$element});
$FIELDS->{$name.'_'.$1} = {} if (! exists($FIELDS->{$name.'_'.$1}));
my @values = split(/[\n\r]+/, $lvalues);
$FIELDS->{$name.'_'.$1}->{values} = \@values;
}
}
{
local $Data::Dumper::Indent = 0;
return Data::Dumper::Dumper($FIELDS);
}
</%init>
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.
RSS Feed