Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
5428 guerimand 1
!if $user!=$empty
2
 !read adm/class/userdef classes,$wims_class,$user
3
 !defread $userdef
4
 !read adm/class/userisinclass $wims_class,$user
5
!endif
6
!if $script_reply!=yes or $user=$empty
7
  error=bad_user
8
  !reset job
9
  !exit
10
!endif
11
 
12
pl=!positionof item $user in $wims_connectedlogin
13
!if $pl=$empty
14
 error=user_notconnected
15
 job=list
16
 !reset action
17
 !exit
18
!endif
19
don=!line $pl of $wims_whoconnect
20
ses=!item 4 of $don
21
test=!getdef wims_class\
22
wims_alertmsg in wimshome/sessions/$ses/var.stat
23
!distribute line $test into test,motdold
24
!if $test=$empty
25
 !readproc adm/whoconnect 1
26
 !reset action
27
 job=list
28
 error=user_notconnected
29
 !exit
30
!endif
31
 
32
!if $action=register
33
 motd=!detag $motd
34
 motd=!char 1 to $alertmsg_limit of $motd
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
 !reset user,action,motd
40
 job=$empty
41
!else
7026 bpr 42
 motd=$motdold
5428 guerimand 43
!endif