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