Subversion Repositories wimsdev

Rev

Rev 8952 | Rev 9602 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8952 Rev 8960
Line -... Line 1...
- 
 
 1 
listuser=!listintersect $listuser and $wims_connectedlogin
- 
 
 2 
!reset connectedname
- 
 
 3 
!for user in $wims_connectedlogin
1 
!! TODO gestion d'une liste d'user
 4 
	n=!positionof item $user in $listiduser
- 
 
 5 
	connectedname=!append item $(listnameuser[$n]) to $connectedname
- 
 
 6 
!next user
2 
 
 7 
 
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
 8 
!if $listuser=$empty
19 
 error=user_notconnected
 9 
 error=user_notconnected
20 
 job=list
 10 
 job=list
21 
 !reset action
 11 
 !reset action
22 
 !exit
 12 
 !exit
23 
!endif
 13 
!endif
24 
 
 14 
 
- 
 
 15 
pl=!positionof item $(listuser[1]) in $wims_connectedlogin
25 
don=!line $pl of $wims_whoconnect
 16 
don=!line $pl of $wims_whoconnect
26 
ses=!item 4 of $don
 17 
ses=!item 4 of $don
27 
test=!getdef wims_class\
 18 
test=!getdef wims_class\
28 
wims_alertmsg in wimshome/sessions/$ses/var.stat
 19 
wims_alertmsg in wimshome/sessions/$ses/var.stat
29 
!distribute line $test into test,motdold
 20 
!distribute line $test into test,motdold
Line 36... Line 27...
36 
!endif
 27 
!endif
37 
 
 28 
 
38 
!if $action=register
 29 
!if $action=register
39 
 motd=!detag $motd
 30 
 motd=!detag $motd
40 
 motd=!char 1 to $alertmsg_limit of $motd
 31 
 motd=!char 1 to $alertmsg_limit of $motd
- 
 
 32 
 !for user in $listuser
- 
 
 33 
	pl=!positionof item $user in $wims_connectedlogin
- 
 
 34 
	don=!line $pl of $wims_whoconnect
41 
 ses=!item 4 of $don
 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
42 
 !for s in $ses
 40 
 		!for s in $ses
43 
  !setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat
 41 
  			!setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat
44 
 !next s
 42 
 		!next s
- 
 
 43 
	!endif
- 
 
 44 
 !next user
45 
 !reset user,action,motd
 45 
 !reset user,listuser,action,motd,job
46 
 job=$empty
 - 
 
47 
!else
 46 
!else
48 
 motd=$motdold
 47 
 motd=$motdold
49 
!endif
 48 
!endif