Rev 5092 | Rev 5108 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5092 | Rev 5100 | ||
---|---|---|---|
Line 6... | Line 6... | ||
6 | !endif |
6 | !endif |
7 | !endif |
7 | !endif |
8 | 8 | ||
9 | !if $save_logincgu!=$empty |
9 | !if $save_logincgu!=$empty |
10 | !if $agreecgu=yes |
10 | !if $agreecgu=yes |
11 | !read adm/class/userdef wimshome/log/ |
11 | !read adm/class/userdef wimshome/log/classes,$class,$save_logincgu |
12 | !setdef !set user_agreecgu=yes in $userdef |
12 | !setdef !set user_agreecgu=yes in $userdef |
- | 13 | !readdef $userdef |
|
- | 14 | !reset error |
|
- | 15 | !if $auth_test=OK |
|
- | 16 | !goto auth_ok2 |
|
- | 17 | !endif |
|
13 | !endif |
18 | !endif |
14 |
|
19 | !!!reset $save_logincgu |
15 | !endif |
20 | !endif |
16 | 21 | ||
17 | !read adm/class/authchars |
22 | !read adm/class/authchars |
18 | auth_user=!word 1 of $auth_user |
23 | auth_user=!word 1 of $auth_user |
19 | auth_password=!word 1 of $auth_password |
24 | auth_password=!word 1 of $auth_password |
Line 174... | Line 179... | ||
174 | pass=!replace word $auth_password by $ in $pass |
179 | pass=!replace word $auth_password by $ in $pass |
175 | pass=!singlespace $pass |
180 | pass=!singlespace $pass |
176 | pass=!trim $pass |
181 | pass=!trim $pass |
177 | !setdef !set user_password=$pass in $userdef |
182 | !setdef !set user_password=$pass in $userdef |
178 | !endif |
183 | !endif |
- | 184 | :auth_ok2 |
|
179 | 185 | ||
180 | !defread $userdef |
186 | !defread $userdef |
181 | ctype=!defof class_type in wimshome/log/classes/$class/.def |
187 | ctype=!defof class_type in wimshome/log/classes/$class/.def |
182 | !if $ctype=4 and $auth_user!=supervisor and $user_supervisable!=yes\ |
188 | !if $ctype=4 and $auth_user!=supervisor and $user_supervisable!=yes\ |
183 | and (/ notin $wims_class or ../$wims_superclass/ notin ../$wims_class/) |
189 | and (/ notin $wims_class or ../$wims_superclass/ notin ../$wims_class/) |
Line 208... | Line 214... | ||
208 | !if $raftest>$lastallow |
214 | !if $raftest>$lastallow |
209 | error=recent_rafale |
215 | error=recent_rafale |
210 | !exit |
216 | !exit |
211 | !endif |
217 | !endif |
212 | sup_secure=-1 |
218 | sup_secure=-1 |
213 | !if $user_agreecgu notwordof yes external |
219 | !if $user_agreecgu notwordof yes external and $agreecgu!=yes |
214 | error=no_cgu |
220 | error=no_cgu |
215 | !exit |
221 | !exit |
216 | !endif |
222 | !endif |
217 | !endif |
223 | !endif |
218 | 224 |