Revision Navigation

Revision 315

Date:

2013/04/24 19:21:22

Author:

ahitrov

Revision Log:

Very strange bug thus not resolved. Store during login returns somewhere not in context

Files:

Legend:

: Added
: Removed
: Modified

utf8/plugins/users/lib/users/Keeper.pm


56	56	return unless ref $profile;
57	57
58	58	my $result;
59		# warn "Password = ".$opts{passwd}."; Pass MD5 = $passmd5; user MD5 = ".$res->passwd."\n" if $DEBUG;
	59	warn "Password = $password; Pass MD5 = $passmd5; user MD5 = ".$profile->passwd."\n" if $DEBUG;
60	60	if ($profile->passwd eq $passmd5 ) {
61	61	my ($prop) = grep { $_->{attr} eq 'lastlogin' } $profile->structure;
62	62	if ( ref $prop ) {
63	63	my $now = Contenido::DateTime->new;
64	64	$profile->lastlogin( $now->ymd('-').' '.$now->hms );
65		$profile->store;
	65	# $profile->store;
66	66	}
	67	warn "\nLogin successful\n" if $DEBUG;
67	68	return $profile;
68	69	} else {
	70	warn "\nLogin [UN]successful\n" if $DEBUG;
69	71	return undef;
70	72	}
71	73	}

utf8/plugins/users/lib/users/UserProfile.pm


336	336	{
337	337	my $self = shift;
338	338
339		my $up = $self->{keeper}->get_document_by_id ( $self->id,
340		class => $self->class,
341		);
342	339	my $passwd_prev = $self->{passwd_prev} \|\| '';
343	340	if ( $self->passwd && $self->passwd ne $passwd_prev ) {
344	341	warn "Pass = ".$self->passwd."\n" if $DEBUG;
…	…
353	350	if ( $state->{users}->use_credentials ) {
354	351	foreach my $prop ( $self->structure ) {
355	352	my $name = $prop->{attr};
356		if ( ref $self->$name =~ /^users::OA::/ ) {
357		my $obj = $self->$name;
	353	if ( ref $self->{$name} =~ /^users::OA::/ ) {
	354	my $obj = $self->{$name};
358	355	$self->$name( $obj->ext_id );
359		} elsif ( ref $self->$name =~ /^users::/ ) {
360		my $obj = $self->$name;
	356	} elsif ( ref $self->{$name} =~ /^users::/ ) {
	357	my $obj = $self->{$name};
361	358	$self->$name( $obj->name );
362	359	}
363	360	}
…	…
379	376	$self->sections($default_section);
380	377	}
381	378	}
382
383	379	return 1;
384	380	}
385	381

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

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

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

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