Contenido Project
version 7
SVN-репозиторий
Line # Revision Author
1 8 ahitrov@rambler.ru <%args>
2
3 $SETS => undef
4 $field => undef
5 $default => undef
6 $object => undef
7 $prop => undef
8
9 </%args>
10
11 <%init>
12 use IO::File;
13 use Data::Dumper;
14
15 return undef unless defined $SETS and defined $field;
16
17 # --------------------------------------------------------------------------------------
18 # Добавление одной картинки
19
20 my $IMAGE = $default;
21
22 if ($SETS->{$field}) {
23
24 my $upload = $r->upload($field);
25 if ($upload) {
26 47 ahitrov@rambler.ru
27 113 ahitrov my $IMG = $object->_store_image( $upload, attr => $prop->{attr} );
28 47 ahitrov@rambler.ru
29 113 ahitrov if ( ref $IMG eq 'HASH' && exists $IMG->{filename} ) {
30 $object->_delete_image( $default );
31 %$IMAGE = %$IMG;
32 }
33 47 ahitrov@rambler.ru
34 8 ahitrov@rambler.ru } else {
35 113 ahitrov warn 'ERROR in incoming POST form: "'.$field.' is not file upload (value: "'.$SETS->{$field}.'")';
36 8 ahitrov@rambler.ru }
37 }
38
39 # Дополнительные поля - берем все, что найдем...
40
41 my $pattern = "^".$field.q|\.(.*)$|;
42
43 foreach my $localfield (keys(%{ $SETS })) {
44 if ($localfield =~ /$pattern/) {
45 113 ahitrov my $imagefield = $1;
46 $IMAGE->{$imagefield} = $m->comp("/contenido/components/filter.msn", str => $SETS->{$localfield});
47 8 ahitrov@rambler.ru }
48 }
49
50 return $IMAGE;
51 113 ahitrov
52 8 ahitrov@rambler.ru </%init>

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

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

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

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

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.
© 2003 – 2009 «Рамблер»
© 2010 – 2024 «Андрей (Handy) Хитров»