Subversion Repositories wimsdev

Rev

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

Rev 8960 Rev 9602
Line 2... Line 2...
2 
!reset connectedname
 2 
!reset connectedname
3 
!for user in $wims_connectedlogin
 3 
!for user in $wims_connectedlogin
4 
	n=!positionof item $user in $listiduser
 4 
    n=!positionof item $user in $listiduser
5 
	connectedname=!append item $(listnameuser[$n]) to $connectedname
 5 
    connectedname=!append item $(listnameuser[$n]) to $connectedname
6 
!next user
 6 
!next user
7 
 
 7 
 
8 
!if $listuser=$empty
 8 
!if $listuser=$empty
9 
 error=user_notconnected
 9 
 error=user_notconnected
10 
 job=list
 10 
 job=list
Line 28... Line 28...
28 
 
 28 
 
29 
!if $action=register
 29 
!if $action=register
30 
 motd=!detag $motd
 30 
 motd=!detag $motd
31 
 motd=!char 1 to $alertmsg_limit of $motd
 31 
 motd=!char 1 to $alertmsg_limit of $motd
32 
 !for user in $listuser
 32 
 !for user in $listuser
33 
	pl=!positionof item $user in $wims_connectedlogin
 33 
   pl=!positionof item $user in $wims_connectedlogin
34 
	don=!line $pl of $wims_whoconnect
 34 
   don=!line $pl of $wims_whoconnect
35 
	ses=!item 4 of $don
 35 
   ses=!item 4 of $don
36 
	!reset test
 36 
   !reset test
37 
	test=!getdef wims_class in wimshome/sessions/$ses/var.stat
 37 
   test=!getdef wims_class in wimshome/sessions/$ses/var.stat
38 
	!if $test!=$empty
38 
   !if $test!=$empty
39 
		ses=!item 4 of $don
 39 
      ses=!item 4 of $don
40 
 		!for s in $ses
 40 
      !for s in $ses
41 
  			!setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat
 41 
           !setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat
42 
 		!next s
 42 
     !next s
43 
	!endif
 43 
   !endif
44 
 !next user
44 
 !next user
45 
 !reset user,listuser,action,motd,job
 45 
 !reset user,listuser,action,motd,job
46 
!else
 46 
!else
47 
 motd=$motdold
 47 
 motd=$motdold
48 
!endif
 48 
!endif