Subversion Repositories wimsdev

Rev

Rev 13679 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!read adm/class/authchars
3
fuser=!text select $char_login in $fuser
4
fpassword=!text select $char_passwd in $fpassword
5
fuser=!char 1 to $login_max of $fuser
6
fpassword=!char 1 to $passwd_max of $fpassword
7
 
8
!if $forum=$empty or / isin $forum or $fuser=$empty or $fpassword=$empty
13679 bpr 9
  error=auth_failure
10
  !exit
23 reyssat 11
!endif
12
 
13
!if classes isin $forum
13679 bpr 14
  !if $fuser=supervisor
15
    !defread wimshome/log/$forum/supervisor
16
  !else
17
    !defread wimshome/log/$forum/.users/$fuser
18
  !endif
23 reyssat 19
!else
13679 bpr 20
  !defread $forumdir/.users/$fuser
23 reyssat 21
!endif
15324 bpr 22
!!$user_password is already crypten
23 reyssat 23
user_password=!passcrypt $user_password
15324 bpr 24
pass_check=!passcheck $fpassword and $user_password
25
!if $user_exists!=yes or $pass_check!=yes
13679 bpr 26
  error=auth_failure
27
  !exit
23 reyssat 28
!endif
29
 
30
forumuser=$fuser
31
!reset fuser
32
 
33
!writefile wimshome/$wims_sesdir/mb_user.$forum !set forumuser=$forumuser\
34
!set user_firstname=$user_firstname\
35
!set user_lastname=$user_lastname\
36
!set user_email=$user_email\
37
!set user_exists=yes