Subversion Repositories wimsdev

Rev

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/classes,$class,$user
11
  !read adm/class/userdef wimshome/log/classes,$class,$save_logincgu
12
  !setdef !set user_agreecgu=yes in $userdef/$save_logincgu
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
 !reset $save_logincgu
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