Revision 523 (by ahitrov, 2015/11/03 18:33:17) |
Блок телефонов
|
<% $json %>
<%once>
use JSON::XS;
</%once>
<%args>
$id => undef
$phone => undef
</%args>
<%init>
my %result;
if ( $phone ) {
if ( $keeper->{users}->_phone_format( $phone ) ) {
my $phone_r = $keeper->{users}->_phone_reduction( $phone );
if ( $id && $id =~ /^\d+$/) {
my $object = $keeper->{users}->get_profile( id => $id );
if ( ref $object ) {
my ($cred) = $keeper->get_documents(
name => $phone_r,
class => 'users::Phone',
limit => 1,
);
if ( ref $cred && $cred->uid != $object->id ) {
$result{error} = 'Phone already registered for another user';
}
} else {
$result{error} = 'User not found';
}
} else {
$result{error} = 'User ID is not valid or not defined';
}
} else {
$result{error} = 'Phone is not valid';
}
} else {
$result{nothing} = 1;
}
$result{ok} = 1 unless exists $result{error} || exists $result{nothing};
my $json = encode_json \%result;
</%init>
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.