Subversion Repositories wimsdev

Rev

Rev 7026 | Rev 8960 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
8952 guerimand 1
!! TODO gestion d'une liste d'user
5428 guerimand 2
 
8952 guerimand 3
 
4
!!if $listuser!=$empty
5
!! !read adm/class/userdef classes,$wims_class,$user
6
!! !defread $userdef
7
!! !read adm/class/userisinclass $wims_class,$user
8
!!endif
9
!!!if $script_reply!=yes or $user=$empty
10
!!  error=bad_user
11
!!  !reset job
12
!!  !exit
13
!!endif
14
 
15
listuser=!listintersect $listuser and $wims_connectedlogin
16
user=$(listuser[1])
17
pl=!positionof item $(listuser[1]) in $wims_connectedlogin
18
!if $listuser=$empty
5428 guerimand 19
 error=user_notconnected
20
 job=list
21
 !reset action
22
 !exit
23
!endif
8952 guerimand 24
 
5428 guerimand 25
don=!line $pl of $wims_whoconnect
26
ses=!item 4 of $don
27
test=!getdef wims_class\
28
wims_alertmsg in wimshome/sessions/$ses/var.stat
29
!distribute line $test into test,motdold
30
!if $test=$empty
31
 !readproc adm/whoconnect 1
32
 !reset action
33
 job=list
34
 error=user_notconnected
35
 !exit
36
!endif
37
 
38
!if $action=register
39
 motd=!detag $motd
40
 motd=!char 1 to $alertmsg_limit of $motd
41
 ses=!item 4 of $don
42
 !for s in $ses
43
  !setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat
44
 !next s
45
 !reset user,action,motd
46
 job=$empty
47
!else
7026 bpr 48
 motd=$motdold
5428 guerimand 49
!endif