Subversion Repositories wimsdev

!if $wims_user!=supervisor
  !bound user within $wims_user,$livingfile default $wims_user
!else
  !bound user within $ulist,$livingfile default $empty
!endif
!if $user=$empty
  !reset job
  !changeto var.proc
!endif

!bound job2 within newmsg,$empty default $empty
!if $cf_preview!=$empty
  job2=newmsg
!endif



ltfile=!sh cd $wims_home/log/classes/$wims_class/tchat; if [ -e $user.old1 ]; then ls $user.old*; fi;
nbfile=!linecnt $ltfile

!if $save!=$empty and $desc!=$empty and $cf_preview=$empty
  desc=!detag $desc
  desc=!char 1 to $msg_limit of $desc
  dt=!char 1 to 14 of $wims_now
  rcnt=!recordcnt wimshome/log/classes/$wims_class/tchat/$user
  !if $rcnt>=$msg_recordlimit
    !increase nbfile
    !sh mv $wims_home/log/classes/$wims_class/tchat/$user $wims_home/log/classes/$wims_class/tchat/$(user).old$nbfile;
  !endif
  !appendfile wimshome/log/classes/$wims_class/tchat/$user :$wims_user $dt\
$desc
  !reset job2 desc save
!endif

!if $nbfile=0
  lastmsg=!recordcnt wimshome/log/classes/$wims_class/tchat/$user
  nbmsg=$[min($msg_numberlimit,$lastmsg)]
!else
  nbmsg=$msg_numberlimit
!endif
!if $wims_user=supervisor
  !if . isin $user
    n=!text select 0123456789 in $user
    name_title=!nosubst $(livingname_$n)
  !else
    po=!positionof item $user in $ulist
    username=$(nlist[$po])
    name_title=$name_tchatwith $username
  !endif
!else
  username=Participant
  !if . isin $user
    n=!text select 0123456789 in $user
    name_title=!nosubst $(livingname_$n)
  !else
    name_title=$name_ownliving
  !endif
  otherliving=!listcomplement $user in $livingfile,$wims_user
!endif
ses=!replace internal _ by , in $wims_session
ses=!item 1 of $ses
!setdef wims_opentchat=$user in wimshome/sessions/$ses/var.stat

!! ------- build of userpage supervisor can look
!! userpage can't be view in living (only in individual tchat) : todo ?
!if $wims_user=supervisor and $user isitemof $wims_connectedlogin and . notin $user
   !readproc script/getsession.proc $user
!endif

!! ------ build of list of users
!if . isin $user
  living=!text select 0123456789 in $user
  !if $(livingusers_$living)!=all
    listnameusers=$empty
    !for u in $(livingusers_$living)
      po=!positionof item $u in $ulist
      !if $u!=supervisor and $u!=$wims_user and $po!=$empty
        listnameusers=!append item $(nlist[$po]) to $listnameusers
      !endif
    !next u
    !if $listnameusers!=$empty
      listnameusers=, $name_yourself $name_and $listnameusers
    !else
      listnameusers=$name_and $name_yourself
    !endif
  !endif
!else
  !if $wims_user=supervisor
    po=!positionof item $user in $ulist
    listnameusers=$name_and $(nlist[$po])
  !else
    listnameusers=$name_and $name_yourself
  !endif
!endif


!! ------- manage of autorefresh
!if $job2!=newmsg
  !if $wims_user=supervisor
    autorefresh=yes
  !else
    lastauth=!record -1 of wimshome/log/classes/$wims_class/tchat/$user
    lastauth=!line 1 of $lastauth
    lastauth=!word 1 of $lastauth
    !if $lastauth=$wims_user or $user!=$wims_user
      autorefresh=yes
    !else
      !if $mautorefresh=1
        autorefresh=yes
      !else
        autorefresh=no
      !endif
    !endif
  !endif
  !if $autorefresh=yes
    !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">
  !endif
!endif