Subversion Repositories wimsdev

Rev

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

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