Revision Navigation

Revision 255

Date:

2012/09/26 17:28:00

Author:

ahitrov

Revision Log:

Minor adjustments
autologon method

Files:

Legend:

: Added
: Removed
: Modified

koi8/plugins/session/lib/session/Keeper.pm


44	44	status => $res->status,
45	45	ltime => time,
46	46	);
	47	my ($type_prop) = grep { $_->{attr} eq 'type' } $res->structure;
	48	$data{type} = $res->type if $type_prop;
47	49	$self->store_value ( %data );
48	50	}
49	51	return $self->get_session();
…	…
82	84	}
83	85
84	86
	87	sub autologon {
	88	my $self = shift;
	89	my %opts = @_;
	90
	91	my $profile = delete $opts{profile};
	92	if ( ref $profile ) {
	93	my %data = (
	94	id => $profile->id,
	95	name => $profile->name,
	96	email => $profile->email,
	97	login => $profile->login,
	98	status => $profile->status,
	99	ltime => time,
	100	);
	101	my ($type_prop) = grep { $_->{attr} eq 'type' } $profile->structure;
	102	$data{type} = $profile->type if $type_prop;
	103	my ($ava_prop) = grep { $_->{attr} eq 'avatar' } $profile->structure;
	104	if ( $ava_prop ) {
	105	my $avatar = $profile->get_image('avatar');
	106	$data{avatar} = $avatar->{mini}{filename} if ref $avatar && exists $avatar->{filename};
	107	}
	108	$self->store_value ( %data );
	109	return $self->get_session();
	110	}
	111	return undef;
	112	}
	113
	114
85	115	sub get_value {
86	116
87	117	my ($self, $name) = @_;
…	…
211	241	tie %session, 'Apache::Session::Memcached', $sid, {
212	242	Handler => $keeper->{session}->MEMD,
213	243	Expiration => $state->{session}->{lifetime},
214		# Servers => $state->{session}->memcached_servers,
215		# NoRehash => 1,
216		# Readonly => 0,
217		# Debug => $DEBUG,
218		# CompressThreshold => 10_000
219	244	};
220	245	};
221	246	} else {
…	…
249	274	tie %session, 'Apache::Session::Memcached', undef, {
250	275	Handler => $keeper->{session}->MEMD,
251	276	Expiration => $state->{session}->{lifetime},
252		# Servers => $state->{session}->memcached_servers,
253		# NoRehash => 1,
254		# Readonly => 0,
255		# Debug => $DEBUG,
256		# CompressThreshold => 10_000
257	277	};
258	278	};
259	279	} else {
260	280	eval {
261	281	tie %session, 'Apache::Session::File', undef, {
262		Directory => $state->session->session_dir,
	282	Directory => $state->{session}->session_dir,
263	283	};
264	284	};
265	285	}

koi8/plugins/session/lib/session/State.pm.proto


11	11	my $self = {};
12	12	bless $self, $class;
13	13
14		# ��
	14	# configured
15	15	$self->{project} = '@PROJECT@';
	16	$self->{debug} = (lc('@DEBUG@') eq 'yes');
	17	$self->{project_name} = '@PROJECT_NAME@';
	18	$self->{default_expire} = '@DEFAULT_EXPIRE@' \|\| 300;
	19	$self->{default_object_expire} ='@DEFAULT_OBJECT_EXPIRE@' \|\| 600;
16	20
	21	# ��
17	22	$self->{db_type} = 'none';
18	23	$self->{storage} = '@SESSION_STORAGE@' \|\| 'FILE'; ## ��: FILE POSTGRES MEMCACHED
19	24	$self->{session_dir} = '@SESSIONS@';
…	…
38	43	$self->{images_directory} = '';
39	44	$self->{binary_directory} = '';
40	45	$self->{preview} = '';
41		$self->{debug} = '';
42	46	$self->{store_method} = '';
43	47	$self->{cascade} = '';
44	48

Repository List / Contenido @ r255

Revision Navigation

Revision 255

Legend:

koi8/plugins/session/lib/session/Keeper.pm

koi8/plugins/session/lib/session/State.pm.proto

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