return undef if ref $object && $object->uid != $self->id;
303
unless ( ref $object ) {
304
$object = users::OA::Yandex->new ($keeper);
305
$object->name( $opts{name} );
306
$object->ext_id( $opts{yandex} );
307
$object->status( 1 );
308
$object->opaque( $opts{opaque} || 0 );
309
$object->uid( $self->id );
310
$object->ava_url( $opts{avatar} );
311
$object->store;
312
}
313
} elsif ( $opts{facebook} ) {
314
($object) = $self->keeper->get_documents(
315
class => 'users::OA::FaceBook',
316
ext_id => $opts{facebook},
317
limit => 1,
318
);
319
return undef if ref $object && $object->uid != $self->id;
320
unless ( ref $object ) {
321
$object = users::OA::FaceBook->new ($keeper);
322
$object->name( $opts{name} );
323
$object->ext_id( $opts{facebook} );
324
$object->status( 1 );
325
$object->opaque( $opts{opaque} || 0 );
326
$object->uid( $self->id );
327
$object->ava_url( $opts{avatar} );
328
$object->store;
329
}
294
330
} elsif ( $opts{google} ) {
295
331
($object) = $self->keeper->get_documents(
296
332
class => 'users::OA::Google',
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.