Subversion Repositories wimsdev

Rev

Rev 15144 | Rev 16049 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15144 Rev 15636
Line 128... Line 128...
128 
    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&+mautorefresh=$mautorefresh">
 128 
    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&+mautorefresh=$mautorefresh">
129 
  !endif
 129 
  !endif
130 
!endif
 130 
!endif
131 
 
 131 
 
132 
 
 132 
 
- 
 
 133 
!! ------------ search for tmp user file
- 
 
 134 
!if . notin $user
- 
 
 135 
  !if $wims_user=supervisor
- 
 
 136 
    nb=!linecnt $list_tmpfile
- 
 
 137 
    cmdsh=$empty
- 
 
 138 
    !if $nb>0
- 
 
 139 
      !for k=1 to $nb
- 
 
 140 
        cmdsh=!append line ln -s $wims_home/sessions/$(list_tmpfile[$k;1])_tchat/getfile/tchat/$(list_tmpfile[$k;2]) $(list_tmpfile[$k;2]); to $cmdsh
- 
 
 141 
      !next k
- 
 
 142 
      !sh rm -rf $wims_home/sessions/$wims_session/getfile/tchat/$user;\
- 
 
 143 
          mkdir -p $wims_home/sessions/$wims_session/getfile/tchat/$user;\
- 
 
 144 
          cd $wims_home/sessions/$wims_session/getfile/tchat/$user;\
- 
 
 145 
          $cmdsh
- 
 
 146 
    !endif
133 
 
 147 
  !else
- 
 
 148 
    usertmpfile=!sh dir $wims_home/sessions/$wims_session/getfile/tchat/$user.*;
- 
 
 149 
    !if $usertmpfile!=$empty
- 
 
 150 
      usertmpfile=!replace internal / by , in $usertmpfile
- 
 
 151 
      usertmpfile=!item -1 of $usertmpfile
- 
 
 152 
    !endif
- 
 
 153 
  !endif
134 
 
 154 
!endif