Subversion Repositories wimsdev

Rev

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

Rev 10677 Rev 12981
Line 4... Line 4...
4 
!if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty
 4 
!if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty
5 
 !exit
 5 
  !exit
6 
!endif
 6 
!endif
7 
 
 7 
 
8 
classdir=wimshome/log/classes/$wims_superclass
 8 
classdir=wimshome/log/classes/$wims_superclass
9 
userdir=$classdir/.users
 9 
userdir=$classdir/.users
10 
s_=$sup
 10 
s_=$sup
11 
 
 11 
 
12 
!if $pass!=$empty
 12 
!if $pass!=$empty
13 
 pass=!text select $char_passwd in $pass
 13 
  pass=!text select $char_passwd in $pass
14 
 passlen=!charcnt $pass
 14 
  passlen=!charcnt $pass
15 
 !if $passlen<$passwd_min or $passlen>$passwd_max or $pass != $pass2
 15 
  !if $passlen<$passwd_min or $passlen>$passwd_max or $pass != $pass2
16 
  error=bad_password
 16 
    error=bad_password
17 
  !exit
 17 
    !exit
18 
 !endif
 18 
  !endif
19 
!else
 19 
!else
20 
 pass=!defof class_password in $classdir/$wims_read_parm/.def
 20 
  pass=!defof class_password in $classdir/$wims_read_parm/.def
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
!if $passs!=$empty
 23 
!if $passs!=$empty
24 
 passs=!text select $char_passwd in $passs
 24 
  passs=!text select $char_passwd in $passs
25 
 passlen=!charcnt $passs
 25 
  passlen=!charcnt $passs
26 
 !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
 26 
  !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
27 
  error=bad_password
 27 
    error=bad_password
28 
  !exit
 28 
    !exit
29 
 !endif
 29 
  !endif
30 
!else
 30 
!else
31 
 passs=!defof user_password in $classdir/$wims_read_parm/supervisor
 31 
  passs=!defof user_password in $classdir/$wims_read_parm/supervisor
32 
!endif
 32 
!endif
33 
 
 33 
 
34 
1=!defof user_exists in $userdir/$s_
 34 
1=!defof user_exists in $userdir/$s_
35 
2=!defof class_defined in $classdir/$wims_read_parm/.def
 35 
2=!defof class_defined in $classdir/$wims_read_parm/.def
36 
!if $2!=yes
 36 
!if $2!=yes