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 |