Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
bad=
5125 bpr 2
 
23 reyssat 3
!if $pass!=$empty and $pass notsametext $pass2
12619 bpr 4
  login=
5
  error=pass_discord
6
  !exit
23 reyssat 7
!endif
8
 
5125 bpr 9
!if $auth_method isitemof $auth_method_list
11237 bpr 10
  !if $idp_method=ldap
11
    !read adm/class/initldap
5125 bpr 12
    !if $ldap_login!=$empty
13
      !set login_method=$idp_method $ldap_login
14
    !endif
15
  !endif
13021 bpr 16
  !if $idp_method=php
17
    !set login_method=$idp_method
18
  !endif
5775 bpr 19
  up_external_auth=!lowercase $user_auth
5136 bpr 20
  !if $new_user!=no
13050 bpr 21
    !read adm/class/hashlogin $user_auth,$wims_superclass,$login_method
5136 bpr 22
  !endif
5125 bpr 23
!endif
24
 
13050 bpr 25
!if $idp_method isitemof $idp_method_list
26
  !read adm/class/idp_$idp_method $user_auth
13143 bpr 27
  !if $idp_method!=php
28
    firstname=$up_firstname
29
    lastname=$up_lastname
30
    email=$up_email
31
  !endif
13050 bpr 32
!endif
5125 bpr 33
 
23 reyssat 34
!if $login=$empty or $lastname=$empty or $firstname=$empty or \
35
  ($new_user=yes and $pass=$empty)
12619 bpr 36
  login=
37
  error=empty_data
38
  !exit
23 reyssat 39
!endif
7403 bpr 40
!set login_char=!charcnt $login
41
!if $login_char=3
42
  !set login=$(login)0
43
!endif
23 reyssat 44
 
45
test=!defof user_exists in $classdir1/.users/$login
46
!if $new_user=yes and $test=yes
12619 bpr 47
  error=user_exists $login
48
  login=
49
  !exit
23 reyssat 50
!endif
51
 
52
!if $new_user=no and $test!=yes
12619 bpr 53
  error=bad_user
54
  !exit
23 reyssat 55
!endif
56
 
57
!if $new_user=yes or $pass!=$empty
12619 bpr 58
  up_password=$pass
23 reyssat 59
!endif
60
 
61
test=!defof user_exists in $classdir1/.users/.$login
62
!if $test=yes
12619 bpr 63
  login=
64
  error=user_deleted
65
  !exit
23 reyssat 66
!endif
67
 
68
up_lastname=$lastname
69
up_firstname=$firstname
70
up_email=$email
71
up_class=$wims_superclass
5775 bpr 72
up_external_auth=!lowercase $user_auth
23 reyssat 73
 
5136 bpr 74
replacelist=external_auth,supervise,participate,email
23 reyssat 75
!read adm/class/adduser $login
76
 
77
!if $bad!=$empty
12619 bpr 78
  error=bad_definition
79
  !exit
23 reyssat 80
!endif
81