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 |