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