Rev 7026 | Rev 8960 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7026 | Rev 8952 | ||
---|---|---|---|
Line -... | Line 1... | ||
- | 1 | !! TODO gestion d'une liste d'user |
|
- | 2 | ||
- | 3 | ||
1 |
|
4 | !!if $listuser!=$empty |
2 | !read adm/class/userdef classes,$wims_class,$user |
5 | !! !read adm/class/userdef classes,$wims_class,$user |
3 | !defread $userdef |
6 | !! !defread $userdef |
4 | !read adm/class/userisinclass $wims_class,$user |
7 | !! !read adm/class/userisinclass $wims_class,$user |
5 |
|
8 | !!endif |
6 |
|
9 | !!!if $script_reply!=yes or $user=$empty |
7 | error=bad_user |
10 | !! error=bad_user |
8 | !reset job |
11 | !! !reset job |
9 | !exit |
12 | !! !exit |
10 |
|
13 | !!endif |
11 | 14 | ||
- | 15 | listuser=!listintersect $listuser and $wims_connectedlogin |
|
- | 16 | user=$(listuser[1]) |
|
12 | pl=!positionof item |
17 | pl=!positionof item $(listuser[1]) in $wims_connectedlogin |
13 | !if |
18 | !if $listuser=$empty |
14 | error=user_notconnected |
19 | error=user_notconnected |
15 | job=list |
20 | job=list |
16 | !reset action |
21 | !reset action |
17 | !exit |
22 | !exit |
18 | !endif |
23 | !endif |
- | 24 | ||
19 | don=!line $pl of $wims_whoconnect |
25 | don=!line $pl of $wims_whoconnect |
20 | ses=!item 4 of $don |
26 | ses=!item 4 of $don |
21 | test=!getdef wims_class\ |
27 | test=!getdef wims_class\ |
22 | wims_alertmsg in wimshome/sessions/$ses/var.stat |
28 | wims_alertmsg in wimshome/sessions/$ses/var.stat |
23 | !distribute line $test into test,motdold |
29 | !distribute line $test into test,motdold |