# 2022/04/25 17:53:29 : Generate from 'skel/_action/login.html';
#------------------------------------------------------------------------------
# [WARNING] Don't edit this file. If you edit this, will be occoued error.
#------------------------------------------------------------------------------
 
Version=1.01
 1650876550 1650876509 1 sub {
	my $R = shift;
	my $O = shift;
	my $L = shift;
	my $v = $R->{v};
	$_[0] = \$v;
	$$L=2; $R->{action_return}=$R->{Auth}->login(($R->{Form}->{adiary_id}||$R->{Form}->{id}),$R->{Form}->{pass});
	if (!$R->{Auth}->{ok}) {
		$$L=5; $R->message('ログインに失敗しました');
		$$L=6; $R->break(); $R->{Break} && return;
	}
	$R->{h}={};
	$R->{h}->{id}=$R->{Auth}->{id};
	$R->{h}->{sid}=$R->{action_return};
	$R->{expires}=($R->{Form}->{keep_login} ? $R->{Auth}->{expires} : undef);
	$$L=15; $R->clear_cookie('session');
	$$L=16; $R->set_cookie('session',$R->{h},$R->{expires});
	$$L=17; $R->redirect(($v->{thisurl}.'?login_auth'));
}
 0 0 0 