Subversion Repositories wimsdev

listuser=!listintersect $listuser and $wims_connectedlogin

!reset connectedname

!for user in $wims_connectedlogin

	n=!positionof item $user in $listiduser

	connectedname=!append item $(listnameuser[$n]) to $connectedname

!next user

!if $listuser=$empty

 error=user_notconnected

 job=list

 !reset action

 !exit

!endif

pl=!positionof item $(listuser[1]) in $wims_connectedlogin

don=!line $pl of $wims_whoconnect

ses=!item 4 of $don

test=!getdef wims_class\

wims_alertmsg in wimshome/sessions/$ses/var.stat

!distribute line $test into test,motdold

!if $test=$empty

 !readproc adm/whoconnect 1

 !reset action

 job=list

 error=user_notconnected

 !exit

!endif

!if $action=register

 motd=!detag $motd

 motd=!char 1 to $alertmsg_limit of $motd

 !for user in $listuser

	pl=!positionof item $user in $wims_connectedlogin

	don=!line $pl of $wims_whoconnect

	ses=!item 4 of $don

	!reset test

	test=!getdef wims_class in wimshome/sessions/$ses/var.stat

	!if $test!=$empty	

		ses=!item 4 of $don

 		!for s in $ses

  			!setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat

 		!next s

	!endif

 !next user 

 !reset user,listuser,action,motd,job

!else

 motd=$motdold

!endif