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 – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.