[Catalyst] Session expiry per user

[Moritz Onken]

Am 14.03.2008 um 13:53 schrieb Bill Moseley:

> Catalyst::Plugin::Session::DynamicExpiry

isn't working for me using cookies. The patch was never applied so I  
go with this:

sub auto : Private {
	my ( $self, $c ) = @_;
	if ( $c->user_exists ) {
		$c->config->{session}->{expires} = $c->session->{per_user_expiry}
		  || $c->config->{session}->{expires};
		$c->session_expires(1);
		return 1;
	}
}

set $c->session->{per_user_expiry} if you want a different expiry.
$c->session_expires(1) does all the stuff like setting cookies etc.