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 |