Subversion Repositories wimsdev

Rev

Rev 15506 | Rev 17285 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15506 Rev 15543
Line 58... Line 58...
58 
logline=$now $auth_user   $$passwd	$httpd_REMOTE_ADDR
 58 
logline=$now $auth_user   $$passwd	$httpd_REMOTE_ADDR
59 
 
 59 
 
60 
!read adm/class/userdef classes,$class,$auth_user
 60 
!read adm/class/userdef classes,$class,$auth_user
61 
 
 61 
 
62 
pass=!defof user_password in $userdef
 62 
pass=!defof user_password in $userdef
63 
 
 - 
 
- 
 
 63 
!! passcrypt $empty returns $empty but !setdef must not been done
- 
 
 64 
!if $pass!=$empty
64 
pass=!passcrypt $pass
 65 
  pass=!passcrypt $pass
65 
!setdef !set user_password=$pass in $userdef
 66 
  !setdef !set user_password=$pass in $userdef
- 
 
 67 
!endif
66 
 
 68 
 
67 
##FIXME ### Have to check that sclass is no yet useful
 69 
##FIXME ### Have to check that sclass is no yet useful
68 
sclass=!defof class_superclass in wimshome/log/classes/$class/.def
 70 
sclass=!defof class_superclass in wimshome/log/classes/$class/.def
69 
!if $superclass!=$empty and $superclass!=$class
 71 
!if $superclass!=$empty and $superclass!=$class
70 
  upartic=!defof user_participate in $userdef
 72 
  upartic=!defof user_participate in $userdef