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