Line # Revision Author
1 3 ahitrov@rambler.ru <%args>
2
3 $name => undef
4 $SETS => undef
5
6 </%args>
7 <%init>
8
9 return undef if (! ref($SETS));
10 return undef if (! $name);
11
12 my $FIELDS = {};
13 for my $element (%{ $SETS })
14 {
15 if ($element =~ /^${name}_(\d+)\.selectrusname$/)
16 {
17 $FIELDS->{$name.'_'.$1} = {} if (! exists($FIELDS->{$name.'_'.$1}));
18 $FIELDS->{$name.'_'.$1}->{rusname} = $m->comp('/contenido/components/filter.msn', str => $SETS->{$element} );
19 } elsif ($element =~ /^${name}_(\d+)\.selectdata$/)
20 {
21 my $lvalues = $m->comp('/contenido/components/filter.msn', str => $SETS->{$element});
22 $FIELDS->{$name.'_'.$1} = {} if (! exists($FIELDS->{$name.'_'.$1}));
23 my @values = split(/[\n\r]+/, $lvalues);
24
25 $FIELDS->{$name.'_'.$1}->{values} = \@values;
26 }
27 }
28 {
29 local $Data::Dumper::Indent = 0;
30 return Data::Dumper::Dumper($FIELDS);
31 }
32
33 </%init>

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

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

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

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

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