# 2022/04/25 17:53:21 : Generate from 'skel/login.html'; #------------------------------------------------------------------------------ # [WARNING] Don't edit this file. If you edit this, will be occoued error. #------------------------------------------------------------------------------ Version=1.01 165087655016508763481sub { my $R = shift; my $O = shift; my $L = shift; my $v = $R->{v}; $_[0] = \$v; $v->{title}="ログイン"; $$L=5; $v->system_mode(); $$L=8; $R->{Auth}->{ok} && $R->jump_clear('_sub/error_message','すでにログインしています'); $R->{Break} && return; $$L=10; $$O .= $R->call('_sub/error_message'); $v=$R->{v}; $R->{Break} && return; $$O .= '

'; $$O .= $v->{title}; $$O .= '

'; } 000