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 |