Subversion Repositories wimsdev

Rev

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

Rev 7026 Rev 8952
Line -... Line 1...
-
 
1
!! TODO gestion d'une liste d'user
-
 
2
 
-
 
3
 
1
!if $user!=$empty
4
!!if $listuser!=$empty
2
 !read adm/class/userdef classes,$wims_class,$user
5
!! !read adm/class/userdef classes,$wims_class,$user
3
 !defread $userdef
6
!! !defread $userdef
4
 !read adm/class/userisinclass $wims_class,$user
7
!! !read adm/class/userisinclass $wims_class,$user
5
!endif
8
!!endif
6
!if $script_reply!=yes or $user=$empty
9
!!!if $script_reply!=yes or $user=$empty
7
  error=bad_user
10
!!  error=bad_user
8
  !reset job
11
!!  !reset job
9
  !exit
12
!!  !exit
10
!endif
13
!!endif
11
 
14
 
-
 
15
listuser=!listintersect $listuser and $wims_connectedlogin
-
 
16
user=$(listuser[1])
12
pl=!positionof item $user in $wims_connectedlogin
17
pl=!positionof item $(listuser[1]) in $wims_connectedlogin
13
!if $pl=$empty
18
!if $listuser=$empty
14
 error=user_notconnected
19
 error=user_notconnected
15
 job=list
20
 job=list
16
 !reset action
21
 !reset action
17
 !exit
22
 !exit
18
!endif
23
!endif
-
 
24
 
19
don=!line $pl of $wims_whoconnect
25
don=!line $pl of $wims_whoconnect
20
ses=!item 4 of $don
26
ses=!item 4 of $don
21
test=!getdef wims_class\
27
test=!getdef wims_class\
22
wims_alertmsg in wimshome/sessions/$ses/var.stat
28
wims_alertmsg in wimshome/sessions/$ses/var.stat
23
!distribute line $test into test,motdold
29
!distribute line $test into test,motdold