Rev 7026 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!if $user!=$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
pl=!positionof item $user in $wims_connectedlogin
!if $pl=$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