Subversion Repositories wimsdev

Rev

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

Rev 14905 Rev 14976
Line 7... Line 7...
7 
  !reset job
 7 
  !reset job
8 
  !changeto var.proc
 8 
  !changeto var.proc
9 
!endif
 9 
!endif
10 
 
 10 
 
11 
!bound job2 within newmsg,$empty default $empty
 11 
!bound job2 within newmsg,$empty default $empty
- 
 
 12 
!if $cf_preview!=$empty
- 
 
 13 
  job2=newmsg
- 
 
 14 
!endif
12 
 
 15 
 
13 
!if $job2!=newmsg
 16 
!if $job2!=newmsg
14 
  !let rd=!randint 111111,999999
 17 
  !let rd=!randint 111111,999999
15 
  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">
 18 
  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">
16 
!endif
 19 
!endif
17 
 
 20 
 
18 
ltfile=!sh cd $wims_home/log/classes/$wims_class/tchat; if [ -e $user.old1 ]; then ls $user.old*; fi;
 21 
ltfile=!sh cd $wims_home/log/classes/$wims_class/tchat; if [ -e $user.old1 ]; then ls $user.old*; fi;
19 
nbfile=!linecnt $ltfile
 22 
nbfile=!linecnt $ltfile
20 
 
 23 
 
21 
!if $save!=$empty and $desc!=$empty
 24 
!if $save!=$empty and $desc!=$empty and $cf_preview=$empty
22 
  desc=!detag $desc
 25 
  desc=!detag $desc
23 
  desc=!char 1 to $msg_limit of $desc
 26 
  desc=!char 1 to $msg_limit of $desc
24 
  dt=!char 1 to 14 of $wims_now
 27 
  dt=!char 1 to 14 of $wims_now
25 
  rcnt=!recordcnt wimshome/log/classes/$wims_class/tchat/$user
 28 
  rcnt=!recordcnt wimshome/log/classes/$wims_class/tchat/$user
26 
  !if $rcnt>=$msg_recordlimit
 29 
  !if $rcnt>=$msg_recordlimit
27 
    !increase nbfile
 30 
    !increase nbfile
28 
    !sh mv $wims_home/log/classes/$wims_class/tchat/$user $wims_home/log/classes/$wims_class/tchat/$(user).old$nbfile;
 31 
    !sh mv $wims_home/log/classes/$wims_class/tchat/$user $wims_home/log/classes/$wims_class/tchat/$(user).old$nbfile;
29 
  !endif
 32 
  !endif
30 
  !appendfile wimshome/log/classes/$wims_class/tchat/$user :$wims_user $dt\
 33 
  !appendfile wimshome/log/classes/$wims_class/tchat/$user :$wims_user $dt\
31 
$desc
 34 
$desc
32 
  !reset job2
 35 
  !reset job2 desc save
33 
!endif
 36 
!endif
34 
 
 37 
 
35 
!reset save desc
 - 
 
36 
!if $nbfile=0
 38 
!if $nbfile=0
37 
  lastmsg=!recordcnt wimshome/log/classes/$wims_class/tchat/$user
 39 
  lastmsg=!recordcnt wimshome/log/classes/$wims_class/tchat/$user
38 
  nbmsg=$[min($msg_numberlimit,$lastmsg)]
 40 
  nbmsg=$[min($msg_numberlimit,$lastmsg)]
39 
!else
 41 
!else
40 
  nbmsg=$msg_numberlimit
 42 
  nbmsg=$msg_numberlimit