Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
The CORE
|
%#<pre><% Dumper(\%ARGS) %></pre>
<%args>
$class => undef
$source_id => undef
$source_class => undef
$dest_id => undef
$dest_class => undef
$sources => undef
$destinations => undef
</%args>
<%init>
abort404 unless $class;
warn Dumper(\%ARGS);
my @documents;
my $ret_params;
if ( $source_id && $source_class ) {
my %links;
while ( my ($field, $value) = each %ARGS ) {
if ( $field =~ /dest_id_(\d+)/ ) {
$links{$1}{id} = $value;
} elsif ( $field =~ /dest_class_(\d+)/ ) {
$links{$1}{class} = $value;
}
}
warn Dumper (\%links);
foreach my $doc ( values %links ) {
my $link = $class->new ($keeper);
$link->source_id ($source_id);
$link->source_class ($source_class);
$link->dest_id ($doc->{id});
$link->dest_class ($doc->{class});
$link->status(1);
$link->store;
}
$ret_params = "id=$source_id&class=$source_class";
} elsif ( $dest_id && $dest_class ) {
my %links;
while ( my ($field, $value) = each %ARGS ) {
if ( $field =~ /source_id_(\d+)/ ) {
$links{$1}{id} = $value;
} elsif ( $field =~ /source_class_(\d+)/ ) {
$links{$1}{class} = $value;
}
}
foreach my $doc ( values %links ) {
my $link = $class->new ($keeper);
$link->dest_id ($dest_id);
$link->dest_class ($dest_class);
$link->source_id ($doc->{id});
$link->source_class ($doc->{class});
$link->status(1);
$link->store;
}
$ret_params = "id=$dest_id&class=$dest_class";
}
if ($ret_params) {
$r->header_out("Location", "/contenido/document.html?".$ret_params);
$r->status(302);
$r->send_http_header();
$m->abort();
}else{
abort404;
}
</%init>
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.