Rev 7026 | Rev 8960 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
8952 | guerimand | 1 | !! TODO gestion d'une liste d'user |
5428 | guerimand | 2 | |
8952 | guerimand | 3 | |
4 | !!if $listuser!=$empty |
||
5 | !! !read adm/class/userdef classes,$wims_class,$user |
||
6 | !! !defread $userdef |
||
7 | !! !read adm/class/userisinclass $wims_class,$user |
||
8 | !!endif |
||
9 | !!!if $script_reply!=yes or $user=$empty |
||
10 | !! error=bad_user |
||
11 | !! !reset job |
||
12 | !! !exit |
||
13 | !!endif |
||
14 | |||
15 | listuser=!listintersect $listuser and $wims_connectedlogin |
||
16 | user=$(listuser[1]) |
||
17 | pl=!positionof item $(listuser[1]) in $wims_connectedlogin |
||
18 | !if $listuser=$empty |
||
5428 | guerimand | 19 | error=user_notconnected |
20 | job=list |
||
21 | !reset action |
||
22 | !exit |
||
23 | !endif |
||
8952 | guerimand | 24 | |
5428 | guerimand | 25 | don=!line $pl of $wims_whoconnect |
26 | ses=!item 4 of $don |
||
27 | test=!getdef wims_class\ |
||
28 | wims_alertmsg in wimshome/sessions/$ses/var.stat |
||
29 | !distribute line $test into test,motdold |
||
30 | !if $test=$empty |
||
31 | !readproc adm/whoconnect 1 |
||
32 | !reset action |
||
33 | job=list |
||
34 | error=user_notconnected |
||
35 | !exit |
||
36 | !endif |
||
37 | |||
38 | !if $action=register |
||
39 | motd=!detag $motd |
||
40 | motd=!char 1 to $alertmsg_limit of $motd |
||
41 | ses=!item 4 of $don |
||
42 | !for s in $ses |
||
43 | !setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat |
||
44 | !next s |
||
45 | !reset user,action,motd |
||
46 | job=$empty |
||
47 | !else |
||
7026 | bpr | 48 | motd=$motdold |
5428 | guerimand | 49 | !endif |