Subversion Repositories wimsdev

Rev

Rev 9602 | Details | Compare with Previous | Last modification | View Log | RSS feed

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