Subversion Repositories wimsdev

listuser=!listintersect $listuser and $wims_connectedlogin

nbconnecteduser=!itemcnt $wims_connectedlogin

!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