Subversion Repositories wimsdev

Rev

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