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 |