Rev 5054 | Rev 10747 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | examtest=!sh cat $wims_home/$wims_sesdir/examreg.* 2>/dev/null |
2 | !if $examtest!=$empty |
||
3 | et=!words2items $examtest |
||
4 | !for i in $et |
||
5 | !if $i>0 |
||
6 | error=in_exam |
||
7 | type=none |
||
8 | !exit |
||
9 | !endif |
||
10 | !endif |
||
11 | |||
12 | !if $wims_user=supervisor |
||
13 | nam=sup |
||
14 | !else |
||
15 | nam=part |
||
16 | !endif |
||
17 | !read adm/class/userdef classes,$wims_class,$wims_user |
||
18 | neib=!defof n_$nam in wimshome/log/classes/$wims_class/neighbors |
||
19 | pass=!defof user_password in $userdef |
||
20 | pass=!word 1 of $pass |
||
21 | |||
22 | directlist= |
||
9506 | bpr | 23 | |
23 | reyssat | 24 | !if $pass!=$empty |
25 | !for c in $neib |
||
26 | t=!defof n_$nam in wimshome/log/classes/$c/neighbors |
||
912 | bpr | 27 | !read adm/class/userdef classes,$c,$wims_user |
23 | reyssat | 28 | np=!defof user_password in $userdef |
29 | np=!word 1 of $np |
||
30 | np=!passcrypt $np |
||
31 | passc=!passcrypt $pass |
||
32 | !if $wims_class isitemof $t and $np=$passc |
||
5020 | bpr | 33 | !if $auth_method isitemof $auth_method_list |
34 | directlist=!append item $c $user_auth_external to $directlist |
||
35 | !else |
||
36 | directlist=!append item $c $wims_user to $directlist |
||
37 | !endif |
||
23 | reyssat | 38 | !endif |
39 | !next c |
||
40 | !endif |
||
41 | |||
42 | directlist=!append item $directlist to $wims_otherclass |
||
43 | directlist=!listuniq $directlist |
||
44 | directlist=!listcomplement $wims_class $wims_user in $directlist |
||
45 | directlist=!nonempty items $directlist |
||
5054 | bpr | 46 | directlist=!sort items $directlist |
23 | reyssat | 47 | directcnt=!itemcnt $directlist |
48 | !if $directcnt>0 |
||
9506 | bpr | 49 | !!! should be commented |
23 | reyssat | 50 | current_pass=$pass |
51 | !endif |
||
52 |