Subversion Repositories wimsdev

!! TODO gestion d'une liste d'user


!!if $listuser!=$empty
!! !read adm/class/userdef classes,$wims_class,$user
!! !defread $userdef
!! !read adm/class/userisinclass $wims_class,$user
!!endif
!!!if $script_reply!=yes or $user=$empty
!!  error=bad_user
!!  !reset job
!!  !exit
!!endif

listuser=!listintersect $listuser and $wims_connectedlogin
user=$(listuser[1])
pl=!positionof item $(listuser[1]) in $wims_connectedlogin
!if $listuser=$empty
 error=user_notconnected
 job=list
 !reset action
 !exit
!endif

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
 ses=!item 4 of $don
 !for s in $ses
  !setdef wims_alertmsg=$motd in wimshome/sessions/$s/var.stat
 !next s
 !reset user,action,motd
 job=$empty
!else
 motd=$motdold
!endif