# 2022/04/19 21:08:45 : Generate from 'skel/login_auto.html';
#------------------------------------------------------------------------------
# [WARNING] Don't edit this file. If you edit this, will be occoued error.
#------------------------------------------------------------------------------
 
Version=1.01
 1650368093 1650367899 1 sub {
	my $R = shift;
	my $O = shift;
	my $L = shift;
	my $v = $R->{v};
	$_[0] = \$v;
	$v->{title}="autoログイン";
	if (!$R->{Auth}->{ok}) {
		$R->{Message_stop}=1;
		$$L=7; $R->{Auth}->login('root*','');
		$R->{Message_stop}=0;
	}
	$$O .= '
';
	if (!$R->{Auth}->{auto}) {
		$$L=14; $R->{Auth}->{ok} && $R->redirect($v->{myself3});
		$$L=16; $R->message('登録済アカウントでログインしてください。');
		$$L=17; $R->jump_clear('login'); $R->{Break} && return;
	}
	$$O .= '
';
	$R->{h}={};
	$R->{h}->{id}='root*';
	$R->{h}->{sid}='dummy';
	$$L=23; $R->set_cookie('session',$R->{h});
	$$L=24; $R->redirect(($v->{thisurl}.'?user/add'));
}
 0 0 0 