Subversion Repositories wimsdev

name_title=$wims_name_userlistliving
!let rd=!randint 111111,999999
local_html_header=<META HTTP-EQUIV="Refresh" CONTENT="$(tchat_refreshtiming);wims.cgi?session=$wims_session&+module=adm/class/tchat&+serial=$rd&+job=$job&+user=$user">


!if $ulist=$empty
  !exit
!endif

!! check if users is connected to his own living and make list of other living he is connected.
!! - tchatisopen  ($empty or 1) if individual tchat is open
!! - make list of connected user in different living living_connected_$living
tmp=!nospace tchatisopen_$ulist
tmp=!replace internal , by ,tchatisopen_ in $tmp
!reset nonempty_ind,nonempty_liv,$tmp
clscode=!replace internal / by ~ in $wims_class
dt=!record 0 of wimshome/tmp/whoconnect/$clscode
nb=!linecnt $dt
!for i=1 to $nb
  list_session=!item 4 to -1 of $(dt[$i;])
  nbs=!itemcnt $list_session
  !for k=1 to $nbs
    test=!defof wims_opentchat in wimshome/sessions/$(list_session[$k])/var.stat
    !if $test!=$empty
      !if $test=$(dt[$i;1])
        tchatisopen_$(dt[$i;1])=1
        nonempty_ind=1
      !else
        n=!text select 0123456789 in $test
        living_connected_$n=!append item $(dt[$i;1]) to $(living_connected_$n)
        nonempty_liv=1
      !endif
    !endif
  !next k
!next i

!! search living with last message not supervisor (only one ; not needed if nonempty_ind=1)
k=1
!while $nonempty_ind=$empty and $k<=$nbuser
  !readproc script/lastmsg.proc $(ulist[$k])
  !if $lastmsg!=$empty
    nonempty_ind=1
  !endif
  !increase k
!endwhile
k=0
!while $nonempty_liv=$empty and $k<=$nbliving
  !readproc script/lastmsg.proc .living$k
  !if $lastmsg!=$empty
    nonempty_liv=1
  !endif
  !increase k
!endwhile