Subversion Repositories wimsdev

Rev

Rev 2290 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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