Subversion Repositories wimsdev

!read adm/class/authchars
fuser=!text select $char_login in $fuser
fpassword=!text select $char_passwd in $fpassword
fuser=!char 1 to $login_max of $fuser
fpassword=!char 1 to $passwd_max of $fpassword

!if $forum=$empty or / isin $forum or $fuser=$empty or $fpassword=$empty
  error=auth_failure
  !exit
!endif

!if classes isin $forum
  !if $fuser=supervisor
    !defread wimshome/log/$forum/supervisor
  !else
    !defread wimshome/log/$forum/.users/$fuser
  !endif
!else
  !defread $forumdir/.users/$fuser
!endif
!!$user_password is already crypten
user_password=!passcrypt $user_password
pass_check=!passcheck $fpassword and $user_password
!if $user_exists!=yes or $pass_check!=yes
  error=auth_failure
  !exit
!endif

forumuser=$fuser
!reset fuser

!writefile wimshome/$wims_sesdir/mb_user.$forum !set forumuser=$forumuser\
!set user_firstname=$user_firstname\
!set user_lastname=$user_lastname\
!set user_email=$user_email\
!set user_exists=yes