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 |